1樓：慶年工坊
sub xx()
n = cells(4 ^ 8, 2).end(3).row + 1for i = 3 to 6
if cells(n, i) <> "" thenj = n + 1
do while cells(j, i) <> ""
if (cells(j, i) + 10 - cells(n, i)) mod 10 <= 3 and cells(j, i) <> cells(n, i) then cells(j, i).interior.colorindex = 6
if (cells(n, i) + 10 - cells(j, i)) mod 10 <= 3 and cells(j, i) <> cells(n, i) then cells(j, i).interior.colorindex = 33
j = j + 1
loop
end if
next
end sub
2樓：小李無刀
沒描述清楚你的問題，vba可以做到很多事的
EXCEL VBA批量替換單元格內容
如果我只要替換one的內容，其他內容保持不變，該怎樣來寫？辦法如下，先找個英語翻譯的庫，你自己做成適當的資料庫，英文與中文各為乙個資料字段 用vba查詢資料庫，找到對應的，把對應的中文寫進去，比如 在範圍 a1 d100 把下面 拷貝到後台巨集，按f5執行就okpublic sub test for...
cad中怎麼修改填充內容
雙擊填充區域，會出現填充命令的介面，這就可以修改了，或者你可以用特性匹配刷一下 用右鍵點圖案，再選編輯圖案填充，將比例加大，確定即可。也可用一樓的方法。以auto cad 2004 為例，選中填充，選單 修改 特性 在裡面調線性比例和填充比例。你分解掉就是了，然後再去掉你不要的線，最後再給結合了，應...
excel中，如何用快捷鍵複製或填充內容到指定的範圍
1.大量資料的快速錄入也稱為填充，對這些資料可以採用填充技術，讓自動出現在一系列的單元格中。填充功能是通過 填充柄 或者 填充序列對話方塊 來實現的。下面舉例說明。2.開啟乙個excel 如圖所示，在a2單元格中輸入張三的學號70301，然後用滑鼠左鍵單擊a2單元格，把滑鼠移動到a2單元格右下角，出...