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。大部分时间不需要，只会减慢代码。

此外，当只想将值直接分配给目标。