VBA中，选择所有满足条件的行复制到另一工作表
给sheet2 中的按钮指定宏，根据A2, B2, 距今60天内这三个条件，在sheet1中查找，并把满足条件的所有行，复制到sheet2，如图，从sheet2的第5行开始黏贴，公式应该怎么写，感谢
第1个回答 2017-08-20
http://pan.baidu.com/s/1o7W6338
Sub a()
Dim a, b
b = 5
For a = 2 To WorksheetFunction.CountA(Sheet1.Columns(1))
If Sheet1.Cells(a, 3) = Cells(2, 1) And Sheet1.Cells(a, 4) = Cells(2, 2) And DateDiff("d", Sheet1.Cells(a, 1), Now) + 1 <= 60 Then
Sheet1.Rows(a).Copy Cells(b, 1)
b = b + 1
End If
Next
End Sub追问
Sub a()
Dim a, b
b = 5
For a = 2 To WorksheetFunction.CountA(Sheet1.Columns(1))
If Sheet1.Cells(a, 3) = Cells(2, 1) And Sheet1.Cells(a, 4) = Cells(2, 2) And DateDiff("d", Sheet1.Cells(a, 1), Now) + 1 <= 60 Then
Sheet1.Rows(a).Copy Cells(b, 1)
b = b + 1
End If
Next
End Sub追问
首先感谢你的答案，不过Sheet1.Rows(a).Copy Cells(b, 1)复制过来的是公式，如何只复制数值不复制公式, thanks again.
追答把你说的那句删了，改成
Sheet1.Rows(a).Copy
Cells(b, 1).PasteSpecial Paste:=xlPasteValues
第2个回答 2017-08-20
闻 电竞职业选
相似回答