No.1ベストアンサー
- 回答日時:
こんばんは!
>その後、32行おきに4行削除します(2回目は69列目から72列目)
行ではなく、列のコトですよね?
一例です。
最終列は1行目で取得するようにしていますので、
1行目は最終列まで何らかのデータが入っているという前提です。
Sub Sample1()
Dim j As Long, myRng As Range
For j = 37 To Cells(1, Columns.Count).End(xlToLeft).Column Step 32
If myRng Is Nothing Then
Set myRng = Cells(1, j).Resize(, 4)
Else
Set myRng = Union(myRng, Cells(1, j).Resize(, 4))
End If
Next j
If Not myRng Is Nothing Then '//←念のため//
myRng.EntireColumn.Delete
End If
End Sub
こんな感じではどうでしょうか?
※ 行・列が逆だと当然コードも変わってきます。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) Excelについて質問です(ver2019) 1 2023/06/30 21:20
- Visual Basic(VBA) 【至急】 当方初心者です。 マクロについて知恵をお貸しください。 ★したい動作 ①リストE列2行目か 4 2022/09/29 18:56
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- Excel(エクセル) Excel vba 重複行削除 4 2022/06/02 06:52
- Java javaでのプログラム(配列)について質問です. 2 2022/10/14 22:27
- Visual Basic(VBA) VBA 行削除した連番 4 2023/06/27 16:00
- Visual Basic(VBA) vba エクセルマクロのことで教えてください。 A1 123 A2 234 A3 345 A4 45 1 2023/01/28 21:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「段」と「行」の違いがよくわ...
-
LEFT関数とIF関数の組み合わせ...
-
Alt+Shift+↑を一括で行うには、...
-
VLOOKUPの列番号の最大は?
-
エクセルで離れた列を選択して...
-
Excelの行数、列数を増やしたい...
-
エクセルで複数列の検索をマク...
-
Accessのレポートで繰り返し表...
-
VBAで結合セルを転記する法を教...
-
エクセル 重複したデータを別...
-
列方向、行方向の定義
-
CSVファイルの「0落ち」にVBA
-
VBAで別ブックの列を検索し、該...
-
エクセルマクロの組み方
-
エクセルでセル中の学名の一部...
-
土日の列幅の自動変更を教えて...
-
エクセルマクロPrivate Subを複...
-
エクセル マクロ 範囲指定で...
-
URLから「ドメイン取得日」を取得
-
エクセルで住所を県と市・郡と...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで離れた列を選択して...
-
「段」と「行」の違いがよくわ...
-
VLOOKUPの列番号の最大は?
-
LEFT関数とIF関数の組み合わせ...
-
VBA 指定した列にある日時デー...
-
Alt+Shift+↑を一括で行うには、...
-
エクセルで住所を県と市・郡と...
-
エクセルで複数列の検索をマク...
-
Excelの行数、列数を増やしたい...
-
VBAで結合セルを転記する法を教...
-
エクセルマクロの組み方
-
エクセルマクロPrivate Subを複...
-
CSVファイルの「0落ち」にVBA
-
列方向、行方向の定義
-
リストからデータを紐付けしたい
-
エクセルのソートで、数字より...
-
Excel文字列一括変換
-
エクセルで最初の行や列を開け...
-
エクセルでセル12個間隔で合...
-
エクセル マクロ 範囲指定で...
おすすめ情報