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の列に持ってこようとしましたが、うまくいきませんでした。(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

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

【56036】列の削除について クリシュナ 08/5/30(金) 1:10 質問
【56040】Re:列の削除について ひげくま 08/5/30(金) 9:14 発言
【56060】Re:列の削除について クリシュナ 08/5/31(土) 11:08 質問
【56043】Re:列の削除について kanabun 08/5/30(金) 11:10 発言
【56059】Re:列の削除について クリシュナ 08/5/31(土) 10:57 お礼

26032 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free