
Excelで、全シートの1行目(範囲はA1~BD1)に、色のついているセルがあれば
その列を削除したいのですが、どなたかご教授願います。
現在、下記コードで、1つのシートで","のついている列を削除しているのですが,
それを全シートの1行目(範囲はA1~BD1)に、色のついているセルがあれば
その列を削除するようにしたいです。
Sub 削除()
Dim rng As Range
Set rng = Rows(1).Cells.Find(",", , xlValues, xlPart)
If Not rng Is Nothing Then
Range(rng.Offset.EntireColumn, rng.Address).Delete
End If
Set rng = Nothing
End Sub
ご教授よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
こんにちは
こんな感じのことでしょうか?
※ 削除ではなく選択にしてあります。
※ 対象は、ActiveSheetのみにしてあります。
Dim u As Range, c As Range
For Each c In Range("A1:BD1")
If c.DisplayFormat.Interior.Pattern = xlNone Then
If u Is Nothing Then Set u = c Else Set u = Union(u, c)
End If
Next c
If Not u Is Nothing Then u.EntireColumn.Select
No.3
- 回答日時:
No2です
>添付画像のエラーが発生しました
あらっ、そうですかぁ…
では、その行を
If c.Interior.Pattern = xlNone Then
に替えてみて下さい。
これによって、条件付き書式で色がついている列は拾えなくなりますけれど・・・
ついでながら、添付の画像ではSelect が Selectt になっちゃってるみたいですけれど・・・?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで教えて頂きたいのですが? 1 2022/04/29 02:36
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Excel(エクセル) マクロで行を追加、削除すると行位置がずれますが、解決方法はありませんか?。 5 2022/05/28 16:03
- Excel(エクセル) VBA 1 2023/04/27 13:37
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【マクロ】【配列】3つのシー...
-
【条件付き書式】countifsで複...
-
エクセルで、チェックボックス...
-
文字の色も参照 VLOOKUP
-
エクセルの保護で、列の表示や...
-
Googleスプレッドシートの関数...
-
シートをまたぐ条件付き書式に...
-
Excelのセルの色を変えた行(す...
-
【エクセル】1列のデータを交...
-
Excel の複数シートの列幅を同...
-
VBAで繰り返しコピーしながら下...
-
Excelでの並べ替えを全シートま...
-
Excel 2段組み
-
VLOOKアップ関数の結果の...
-
エクセル マクロ 標準モジュー...
-
ExcelのVlookup関数の制限について
-
EXCELで別のシートのデータを参...
-
SUMPRODUCTにて別シートのデー...
-
2つのものが一致時に転記する...
-
エクセルで複数のシートを一つ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】【配列】3つのシー...
-
文字の色も参照 VLOOKUP
-
【条件付き書式】countifsで複...
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
Excelのセルの色を変えた行(す...
-
エクセルで、チェックボックス...
-
VBAで繰り返しコピーしながら下...
-
シートをまたぐ条件付き書式に...
-
Excelでの並べ替えを全シートま...
-
Excel の複数シートの列幅を同...
-
エクセルの列の限界は255列以上...
-
SUMPRODUCTにて別シートのデー...
-
VLOOKアップ関数の結果の...
-
excel 複数のシートの同じ場所...
-
【VBA】複数のシートの指定した...
-
Excelに自動で行の増減をしたい...
-
エクセル マクロ 標準モジュー...
-
Excel 2段組み
-
スプレッドシートでindexとIMPO...
おすすめ情報
実行してみました
添付画像のエラーが発生しました