Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26032 / 76732

←次へ　｜　前へ→


	【56036】列の削除について

クリシュナ - 08/5/30(金) 1:10 -


	引用なし

	パスワード

下記のような、データを作成しておりますが、特定の列を削除すべく、マクロを組みましたが、うまくいきませんでした。

　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の列に持ってこようとしましたが、うまくいきませんでした。（１０月１日に締めるとして、現時点での数が示されているのは、一番右端のセルであるため、右端以外のセルを全て削除するのがよいと考えた。）
　以下のとおりマクロを組みましたが、下の行へ一向に進みませんでした。
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

　大変お手数ですが、どのようにしたらうまくいくか、お教えいただけないでしょうか。

0 hits

▼

【56036】列の削除について クリシュナ 08/5/30(金) 1:10

≪