Excel VBA質問箱 IV

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

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


26008 / 76732 ←次へ | 前へ→

【56060】Re:列の削除について
質問  クリシュナ  - 08/5/31(土) 11:08 -

引用なし
パスワード
   ▼ひげくま さん:
お返事まことにありがとうございます。
再度投稿させていただきます。

>> 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
>見にくいので、書き込み欄の右下にある等幅にチェックを入れて、投稿し直してもらえますか?
>
>> 以下のとおりマクロを組みましたが、下の行へ一向に進みませんでした。
>
>以下が実際に組んだそのままのコードですか?
>
>>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

 よく見るとiとjを混同しておりました。一行ずつ下がっていきましたが、データが1つしかない人の値も削除されてしまうことに気づきました。この点につきましては、自分でなんとか出来そうです。
 もっとうまくやれる方法がありましたら、お教えいただけないでしょうか?
2 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 お礼

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