Sub 满足指定区域的指定条件后提取数据()
Dim i, j, k
i = Cells(Rows.Count, "B").End(xlUp).Row
For j = i To 2 Step -1
If Cells(j, 2) = "女" Then
Cells(j, 2).Offset(0, -1).Resize(1, 3).Copy _
Cells(Rows.Count, "G").End(xlUp).Offset(1, 0)
k = k + 1
If k = 3 Then Exit For
End If
Next j
End Sub