|
▼けんけん さん:
こんなんでいいんでしょうか?
保存されてしまうので"club ARK.xls"はバックアップを取ることをお勧めします。
前のコードと見比べてもらうとわかりますが
全部まとめて1つにしただけです。
Arrayのところは正しく直してください。
Sub TEST()
Dim wksList As Worksheet
Dim vntPos As Variant
Dim lngRow As Long
Dim i As Long
vntPos = Array("K5", "D7", "F7", "F4", "H4", "F5"・・・)
Set wksList = Workbooks("club ARK.xls").Worksheets("DATA")
With wksList
'伝票一覧の最終行を取得
lngRow = .Range("A65536").End(xlUp).Row
'最終行が3未満なら
If lngRow < 3 Then
lngRow = 3
'最終行が3以上なら+1
Else
lngRow = lngRow + 1
End If
End With
With Sheet1
'データ位置全てに就いて繰り返し
For i = 0 To UBound(vntPos)
'データ位置のデータを順番に転記
wksList.Cells(lngRow, i + 1).Value = .Range(vntPos(i)).Value
Next i
End With
Workbooks("club ARK.xls").Save
Set wksList = Nothing
End Sub
|
|