Excel VBA質問箱 IV

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

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


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

26103 / 76807

←次へ　｜　前へ→


	【56040】Re:列の削除について

ひげくま - 08/5/30(金) 9:14 -


	引用なし

	パスワード

▼クリシュナさん：
>　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

0 hits

▼

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