移动单元格时保持颜色和字体，并跳过空白单元格
我有下面的VBA脚本。 这只是将信息从一个表单移动到另一个表单。 但是，我希望每个单元格在sheet2中拥有与sheet1中相同的颜色和字体。 樱桃顶部，当移动单元格，如果我能让脚本跳过空白单元格，这将是惊人的。
Sub Example() lr = Sheets("Sheet1").Range("Z65536").End(xlUp).Row k = 0 For i = 5 To lr k = k + 1 Sheets("Sheet2").Range("A" & k) = Sheets("Sheet1").Range("Z" & i) Sheets("Sheet2").Range("B" & k) = Sheets("Sheet1").Range("Z" & i) Sheets("Sheet2").Range("C" & k) = Sheets("Sheet1").Range("Z" & i) Sheets("Sheet2").Range("D" & k) = Sheets("Sheet1").Range("Z" & i) k = k + 1 Sheets("Sheet2").Range("A" & k) = Sheets("Sheet1").Range("AA" & i) Sheets("Sheet2").Range("B" & k) = Sheets("Sheet1").Range("AA" & i) Sheets("Sheet2").Range("C" & k) = Sheets("Sheet1").Range("AA" & i) Sheets("Sheet2").Range("D" & k) = Sheets("Sheet1").Range("AA" & i) Next End Sub replace行如：
Sheets("Sheet2").Range("A" & k) = Sheets("Sheet1").Range("Z" & i)
有：
Sheets("Sheet1").Range("Z" & i).Copy Sheets("Sheet2").Range("A" & k)
将保持颜色和字体。