vba - 移动单元格时保持颜色和字体并跳过空白单元格

Question

我有以下 VBA 脚本。它只是将信息从一张纸移动到另一张纸。但是，我希望移动的每个单元格在 sheet2 中具有与在 sheet1 中相同的颜色和字体。 Cherry 在上面，移动单元格时，如果我能让脚本跳过空白单元格，那将是惊人的。

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

Answer 1

替换如下行:

Sheets("Sheet2").Range("A" & k) = Sheets("Sheet1").Range("Z" & i)

和:

Sheets("Sheet1").Range("Z" & i).Copy Sheets("Sheet2").Range("A" & k)

将保持颜色和字体。