|
こんにちは
フィルタオプションでただコピーしているだけみたいなので、
Sub データ蓄積()
Dim myRow8 As Long, myRow9 As Long
Dim LastRow1 As Long
myRow8 = Worksheets("Sheet1").Range("H" & Rows.Count).End(xlUp).Row
myRow9 = Worksheets("Sheet5").Range("B" & Rows.Count).End(xlUp).Row
LastRow1 = myRow9 + 1
If MsgBox("データの蓄積を開始します。", vbExclamation + vbOKCancel) = vbOK Then
If myRow8 >= 3 Then
With Worksheets("Sheet1").Range("H3:Q" & myRow8)
Worksheets("Sheet5").Range("B" & LastRow1).Resize(.Rows.Count, 10).Value _
= .Value
End With
End If
End If
End Sub
これだけかも?
|
|