[已解决]关于使用VBA代码达成数据替换的问题---求助

iphone4

请教如何使用VBA代码、


根据sheet1里面B列的正确数据
替换sheet2里面B列的错误数据？？？




关于数据替换的问题---求助.rar (6.23 KB, 下载次数: 16)

2011-8-28 17:03 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2011-8-28 18:19

数据多的话用公式还是费时间的，给你一个VBA的：
数据替换.rar (11.27 KB, 下载次数: 30)

2011-8-28 18:19 上传

点击文件名下载附件

跳转到最佳答案楼层

太得闲

绝对不是路过 来学习学习 谢谢

liyh67

用公式就可以了=IF(ISNA(VLOOKUP(B3,Sheet1!B:C,2,)),B3,VLOOKUP(B3,Sheet1!B:C,2,))

zjdh

数据多的话用公式还是费时间的，给你一个VBA的：
数据替换.rar (11.27 KB, 下载次数: 30)

2011-8-28 18:19 上传

点击文件名下载附件

cjainwei

1. Sub t()
   
2. Dim arr, arr1, arr2
   
3. arr = Sheet1.Range("B3:C" & Sheet1.Range("B65536").End(xlUp).Row)
   
4. arr1 = Sheet2.Range("B3:B" & Sheet2.Range("B65536").End(xlUp).Row)
   
5. ReDim arr2(1 To UBound(arr1, 1), 1 To 1)
   
6. For i = 1 To UBound(arr1, 1)
   
7.     For j = 1 To UBound(arr, 1)
   
8.         If arr(j, 1) = arr1(i, 1) Then
   
9.             arr2(i, 1) = arr(j, 2)
   
10.             i = i + 1
    
11.         Else
    
12.             arr2(i, 1) = arr1(i, 1)
    
13.         End If
    
14.     Next
    
15. Next
    
16. Sheet2.Cells(3, 3).Resize(UBound(arr1, 1), 1).ClearContents
    
17. Sheet2.Cells(3, 3).Resize(UBound(arr1, 1), 1) = arr2
    
18. End Sub
    

复制代码

iphone4

回复 cjainwei 的帖子

大侠，您的代码在( 西西乐sdf )这个数据上，替换不了~！！！