
ネットでいろいろと検索したのですが、たどり着けず
自分でも試してみたのですが、分からずここへきました。
VBAで特定の文字を含まない列の削除をしたいのですが
良いコードどなたかお分かりになりますでしょうか?
下記を試しましたがマクロが完了しませんでした・・
Public Sub 列削除_指定文字()
Dim i As Long
For i = Columns.Count To 1 Step -1
With Cells(1, i)
If Not .Value = "*月度" Then .EntireColumn.Delete
End With
Next
End Sub
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
ループし続ける事は有りませんが・・・・。
正しく無いと言われれば正しくありません。
月度と言う文字列を含むかどうかの判定は
If Not .Value = "*月度" Then .EntireColumn.Delete
↓
If Not .Value Like "*月度*" Then .EntireColumn.Delete
No.1
- 回答日時:
こんにちは!
一例です。
一気に削除する方法にしてみました。
Sub Sample1()
Dim j As Long, myRng As Range
For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
If Not Cells(1, j) Like "*月度" Then
If myRng Is Nothing Then
Set myRng = Cells(1, j)
Else
Set myRng = Union(myRng, Cells(1, j))
End If
End If
Next j
If Not myRng Is Nothing Then
myRng.EntireColumn.Delete
End If
End Sub
※ 別シートでマクロを試してみてください。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
【VBA】条件に一致しない行を削除したい 複数条件
Visual Basic(VBA)
-
【Excel VBA】特定の列以外を削除
Excel(エクセル)
-
4
エクセルVBA 特定文字以外の行削除
Excel(エクセル)
-
5
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
6
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
7
エクセル 指定した文字列を含む列を削除するには
Excel(エクセル)
-
8
【VBA】条件に一致しない行を削除したい
Visual Basic(VBA)
-
9
特定の文字を含まない行の削除
Excel(エクセル)
-
10
エクセルマクロ 特定の文字列を含む行のみを残す (マクロ修正)
Excel(エクセル)
-
11
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
12
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
13
条件が合致する列を削除したい(VBA)
Excel(エクセル)
-
14
excel マクロ 特定の文字列を含まない行を削除したい
Excel(エクセル)
-
15
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
16
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
17
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
18
エクセルで指定した項目の列だけ残し、残りは削除したい
Windows Vista・XP
-
19
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
20
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
vba マクロでファイル名をつけ...
-
5
メッセージボックスのOKボタ...
-
6
エクセルのマクロについて教え...
-
7
Excel・Word リサーチ機能を無...
-
8
一つのTeratermのマクロで複数...
-
9
Excel マクロ VBA プロシー...
-
10
Excel VBAからAccessマクロを実...
-
11
EXCELのVBAでRange("A1:C4")を...
-
12
エクセルで別のセルにあるふり...
-
13
ExcelVBAでPDFを閉じるソース
-
14
ExcelのVBA。public変数の値が...
-
15
VBAのIF分で時間指定の条件式の...
-
16
毎日指定時刻に自動でエクセル...
-
17
【Excel】複数のマクロをまとめ...
-
18
エクセルに張り付けた写真のフ...
-
19
マクロの連続実行
-
20
#defineの定数を文字列として読...
おすすめ情報
公式facebook
公式twitter