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を使用しないようにしてください。ほとんどの場合、それは必要ではなく、コードの実行が遅くなります。

また、値を必要とする場合は、値を直接ターゲットに割り当てます。