[[20141117112528]]　『条件で検索列ごと削除』（みどり）　ページの最後に飛ぶ

『条件で検索列ごと削除』（みどり）

お世話になります

シート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

コメント返信：

[ 一覧(最新更新順) ]

[[20141117112528]] 『条件で検索 列ごと削除』（みどり） ページの最後に飛ぶ

[[20141117112528]]　『条件で検索列ごと削除』（みどり）　ページの最後に飛ぶ