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

【问题标题】：Maintain color and font when moving cells and skip blank cells移动单元格时保持颜色和字体并跳过空白单元格
【发布时间】：2017-03-10 15:21:24
【问题描述】：

我有以下 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

【问题讨论】：

有关格式问题，请参阅 stackoverflow.com/questions/25461314/…。至于跳过空白，检查值的 IF 将执行此操作。
谢谢！这帮助了很多。我将处理一个跳过空格的 IF 语句。

标签： vba excel

【解决方案1】：

替换如下行：

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

与：

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

将保持颜色和字体。

【讨论】：

啊，是的，我不知道我为什么要把它复杂化。非常感谢！