|
下記のような、データを作成しておりますが、特定の列を削除すべく、マクロを組みましたが、うまくいきませんでした。
A B C D E ... R
1/3 1/9 2/9 5/4 10/1
ケロッグ 3 5 9
マスタ 5
ケビン 1 1 1
クロノス 5 10 18 20
メディチ 3 1 15 1
物を借ている個数を一定の日ごとに記録しております。一度帳簿を締めて現時点で、誰がどれだけ借りているかの値をBの列に持ってこようとしましたが、うまくいきませんでした。(10月1日に締めるとして、現時点での数が示されているのは、一番右端のセルであるため、右端以外のセルを全て削除するのがよいと考えた。)
以下のとおりマクロを組みましたが、下の行へ一向に進みませんでした。
sub 帳簿締め()
Dim Ws2 as worksheet
Range("A2").activate
j = j + 1
For i = 2 To Ws2.Cells(65536, 1).End(xlUp).Row Step 1
Range(Cells(j, 2), Cells(j, 2).End(xlToRight).Offset(0, -1)).Select
Selection.Delete xlShiftToLeft
Next i
end sub
大変お手数ですが、どのようにしたらうまくいくか、お教えいただけないでしょうか。
|
|