[已解决]如何用宏代码提取特定单元格的数据

lijian8003

请看附件。
用宏代码提取特定单元格的数据：
若单元格B1-FAN1有数据=A1，则提取B1-FAN1单元格对应的下一个单元格的数据，写入Sheet2的A1 B1 C1…
比如：B1=A1，则提取B2的数据61，在Sheet2的A1写入61

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-6 08:40

1. Sub demo()
   
2.     Dim ar, br()
   
3.     ar = Sheet1.Range("b1:fan2")
   
4.     ReDim br(1 To 1, 1 To UBound(ar, 2))
   
5.     For j = 1 To UBound(ar, 2)
   
6.         If ar(1, j) = Range("a1").Value Then
   
7.             n = n + 1
   
8.             br(1, n) = ar(2, j)
   
9.         End If
   
10.     Next
    
11.     Sheet2.Range("a1").Resize(, n) = br
    
12. End Sub
    

复制代码

楼主试试，附件在楼下

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2.     Dim ar, br()
   
3.     ar = Sheet1.Range("b1:fan2")
   
4.     ReDim br(1 To 1, 1 To UBound(ar, 2))
   
5.     For j = 1 To UBound(ar, 2)
   
6.         If ar(1, j) = Range("a1").Value Then
   
7.             n = n + 1
   
8.             br(1, n) = ar(2, j)
   
9.         End If
   
10.     Next
    
11.     Sheet2.Range("a1").Resize(, n) = br
    
12. End Sub
    

复制代码

楼主试试，附件在楼下

qh8600

用宏代码提取特定单元格的数据.rar (47.27 KB, 下载次数: 4)

2014-11-6 08:41 上传

点击文件名下载附件
。。。。。