如果“ I”列包含某个字母（或短语），并且“ D”列（日期）介于1月，2月等之间，则我试图将一行中的数据复制到另一张表中。
例如，我要复制的数据在名为“客户”的工作表上，如果列I包含字母“ T”，那么我希望该数据自动导入到下一个工作表，称为“税收-待处理”与所有这些客户在1月。
请注意，我只想复制行的某些详细信息。
我已经找到了VBA答案，但它仅适用于一个条件。
Sub CopyRow()
Application.ScreenUpdating = False
Dim x As Long, MaxRowList As Long, S As String, wsSource As Worksheet, wsTarget As Worksheet
Set wsSource = ThisWorkbook.WorkSheets("Clients")
Set wsTarget = ThisWorkbook.WorkSheets("Tax - Pending")
iCol = 1
MaxRowList = wsSource.Cells(Rows.Count, iCol).End(xlUp).Row
For x = 3 To MaxRowList
If InStr(1, wsSource.Cells(x, 9), "T") Then
wsTarget.Rows(x).Value = wsSource.Rows(x).Value
End If
Next
Application.ScreenUpdating = True
End Sub
要检查列中的日期D是否在当前月份内，请更改测试
If InStr(1, wsSource.Cells(x, 9), "T") Then
到这个：
If InStr(1, wsSource.Cells(x, 9), "T") And Month(wsSource.Cells(x, 4)) = Month(Now) Then
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句