
教えて下さい。
エクセルで一行目にある、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.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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【Excel VBA】特定の列以外を削除
Excel(エクセル)
-
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
条件が合致する列を削除したい(VBA)
Excel(エクセル)
-
-
4
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
5
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
6
エクセル 指定した文字列を含む列を削除するには
Excel(エクセル)
-
7
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
8
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
9
Excel VBAでオートフィルタで抽出したデータの一部だけ貼り付けるには(第2弾)
Excel(エクセル)
-
10
VBAで色の付いているセルの行削除
Excel(エクセル)
-
11
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
12
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
13
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
14
未記入がある場合はマクロを実行させない方法
その他(Microsoft Office)
-
15
VBAで指定シート以外の選択
Visual Basic(VBA)
-
16
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
17
VBAで重複データを合算したい
Excel(エクセル)
-
18
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Access テキスト型に対する指定...
-
エクセルグラフの凡例スペース
-
複数のレコードを1つのレコード...
-
Accessレポートで特定条件で改...
-
Oracle 2つのDate型の値の差を...
-
SQLでの変数の扱いについて
-
ワードで4段組みで文章を書い...
-
2行目を表示できますか?
-
SQLでの並べ替えを数字の順番に...
-
【マクロ】列を折りたたみ非表...
-
他テーブルで一致する列から名...
-
【至急】Accessのフィールドの...
-
ピボットテーブルでフィルター...
-
datファイルからaccessにインポ...
-
BIOSでハードウェアの仮想化を...
-
エクセル2003で四角の中に...
-
エクセルマクロにて最終行まで...
-
セルの右クリックで出る項目を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】列を折りたたみ非表...
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
Access テキスト型に対する指定...
-
ワードで4段組みで文章を書い...
-
エクセルグラフの凡例スペース
-
access2000:フォームで入力し...
-
ORACLEでLONG項目からCHAR項目...
-
アリエクで買った商品が破損し...
-
SUBSTRING 関数に渡した長さの...
-
必須入力項目と入力必須項目
-
他テーブルで一致する列から名...
-
空白をそのままインポートする...
-
VBAで複数の数式セルを最終行ま...
-
複数のレコードを1つのレコード...
-
セルの右クリックで出る項目を...
-
SQL*Loaderでのゼロ埋め
-
Accessレポートで特定条件で改...
-
指定した項目の列削除
おすすめ情報