EXCELで、ある行のみ抽出したい（マクロ・関数）

質問

こんにちは！

マクロまたは関数を使って、列DがA1のとき、次に続く行で、かつD1の行のみを残したい（もしくは新しいワークシートにコピー）と考えています。
なお、A1の入る行はいくつもあり、それらすべてを抽出できたらと思います。

何か良い方法はありますでしょうか？
よろしくお願いいたします。

回答No.1

tom04

こんばんは！
VBAでの一例です。

Sub test() 'この行から
Dim i As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")
ws1.Columns(1).Insert
For i = 2 To ws1.Cells(Rows.Count, 2).End(xlUp).Row
If ws1.Cells(i, 4) = "A1" Then
ws1.Cells(i, 1) = "A1"
ElseIf ws1.Cells(i, 4) = "" And ws1.Cells(i - 1, 1) = "A1" Then
ws1.Cells(i, 1) = "A1"
End If
Next i
For i = 2 To ws1.Cells(Rows.Count, 2).End(xlUp).Row
If ws1.Cells(i, 1) = "A1" And ws1.Cells(i, 2) = "D1" Then
With ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Value = ws1.Cells(i, 2)
.Offset(, 1) = ws1.Cells(i, 3)
.Offset(, 2) = ws1.Cells(i, 4)
End With
End If
Next i
ws1.Columns(1).Delete
End Sub 'この行まで

こんな感じではどうでしょうか？m(_ _)m