基于多种细胞复制整个行的值

我试图复制在两个值是空白，第三单元格的值是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

来源

2011-04-21 SteveW1968

语法错误，其中行具体吗？ – Johan 2011-04-21 09:11:02

如果cell.Value =“”和表（“数据转储”）。范围（“M1：M5000”）<>“MS-NORT” – SteveW1968 2011-04-21 09:24:12

更新了答案，看看。 – Johan 2011-04-21 09:53:52

我不太清楚你的意思“其中两个值是空白，第三单元格的值是MS-NORT”

我假设你想检查每一行，如果列M <>“MS-NORT”并且列P和Q都为空，则复制该行。此代码将这样做

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

来源

2011-04-21 12:58:37 osknows

基于多种细胞复制整个行的值

回答

相关问题