求救！如何修改符合另一数据表中条件的数据属性

哈哈雅婷

有2张表格，分别为sheet1--原表格，sheet2为需要修改的数据表格

表格1和表格2都有对应的统一的编号，表格2中不是每个属性都要修改的，当不为空值的时候修改表格1中对应行的对应属性，有大神知道怎么做不？

jnsxmt

1. Sub test()
   
2.     Dim ar, m&, n&, k&
   
3.     With Worksheets("sheet2")
   
4.         ar = Intersect(.UsedRange, .UsedRange.Offset(1, 0))
   
5.     End With
   
6.     With Worksheets("sheet1")
   
7.         For m = 2 To .[a1].CurrentRegion.Rows.Count
   
8.             For n = LBound(ar, 1) To UBound(ar, 1)
   
9.                 If ar(n, 1) = .Cells(m, "a") Then
   
10.                     For k = 2 To 4
    
11.                         If ar(n, k) <> "" Then
    
12.                             .Cells(m, k) = ar(n, k)
    
13.                         End If
    
14.                     Next
    
15.                 End If
    
16.             Next
    
17.         Next
    
18.     End With
    
19. End Sub

复制代码