1樓：匿名使用者
sub aaa()
dim rng as range
for each rng in range("a1:d10")if rng.interior.colorindex = 6 then
rng.delete shift:=xlupend if
next rng
end sub
上面**測試通過。不好意思，顏色沒錯（黃色值為6），那個rng所在sheet1的usedrange
是什麼意思？
如果選擇sheet1的有黃色底區域單元格，你那個**執行也無錯。也就是說如果執行無反應，那麼你的excel顏色底值不匹配。
2樓：匿名使用者
單元格怎麼能刪除呢？是刪除內容還是刪除單元格所在的行呢？
刪除內容的話如下：
sub aaa()
dim rng
for each rng in sheet1.usedrangeif rng.interior.colorindex = 6 then
rng.offset(0)=""
end if
next
end sub
刪除行的話如下
sub aaa()
dim rng
for each rng in sheet1.usedrangeif rng.interior.colorindex = 6 then
rng.activate
activecell.entirerow.deleteend if
next
end sub
vba中如何實現單元格的值等於另外單元格的值
a1 b1 range a1 range b1 valuecells 1,1 cells 1,2 value以上三種都是a1等於b1的表述 假設 單元格a1等於另外乙個單元格b1的值,那麼可在vba中寫入以下回三種表示式中的一種 答 a1 value b1 valuerange a1 value r...
如何刪除excel單元格中多餘內容
利用排序法，快速刪除資料 中所有空白行的具體操作步驟如下。1 選中工作表中的整個資料區域。2 在 資料 選項卡的 排序和篩選 選項組中，單擊 公升序 按鈕，從而將資料 中的空白行移至 的尾部，3 選中排列在資料 尾部的所有空白行，在 開始 選項卡的 單元格 選項組中，單擊 刪除 下三角按鈕，在隨即開...
EXCEL單元格自動調整字型顏色
操作步驟 假設收益在c列的話 1 選中c列 2 格式 條件格式 3 下拉框選擇 公式 後面的空白輸入 c1 0 格式 底紋 選紅色 4 新增 條件2 繼續下拉選 公式 輸入 c1 0 格式 底紋 選綠色 確定即可！條件格式可以 自動上色,和原公式不會衝突.做了個列子,我顏色設反了先選擇要設定顏色的區...