1樓：
sub test()
'假設sheet1的a列從第一行開始有資料，以下就可以實現for i = 1 to sheet1.cells(1, 1).end(xldown).row
if sheet1.cells(i, 1).interior.colorindex = xlnone then
sheet1.cells(i, 1).copy sheet2.cells(sheet2.cells(65536, 1).end(xlup).row + 1, 1)
end if
next
end sub
對於b列也是一樣，參照這個寫法把相應的列換成b列的就可以了
2樓：無刀筆
思路，動態找出sheet1中有多少列，每列多少行，然後判斷每列單元格是否有底紋顏色，如果沒有，複製，有，跳過。vba**可寫成如下形式(後面的註釋都加了註釋符號的，可以完全複製到vba中執行)。
sub 複製沒有底紋的單元格()
dim intcol_num%, introw_num%, i%, intdw_a%, intshrow_num%
intcol_num = sheets(1).cells(1, 100).end(xltoleft).column '找出sheet1最後一個非空列的列號
for i = 1 to intcol_num step 1 '迴圈非空的每一列
introw_num = sheets(1).range("a65536").end(xlup).
row '找出當前迴圈到的列的從65536行往上的最後一個非空單元格的行號
for each ran in sheets(1).range(sheets(1).cells(1, i), sheets(1).
cells(introw_num, i)) '遍歷當前迴圈到的列的非空單元格
intdw_a = ran.interior.colorindex '提出當前單元格背景顏色指數值
if intdw_a < 0 then
intshrow_num = sheets(2).cells(65536, i).end(xlup).row '找出sheet2對應列的最後一個非空單元格的行號
if sheets(2).cells(1, i).value <> "" then
ran.copy sheets(2).cells(intshrow_num + 1, i)
else
ran.copy sheets(2).cells(intshrow_num, i)
end if
end if
next
next
end sub
EXCEL在sheet1打日期,sheet2sheet3中如
蟈蟈愛學 不改變原始 資料，列印時自動新增列印日期。 如果你是每月都用的固定 建議單設定一個日期輔助單元 因為你的 中有很多要引用當前日期的公式 比如說z1 1 第二張表就是 z1 sheet1 z1 1日期顯示為 7 z1 在sheet2的a1中輸入 sheet1 a1 1 以此類推 excel工...
excel中的sheet1是指什麼
廖智渠衣 是第乙個 的意思，預設有3個工作表，sheet1是工作表1，還可以右鍵新建更多的工作表 哀忠曲雪 預設有3個工作表，sheet1是工作表1，還可以右鍵新建更多的工作表 合寧藩雀 預設開啟或者新建的excel，稱為乙個 工作簿 乙個工作簿可以由1個或者多個工作表組成，可以有sheet1 sh...
excel將sheet 1的內容填入sheet2的公式
滑鼠點到sheet 2的單元格，輸入 後，點回sheet 1，點到相應單元格，回車。例如 在sheet 2 張三 這格輸入 回到sheet 1，點到填寫有 張三 的這個單元格，然後按下enter。這時你再回到sheet 2看，那個單元格就已經出現了與sheet 1對應單元格一致的內容。當你對shee...