[已解决]宏代码：提取特定位置的数值

lijian8003

附件中，A列-P列有00-99乱序数值，欲：
1、在A列找出等于Q1数值的行，然后在B列取同行的数值，写入R1单元格；
2、在B列找出等于Q1数值的行，然后在C列取同行的数值，写入S1单元格；
...
15、在O列找出等于Q1数值的行，然后在P列取同行的数值，写入AF1单元格。
这样的宏代码如何写？恳望得到帮助。
附件在2#

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2014-6-1 15:51

附件请测试

1. Private Sub CommandButton1_Click()
   
2. Dim arr(1 To 15), i&, rng As Range
   
3. For i = 1 To 15
   
4.   Set rng = Columns(i).Find([q1], lookat:=xlWhole)
   
5.   If Not rng Is Nothing Then arr(i) = rng.Offset(, 1)
   
6. Next i
   
7. [r1].Resize(, 15) = arr
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

lijian8003

1#不能发附件，故此在2#发

大灰狼1976

附件请测试

1. Private Sub CommandButton1_Click()
   
2. Dim arr(1 To 15), i&, rng As Range
   
3. For i = 1 To 15
   
4.   Set rng = Columns(i).Find([q1], lookat:=xlWhole)
   
5.   If Not rng Is Nothing Then arr(i) = rng.Offset(, 1)
   
6. Next i
   
7. [r1].Resize(, 15) = arr
   
8. End Sub
   

复制代码