
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんなんで、どうでしょう。
Sub sample()
Range("B1,D1,AB1").EntireColumn.Hidden = True
Cells.SpecialCells(xlCellTypeVisible).Delete Shift:=xlToLeft
Cells.EntireColumn.Hidden = False
End Sub
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
VBAで特定の文字を含まない列の削除方法について
Excel(エクセル)
-
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
4
エクセルVBA 特定文字以外の行削除
Excel(エクセル)
-
5
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
6
エクセルで指定した項目の列だけ残し、残りは削除したい
Windows Vista・XP
-
7
条件が合致する列を削除したい(VBA)
Excel(エクセル)
-
8
指定した項目の列削除
Visual Basic(VBA)
-
9
エクセル 指定した文字列を含む列を削除するには
Excel(エクセル)
-
10
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
11
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
12
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
13
【VBA】条件に一致しない行を削除したい 複数条件
Visual Basic(VBA)
-
14
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
15
【VBA】条件に一致しない行を削除したい
Visual Basic(VBA)
-
16
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
17
ExcelVBAでBookを開く時にファイル名の一部だけを指定で
Access(アクセス)
-
18
VBAで空白セルにのみ数値を代入する方法
Excel(エクセル)
-
19
エクセルで選択した行以外を削除する方法
Excel(エクセル)
-
20
EXCEL マクロ 列の削除に時間がかかる
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
エクセル 同じ値を探して隣の...
-
5
エクセル(勝手に太字になる)
-
6
Excelで2つの条件のうちどちら...
-
7
Excel、市から登録している住所...
-
8
エクセルで最初のスペースまで...
-
9
VBAで文字列を数値に変換したい
-
10
エクセルの項目軸を左寄せにしたい
-
11
エクセルで文字が混じった数字...
-
12
エクセルで、列の空欄に隣の列...
-
13
エクセルの関数(日数の平均の...
-
14
Word2016でExcelデータを差込し...
-
15
文字を入力したら数値が自動入...
-
16
エクセルの隣り合う列のグループ化
-
17
EXCELで 一桁の数値を二桁に
-
18
ExcelのIF関数によるフラグ立て...
-
19
VBA 連続行データを5行ずつ隣の...
-
20
文字列に数字を含むセルを調べたい
おすすめ情報
公式facebook
公式twitter