基于多个单元格值复制整个行
|
我试图复制整个行，其中两个值为空白，第三个单元格值为
MS-NORT
Set MK = Sheets(\"data dump\").Range(\"P1:Q5000\")
For Each cell In MK
If cell.Value = \"\" And Sheets(\"Data Dump\").Range(\"M1:M5000\") <> \"MS-NORT\"
Then cell.EntireRow.copy
Sheets(\"working data\").Range(\"A\" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
End If
Application.CutCopyMode = False
Next
没有找到相关结果
已邀请:
1 个回复
橙绥
Sub test() Dim rngRow As Range, MK As Range, lngrow As Long Dim varCheckCol1 As Variant, varCheckCol2 As Variant, varCheckCol3 As Variant Set MK = Sheets(\"data dump\").Range(\"M1:Q5000\") For Each rngRow In MK.Rows varCheckCol1 = rngRow.Value2(1, 1) \'col M varCheckCol2 = rngRow.Value2(1, 4) \'col P varCheckCol3 = rngRow.Value2(1, 5) \'col Q If IsEmpty(varCheckCol2) And IsEmpty(varCheckCol3) And varCheckCol1 <> \"MS-NORT\" Then rngRow.EntireRow.Copy Sheets(\"working data\").Range(\"A\" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial End If Next End Sub