Excel VBA maxter數據

Question

我使用此代碼將單元複製到主數據。單元格中的數據包含公式。如何將這些數據粘貼到其他表格中，將單元格的格式更改爲數字。

Sub MaxterData() 

Sheets("Sheet1").Range("B2:E2").Copy 


Dim lastrow As Long 
lastrow = Range("A65536").End(xlUp).Row 

Sheets("Summary Info").Activate 
Cells(lastrow + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 


End Sub 

Answer 1

試試這個：

Sub MaxterData() 

Dim lastrow As Long 

With Sheets("Summary Info") 
    lastrow = .Range("A" & Rows.Count).End(xlUp).Row 
    .Cells(lastrow + 1, 1).Resize(, 4).Value = Sheets("Sheet1").Range("B2:E2") 
    .Cells(lastrow + 1, 1).Resize(, 4).NumberFormat = "General" 
End With 

End Sub 

儘量避免使用.Select和.Activate。大部分時間不需要，只會減慢代碼。

此外，當只想將值直接分配給目標。