[已解决]提取单元格对应的值

hhaa999

提取单元格对应的值

最佳答案

月排行榜 / 总排行榜

lisachen

2011-12-11 10:59

11.rar (9.62 KB, 下载次数: 24)

2011-12-11 10:59 上传

点击文件名下载附件

跳转到最佳答案楼层

lisachen

11.rar (9.62 KB, 下载次数: 24)

2011-12-11 10:59 上传

点击文件名下载附件

上清宫主

偷懒的：
Sub aa()
Dim i, ar1(), ar2()
'i = [g65536].End(xlUp).Row
'ar1 = Range("g2:g" & i).Value
ar1 = Range("g2:g8").Value
i = [a65536].End(xlUp).Row
ar2 = Range("c1:c" & i).Value
For i = 1 To UBound(ar1)
   ar1(i, 1) = ar2(ar1(i, 1), 1)
Next i
[h2].Resize(i - 1) = ar1
End Sub