[已解决]请教如何快速修改数据

songdg

因为数据量比较大，手动修改很费时间，先谢谢了。

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-24 09:03

执行下面代码，结果会生成在sheet3中

1. Sub xx()
   
2.     Dim arr, n%, i%, j%, brr, crr(), r
   
3.     arr = Sheet1.Range("A1").CurrentRegion
   
4.     brr = Sheet2.Range("A1").CurrentRegion
   
5.     n = UBound(arr, 2) - 1 + UBound(brr, 2)
   
6.     r = UBound(brr, 1)
   
7.     ReDim Preserve crr(1 To r, 1 To n)
   
8.     For i = 1 To r
   
9.         crr(i, 1) = brr(i, 1)
   
10.         crr(i, n) = brr(i, 2)
    
11.         For j = 1 To UBound(arr, 1)
    
12.             If brr(i, 1) = arr(j, 1) Then
    
13.                 For k = 2 To UBound(arr, 2)
    
14.                     crr(i, k) = arr(j, k)
    
15.                 Next
    
16.                 Exit For
    
17.             End If
    
18.         Next
    
19.     Next
    
20.     Sheet3.Cells.Clear
    
21.     Sheet3.Range("A1").Resize(r, n) = crr
    
22. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

执行下面代码，结果会生成在sheet3中

1. Sub xx()
   
2.     Dim arr, n%, i%, j%, brr, crr(), r
   
3.     arr = Sheet1.Range("A1").CurrentRegion
   
4.     brr = Sheet2.Range("A1").CurrentRegion
   
5.     n = UBound(arr, 2) - 1 + UBound(brr, 2)
   
6.     r = UBound(brr, 1)
   
7.     ReDim Preserve crr(1 To r, 1 To n)
   
8.     For i = 1 To r
   
9.         crr(i, 1) = brr(i, 1)
   
10.         crr(i, n) = brr(i, 2)
    
11.         For j = 1 To UBound(arr, 1)
    
12.             If brr(i, 1) = arr(j, 1) Then
    
13.                 For k = 2 To UBound(arr, 2)
    
14.                     crr(i, k) = arr(j, k)
    
15.                 Next
    
16.                 Exit For
    
17.             End If
    
18.         Next
    
19.     Next
    
20.     Sheet3.Cells.Clear
    
21.     Sheet3.Range("A1").Resize(r, n) = crr
    
22. End Sub

复制代码

yorkchenshunan

直接把SHEET2拷贝到SHEET3，然后在SHEET3的AB两列之间插入3列，用VLOOKUP公式完成对SHEET3 B/C/D列的数据填充，然后通过定位错误值删除掉#N/A