☰

匹配/查找不同工作表中的行

tag-icon • tag-icon microsoft-excel-2013
匹配/查找不同工作表中的行

我有 2 张工作表，其中包含商家、金额、数据等列。两张工作表之间 100% 相同的是金额。我想匹配/找出工作表 1 + 工作表 2 中包含相同金额的行。其中一张工作表中的数据比另一张工作表中的数据多，因此例如，工作表 1 中的第 3 行与工作表 2 中的第 3 行不匹配。我必须以某种方式搜索金额。

答案1

这样应该可以，但是你的问题很不清楚:(

Sub FindTheThings()

Dim resultRow As Integer
resultRow = 2

Dim currentRow As Integer
currentRow = 2

Worksheets("Sheet3").Range("A1").Value = "Sheet1 row"
Worksheets("Sheet3").Range("B1").Value = "Sheet2 row"

Do While (Worksheets("Sheet1").Range("B" & currentRow).Value <> "")

Dim amount As String
amount = Worksheets("Sheet1").Range("B" & currentRow).Value

Dim currentRowSheet2 As String
currentRowSheet2 = 2

    Do While (Worksheets("Sheet2").Range("B" & currentRowSheet2).Value <> "")

        Dim sheet2amount As String
        sheet2amount = Worksheets("Sheet2").Range("B" & currentRowSheet2).Value

        If (sheet2amount = amount) Then

            Worksheets("Sheet3").Range("A" & resultRow).Value = currentRow
            Worksheets("Sheet3").Range("B" & resultRow).Value = currentRowSheet2

            resultRow = resultRow + 1
            Exit Do
        End If

    currentRowSheet2 = currentRowSheet2 + 1
    Loop
currentRow = currentRow + 1

Loop

End Sub

存在一些问题，例如，如果金额出现多次会发生什么情况，如果 Sheet1 数据的值比 Sheet2 多或少会发生什么情况，如何呈现信息等

无论如何，这个 VBa 应该可以让你开始，因为它可以进行调整

第 1 页

在此处输入图片描述

第 2 页

在此处输入图片描述

工作表 3（宏运行后创建）

在此处输入图片描述

答案2

=VLOOKUP(B1,Sheet1!$A$1:$B$28,2,0)找到第一个实例。

=COUNTIF(Sheet1!$A:$A,Sheet2!B2)判断是否存在多个实例。

相关内容