我需要从另一个工作表更新表列中的某些值 . 对于名为“tbPartnerList”的表中的每一行，在表ws2中找到行号，其中ws2.Range（“B：B”）中的值与表的第1列中的值匹配 . 然后将关联值从ws2.Range（“AH：AH”）传输到表中的第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
excel-vba vba excel