Excel VBA質問箱 IV

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

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


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

26012 / 76736

←次へ　｜　前へ→


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