Question

如何用2007版Excel VBA提取给定条件单元格数据？

E列提货人下面空白时，向左提取D列数据到F3单元格，其他以此类推。

Answer 1

Sub 复制()

Dim i&, a%

i = Range("d5").End(xlDown).Row

Range("f:f").ClearContents

For a = 5 To i

If Cells(a, 5).Value <> "" Then

Else: Cells(a, 4).Copy Cells(a - 2, 6)

End If

Next

End Sub

没太理解你的意思。

追问

说得不够清楚。应每次只提取一个数据。

追答

Sub 复制()
Dim i&, a%
i = Range("d5").End(xlDown).Row
Range("f:f").ClearContents
For a = 5 To i
If Cells(a, 5).Value "" Then
Else: Cells(a, 4).Copy Cells(a - 2, 6)
Exit For
End If
Next
End Sub
做题呢？

追问

提取的数据全部都放在F3单元格，新提取的数据把旧的数据删了。

追答

Sub 复制()
Dim i&, a%
i = Range("d5").End(xlDown).Row
Range("f:f").ClearContents
For a = 5 To i
If Cells(a, 5).Value "" Then
Else: Cells(a, 4).Copy Cells(3, 6)
If MsgBox("是否继续", vbOKCancel) = vbOK Then
Else
Exit For
End If
End If
Next