Mysql 根据从另一个Excel文件中查找列a上的值复制整行

我有两个Excel文件：

大约175k行和6.5k列-列A有一些唯一的数字，其余的有一些重复的值

大约600k行和2列-A列有一些唯一的数字，B列有一些重复的文本

---

基于Excel 2中的A列，其中我有一些唯一的数字，我需要将它们与Excel 1中的A列相匹配。完成后，需要以某种方式将行的其余部分（重复值）复制到另一张图纸中。完成后，根据复制的数据，我们需要识别Excel 1列中的值，该列的其余行上有一个或多个重复值。

所以您的问题不是很具体，这使得回答起来有点困难。不过，我相信我理解你的要求

我想你会打开其中一本工作手册。（可以是“Excel 1”或“Excel 2”，然后希望运行宏来完成繁重的工作。以下是供您试用的示例代码。我假设您将从打开“Excel 1”开始，然后将匹配项复制到新工作表而不是新工作簿

Dim wbk as Workbook
Dim Total1Rows as Long
Dim Total2Rows as Long
Dim ws as Worksheet
Dim NewRows as Int
Application.ScreenUpdating = False
Set wbk = Workbooks.Open(" file location of 'Excel 2' ")
Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws.Name = "Pick a Name"
Total1Rows = Worksheets(" 'Excel 1' name of worksheet ").UsedRange.Rows.Count
Total2Rows = wbk.Worksheets(" 'Excel 2' name of worksheet ").UsedRange.Rows.Count
For i = 1 to Total1Rows
    For j = 1 to Total2Rows
        If Worksheets(" 'Excel 1' name of worksheet ").Range("A" & i) = wbk.Worksheets(" 'Excel 2' Name of Worksheet ").Range("A" & j) Then
            NewRows = Worksheets(ws.Name).Range("A" & Rows.Count).End(xlUp).Row
            wbk.Worksheets(" 'Excel 2' name of worksheet").Range("A" & j & ":Z" & J).Copy
            Worksheets(" 'Excel 1' name of worksheet").Range("A" & NewRows).PasteSpecial
        End If
    Next j
Next i

---

这实际上是我第一次发布答案，请原谅。

您是否有任何到目前为止尝试过的vba示例？为什么这个标签是mysql？您好，不幸的是，我无法运行这个，我似乎无法理解为什么。您无法运行这个，因为您必须用特定的名称替换代码中的一些内容f工作手册中的内容。例如工作手册的名称和特定工作表的名称。如果您通读代码，您将看到我在哪里编写了您特别需要添加的内容。