数据匹配问题

Question

我在让我的循环正确跳过记录时遇到问题。我有多个记录需要从许多从工作簿中更新到主工作簿中。每个从属都有不同的名称（它的用户），我需要通过只比较那些包含用户名称的记录，然后比较唯一 ID，而不是当前的唯一 ID，使我的 "Update" 循环更有效确实如此，即比较所有唯一 ID 以找到匹配项。

我当前的命令按钮只是在列中查找用户名，如果计数大于 0，它会调用模块来更新该用户的记录。

在 Master 和 Slave 中，第 1 列始终是记录的唯一 ID，第 2 列始终是记录分配给的用户。这是我目前的测试代码（将成为其他用户工作簿的模板）：

Option Explicit
Public Sub Agnes_Update()

 Dim owb As Workbook
 Dim Master, Slave As Worksheet
 Dim fpath As String
 Dim i, j As Integer

fpath = Application.ActiveWorkbook.Path & "\Agnes.xlsx"

Set owb = Application.Workbooks.Open(fpath)
Set Master = ThisWorkbook.Worksheets("Allocated")
Set Slave = owb.Worksheets("Work")


For j = 2 To 10 '(the master sheet)

For i = 2 To 10 '(the slave sheet)
    'if ID cell is blank exit - ends loop when all updates are completed
    If Trim(Slave.Cells(j, 1).Value2) = vbNullString Then Exit For 
    'if column 2 of master does not contain the current username being 
    'updated then move to next record
    If Master.Cells(j, 2).Value = "Agnes" Then  
    'if unique ID in column 1 matches slave from master then begin 
    'updating of required cells
    If Master.Cells(i, 1).Value2 = Slave.Cells(j, 1).Value2 Then
        Master.Cells(i, 4).Value = Slave.Cells(j, 4).Value
        Master.Cells(i, 5).Value = Slave.Cells(j, 5).Value
        Master.Cells(i, 6).Value = Slave.Cells(j, 6).Value
        Master.Cells(i, 7).Value = Slave.Cells(j, 7).Value
        Master.Cells(i, 8).Value = Slave.Cells(j, 8).Value
        Master.Cells(i, 9).Value = Slave.Cells(j, 9).Value
        Master.Cells(i, 10).Value = Slave.Cells(j, 10).Value
        Master.Cells(i, 11).Value = Slave.Cells(j, 11).Value
        Master.Cells(i, 12).Value = Slave.Cells(j, 12).Value
        Master.Cells(i, 13).Value = Slave.Cells(j, 13).Value
        Master.Cells(i, 14).Value = Slave.Cells(j, 14).Value
        Master.Cells(i, 15).Value = Slave.Cells(j, 15).Value
        Master.Cells(i, 16).Value = Slave.Cells(j, 16).Value
        Master.Cells(i, 17).Value = Slave.Cells(j, 17).Value
        Master.Cells(i, 18).Value = Slave.Cells(j, 18).Value
        Master.Cells(i, 19).Value = Slave.Cells(j, 19).Value
        Master.Cells(i, 20).Value = Slave.Cells(j, 20).Value
        Master.Cells(i, 21).Value = Slave.Cells(j, 21).Value
        Master.Cells(i, 22).Value = Slave.Cells(j, 22).Value
        Master.Cells(i, 23).Value = Slave.Cells(j, 23).Value
    End If
    End If
    Next
Next

Workbooks("Agnes").Close

End Sub

我比较喜欢用Master.cells = Slave.cells的方式，因为部分从属单元格被锁定，防止用户修改数据，以后部分数据的位置可能会改变列，所以我就简单了修改which master column = which slave column。我意识到我可以设置代码来解锁工作簿，但对于一些简单的更新来说，这是更多的编码。

我认为代码的当前问题出在行 If Master.Cells(j, 2).Value = "Agnes" Then 中，因为删除此行允许代码遍历所有唯一 ID 以查找和更新所有匹配项的主机，但我会相反，它仅在第 2 列中找到用户名时才尝试匹配唯一 ID，以尝试使代码更快、更高效。

谁能帮我更正此代码？

Answer 1

如果我理解正确，您需要将测试移到内部循环之前（我做了一些其他的小改动以减少代码量并停止重复）

Public Sub Agnes_Update()
Dim owb As Workbook
Dim wbname As String
Dim Master, Slave As Worksheet
Dim fpath As String
Dim i, j As Integer

    fpath = Application.ActiveWorkbook.Path & "\Agnes.xlsx"

    Set owb = Application.Workbooks.Open(fpath)
    wbname = Left$(owb.Name, InStrRev(owb.Name, ".") - 1)
    Set Master = ThisWorkbook.Worksheets("Allocated")
    Set Slave = owb.Worksheets("Work")

    For j = 2 To 10 '(the master sheet)

        'if column 2 of master does not contain the current username being
        'updated then move to next record
        If Master.Cells(j, 2).Value = wbname Then

        For i = 2 To 10 '(the slave sheet)

            'if ID cell is blank exit - ends loop when all updates are completed
            If Trim(Slave.Cells(j, 1).Value2) = vbNullString Then Exit For

                'if unique ID in column 1 matches slave from master then begin
                'updating of required cells
                If Master.Cells(i, 1).Value2 = Slave.Cells(j, 1).Value2 Then

                    Slave.Cells(j, 4).Resize(, 20).Copy
                    Master.Cells(i, 4).PasteSpecial Paste:=xlPasteValues
                End If
            End If
        Next
    Next

    owb.Close SaveChanges:=False
End Sub

数据匹配问题

Issue with data match

excel

vba

for-loop

if-statement

updates