セルを移動して空白セルをスキップするときの色とフォントを維持

Question

私は以下のVBAスクリプトを持っています。情報をシートから別のシートに移動するだけです。しかし、シート1にあるように、移動した各セルが同じ色とフォントをsheet2に持つようにしたい。私はスクリプトを空白のセルをスキップすることができれば、驚くべきセルを移動するとき、上のチェリー。

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("Sheet1").Range("Z" & i).Copy Sheets("Sheet2").Range("A" & k) 

：で

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

を。