|
▼えあ さん:
移動(?)ということで、カット&ペーストをマクロ記録し、
それを元に、Sheetの分だけLoopしてみました。
バックアップ後、実行して下さい。
Private Sub sub_kopi()
Dim myRow As Long
Dim myLoopSheet As Long
' Application.ScreenUpdating = False
For myLoopSheet = 2 To 50
With Sheets("Sheet" & myLoopSheet)
.Select
myRow = Range("A65536").End(xlUp).Row
Rows("2:" & myRow).Select
Selection.Cut 'またはコピー?
End With
With Sheets("Sheet1")
.Select
Range("A65535").End(xlUp).Offset(1, 0).Activate
ActiveSheet.Paste
End With
Next myLoopSheet
' Application.ScreenUpdating = True
End Sub
テストはしてないので、動かなかったらゴメンなさい。
|
|