教えて下さい。
エクセルで一行目にある、100項目程度の項目名のうち、
30個程度の項目名の列をvbaで削除したいです。
30項目名「あ」、「う」、「か」、「た」、「つ」‥
消したい場合、
If Cells(1, c) = "あ" or Cells(1, c) = "う" Then
と入れ子にして付け加えていけばいいのでしょうか‥。
不足情報ありましたら申し訳ありません。
もっといい方法ありましたら教えて下さい。
Sub 列削除()
Dim lngECol As Long
Dim c As Integer
lngECol = Range("XFD1").End(xlToLeft).Column
For c = lngECol To 1 Step -1
'1行目の項目名が「あ」の場合に列削除
If Cells(1, c) = "あ" Then
Cells(1, c).EntireColumn.Delete
End If
Next
End Sub
No.1
- 回答日時:
項目名を配列にぶち込むってのもありですし、1行目をInsertして空白行を作成し、不要な列に『例えば B1、F1、H1とか』×印を付けておくなりしてそれを目安に削除するとか。
勿論追加した1行目は最後に削除しますけど。
No.2ベストアンサー
- 回答日時:
こんばんは、
If Cells(1, c) = "あ" or Cells(1, c) = "う" Thenと入れ子にして付け加えていけばいいのでしょうか‥。
良いとは思いますが、探す範囲が大きい場合 ループ回数が増えそうに思います。
30項目名の方を配列にしてループさせた方が良いかも知れません。
また、削除に関しては、一度に実行する方が処理速度が速くなります。
Set Rng= Object.Union(Arg1,Arg2,,,
UnionでRangeをつなげ一度に処理をする
Sub a()
Dim i As Long
Dim Rng As Range
Dim key As Variant
For Each key In Array("あ", "い", "う")
On Error Resume Next
If Rng Is Nothing Then
Set Rng = Range("A1:XFD1").Find(key).Cells
Else
Set Rng = Union(Rng, Range("A1:XFD1").Find(key).Cells)
End If
Next
If Not Rng Is Nothing Then Rng.EntireColumn.Delete
End Sub
見つからない場合の処理をOn Error Resume Nextとしてしまいましたが、
参考にはなると思います。また、Findに関しては初めの該当セルになってしまいますので、同じキーワードの項目がある場合はFindNextなどで対応する必要があります。。検証等は行っていませんので、デバッグしてください。
詳しいコードもありがとうございます。ここまで複雑なコードがまだ書けないので助かります。
今回、項目名も長い上にたくさんあるので、そこだけで五行くらいになってしまいましたがうまく行きました。
本当に助かりました。ありがとうございます!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA 行削除した連番 4 2023/06/27 16:00
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
【Excel VBA】特定の列以外を削除
Excel(エクセル)
-
ExcelのVBAで連番を振る。
Excel(エクセル)
-
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
-
4
VBAで色の付いているセルの行削除
Excel(エクセル)
-
5
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
6
エクセルで指定した項目の列だけ残し、残りは削除したい
Windows Vista・XP
-
7
EXCELデータ保存時にメッセージを表示させたい。
Access(アクセス)
-
8
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Access テキスト型に対する指定...
-
エクセルグラフの凡例スペース
-
Oracle 2つのDate型の値の差を...
-
Joy To Keyのマウスやキーボー...
-
2行目を表示できますか?
-
DBのタイプの指定とサイズにつ...
-
VBAで複数の数式セルを最終行ま...
-
SUBSTRING 関数に渡した長さの...
-
ブラウザの「戻る」ボタンは何...
-
skypeに問い合わせるとき...
-
APN設定について教えていただけ...
-
空白をそのままインポートする...
-
BIOSでAHCIに設定したいが、項...
-
Excelで空白以外の値がある列の...
-
Accessレポートで特定条件で改...
-
セルの右クリックで出る項目を...
-
必須入力項目と入力必須項目
-
スティックパリティの役割
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
セルの右クリックで出る項目を...
-
Access テキスト型に対する指定...
-
SUBSTRING 関数に渡した長さの...
-
Accessで数値型にNULLをInsert...
-
APN設定について教えていただけ...
-
エクセルグラフの凡例スペース
-
ORACLEでLONG項目からCHAR項目...
-
複数のレコードを1つのレコード...
-
空白をそのままインポートする...
-
アンドロイド おサイフケータイ...
-
VBAで複数の数式セルを最終行ま...
-
access2000:フォームで入力し...
-
株に関する用語集
-
他テーブルで一致する列から名...
-
必須入力項目と入力必須項目
-
BIOSでAHCIに設定したいが、項...
-
datファイルからaccessにインポ...
おすすめ情報