A 回答 (2件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは!
色々やり方はあると思いますが、一例です。
1行目は必ずデータが入っているという前提です。
元データが変わってしまうので、
Sheetをコピー&ペーストしてマクロを実行してみてください。
Sub Sample1()
Dim j As Long
Dim myRng As Range
Dim myStr As String
myStr = "B1_D1_AB1"
For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
If InStr(myStr, Cells(1, j).Address(False, False)) = 0 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
myRng.EntireColumn.Delete
End Sub
こんな感じではどうでしょうか。m(_ _)m
No.2
- 回答日時:
こんなんで、どうでしょう。
Sub sample()
Range("B1,D1,AB1").EntireColumn.Hidden = True
Cells.SpecialCells(xlCellTypeVisible).Delete Shift:=xlToLeft
Cells.EntireColumn.Hidden = False
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Excel(エクセル) Excel vba 重複行削除 4 2022/06/02 06:52
- Excel(エクセル) Excelで質問です。 詳細(写真) ①黄色の部分を全てプルダウンを設定する。 ②リストはG列 ③リ 1 2023/06/16 21:54
- Excel(エクセル) Excel 複数列のある文字を優先して1列に表示したいです 2 2022/12/03 12:07
- Excel(エクセル) Excel 文字列を結合するときに重複をなくしたい 関数・VBA 2 2022/12/12 10:40
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) vbaエクセルマクロについて教えてください A列とD列が下のようになっています B列、C列にも何かし 2 2023/02/20 20:06
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
VBAで特定の文字を含まない列の削除方法について
Excel(エクセル)
-
エクセルで指定した項目の列だけ残し、残りは削除したい
Windows Vista・XP
-
-
4
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
VBAで文字列を数値に変換したい
Excel(エクセル)
-
8
エクセルの選択範囲以外を削除する方法
Excel(エクセル)
-
9
【VBA】条件に一致しない行を削除したい 複数条件
Visual Basic(VBA)
-
10
Excel-VBAでInputBox+Pulldownは可能??
Visual Basic(VBA)
-
11
エクセルVBA 特定文字以外の行削除
Excel(エクセル)
-
12
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
13
VBAで「セルに何か入っている場合」
Windows Me・NT・2000
-
14
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
15
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
16
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
17
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
-
18
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
19
エクセルVBAでセル内のシングルクォーテーションを変数に入れる方法
その他(Microsoft Office)
-
20
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセル 文字数 多い順 並...
-
2つのエクセルのデータを同じよ...
-
エクセル(勝手に太字になる)
-
エクセル 同じ値を探して隣の...
-
エクセルの並び変えで、空白セ...
-
エクセルで最初のスペースまで...
-
VBAで文字列を数値に変換したい
-
エクセルで、列の空欄に隣の列...
-
Excelで、A列にある文字がB列...
-
エクセルで一列おきに空白列を...
-
エクセルで文字が混じった数字...
-
エクセル TEXT関数を使うと左...
-
エクセルの【A列の幅が極細】の...
-
Excelで半角の文字を含むセルを...
-
50人を数回、グループ分けする...
-
お店に入るために行列に並んで...
-
【ACCESS/必須条件とOR条件を組...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
2つのエクセルのデータを同じよ...
-
エクセル(勝手に太字になる)
-
「B列が日曜の場合」C列に/...
-
エクセル 文字数 多い順 並...
-
EXCELで 一桁の数値を二桁に
-
エクセル 同じ値を探して隣の...
-
VBAで文字列を数値に変換したい
-
エクセルの並び変えで、空白セ...
-
Excelで半角の文字を含むセルを...
-
エクセルで文字が混じった数字...
-
Excel、市から登録している住所...
-
A列がない・・・A列が非表示に...
-
エクセルの表から正の数、負の...
-
[関数得意な方]教えて下さい・...
-
エクセルの項目軸を左寄せにしたい
-
エクセル 時間帯の重複の有無
-
Excelにてある膨大なデータを管...
おすすめ情報