Excel VBA - 查找和更新另一个工作表中的表值

Question

我需要更新另一个工作表的表格列中的某些值。对于表中的每一行，称为＆＃34; tbPartnerList＆＃34;在表ws2中找到行号，其中ws2.Range（＆＃34; B：B＆＃34;）中的值与表的第1列中的值匹配。然后将相关值从ws2.Range（＆＃34; AH：AH＆＃34;）传输到表中的第14列。虽然我可以在ws2中找到值，但我很难将其返回到表中。 [tbPartnerList]不支持的方法.ListRows（row）.Columns（14）= ws2.Cells（rng.row，34）

Set ws2 = Sheet6

For Each row In [tbPartnerList].Rows
    partAccount = row.Columns(1).Value
    With ws2.Range("B:B")
        Set rng = .find(What:=partAccount, _
                                After:=.Cells(.Cells.Count), _
                                LookIn:=xlValues, _
                                LookAt:=xlWhole, _
                                SearchOrder:=xlByRows, _
                                SearchDirection:=xlNext, _
                                MatchCase:=False)
        If Not rng Is Nothing Then
            [tbPartnerList].ListRows(row).Columns(14) = ws2.Cells(rng.row, 34)
        End If
    End With
Next