所以我有一个宏,可以根据日期自动选择自动过滤器中的值 .
这很好用 . 但是我需要它只复制带有数据的可见单元格并将其粘贴到名为“referral”的工作表中的NEXT可用行中 .
Sub Referral()
Application.ScreenUpdating = False
With Sheets("Raw")
Sheets("Raw").ShowAllData
Sheets("Raw").Range("A1:BK1").AutoFilter Field:=14, _
Criteria1:=Format(Sheets("Main").Range("E13").Value + 15, "mm/dd/yyyy")
Sheets("Raw").Range("A1:BL50000").Copy
End With
End Sub
1 回答