Question

在此先感谢，我正在尝试匹配第14列和第34页中第1页的第1页中的值。到sheet2的A列，如果匹配，则将整个行复制粘贴到sheet3，然后从sheet1中删除整行。

以下代码可以正常匹配和删除：

Sub remDup()
Dim LR As Long, i As Long
With Sheets("Sheet1")
    LR = .Range("D" & Rows.Count).End(xlUp).Row
    For i = LR To 1 Step -1
        If IsNumeric(Application.Match(.Range("D" & i).Value, Sheets("Sheet2").Columns("A"), 0)) Then .Rows(i).Delete
    Next i
End With
End Sub

但它并没有粘贴在sheet3中删除的行。

试图做一些但没有成功的事情。

Sub remDup()
Dim LR As Long, i As Long, n As Long
With Sheets("sheet1")
    LR = .Range("D" & Rows.Count).End(xlUp).Row
    For i = LR To 1 Step -1
        If IsNumeric(Application.Match(.Range("D" & i).Value, Sheets("sheet2").Columns("A"), 0)) Then Sheets("sheet3").Row(n) = Rows(i) & .Rows(i).Delete
        n = n + 1
    Next i
End With
End Sub

请帮助，我还必须将它与表2（A，B和C）中的三列相匹配，但是在这段代码中，我只使用A列进行了操作，并且认为通过更改将运行相同的代码三次列名。

有没有办法一次性完成。

再次感谢。

Answer 1

也许这可以帮到你。 已编辑。来自JimmyPenna的IsInArray功能。链接here。

- (BOOL)application:(UIApplication *)application didFinishLaunchingWithOptions:(NSDictionary *)launchOptions
{
    application.statusBarStyle = UIStatusBarStyleLightContent;
}

如果一张纸的值与另一张纸匹配，则将该行粘贴到另一张纸中

1 个答案: