请教大神一个关于跨工作表获取值的问题

yuze70

ID.rar (6.35 KB, 下载次数: 11)

2014-1-13 21:16 上传

点击文件名下载附件
获取值

大神们好，我是小白一枚，现在想各位请教一个问题
SHEET2和SHEET1中的 A列是有相同内容的，（但顺序不同，而且行数不确定），
想获取sheet2中每个B列的数据（与A列相对应的位置），
写入sheet1的B列中。（与A列内容相符合的位置上）。

求大神用VBA帮忙写一下，小白跪谢！~{:soso_e154:}

CheryBTL

以下代码，请楼主测试：

1. Sub test()
   
2.     Dim ar1, ar2, re
   
3.     Dim i As Integer, j As Integer
   
4.     ar1 = Sheets(1).Range("A1").CurrentRegion
   
5.     ar2 = Sheets(2).Range("A1").CurrentRegion
   
6.     ReDim re(1 To UBound(ar1), 1 To 1)
   
7.     For i = 1 To UBound(ar1)
   
8.         For j = 1 To UBound(ar2)
   
9.             If ar1(i, 1) = ar2(j, 1) Then re(i, 1) = ar2(j, 2): Exit For
   
10.         Next j
    
11.     Next
    
12.     Sheets(1).[b1].Resize(UBound(re)) = re
    
13. End Sub
    

复制代码

yuze70

CheryBTL 发表于 2014-1-13 21:45
以下代码，请楼主测试：

非常感谢你，关于Redim看不太懂，让我研究一下。
大神，我还有一个问题，
工作中sheet1和sheet2 中的AB列的数据都不是连续的，中间会存在空白行的。
这样代码就只能执行到第一个空白行为止了，该怎么改才能让程序把所有数据都列好呢？
再次感谢您。谢谢。

CheryBTL

1. ar1 = Sheets(1).Range("A1").CurrentRegion
   
2. ar2 = Sheets(2).Range("A1").CurrentRegion

复制代码

分别改为以下代码即可：

1. ar1 = Sheets(1).Range("A1:A"& Sheets(1).[a65536].end(3).row)
   
2. ar2 = Sheets(2).Range("A1:A"& Sheets(2).[a65536].end(3).row)

复制代码

yuze70

CheryBTL 发表于 2014-1-13 22:22
分别改为以下代码即可：

If ar1(i, 1) = ar2(j, 1) Then re(i, 1) = ar2(j, 2): Exit For

下标越界，怎么会呢？

CheryBTL

yuze70 发表于 2014-1-13 22:25
If ar1(i, 1) = ar2(j, 1) Then re(i, 1) = ar2(j, 2): Exit For

下标越界，怎么会呢？

抱歉，第二个把A改成B即可：

1. ar2 = Sheets(2).Range("A1:B"& Sheets(2).[a65536].end(3).row)

复制代码

yuze70

CheryBTL 发表于 2014-1-13 22:29
抱歉，第二个把A改成B即可：

嗯，搞定了！谢谢大神，么么哒！