[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『条件で検索 列ごと削除』(みどり)
お世話になります
シート2 に A:W の表があり、その B列 に
シート1 の B1と同じ文言がはったセル行を
列ごと削除したいのですが、方法を教えてください。
・シート2 B列 = 空白なし / 重複なし
・シート2 B列 ・シート1 B1セル = 文字列
・列を削除した後はその列を空白を残さない。
よろしくお願いします。
< 使用 Excel:Excel2007、使用 OS:Windows7 >
文中、列と行 が混乱している気がしますが、オートフィルタで絞って削除ではダメでしょうか。 (Mook) 2014/11/17(月) 12:46
マクロ案・・。 Sub Sample() Dim i As Long Dim LastRow As Long Dim TargetStr As String
TargetStr = Sheets("Sheet1").Range("B1").Value With Sheets("Sheet2") LastRow = .Range("B" & Rows.Count).End(xlUp).Row For i = LastRow To 1 Step -1 If InStr(.Range("B" & i).Value, TargetStr) Then .Range("B" & i).EntireRow.Delete End If Next i End With End Sub (ぽち) 2014/11/17(月) 12:55
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.