|
本帖最后由 lijian8003 于 2014-12-14 13:52 编辑
请看附件。
用宏代码提取特定单元格的数据:
若单元格B1-FAN1有数据=A1,则提取B1-FAN1单元格对应的下一个单元格的数据,写入Sheet2的A1 B1 C1…
比如:B1=A1,则提取B2的数据61,在Sheet2的A1写入61
- Sub demo()
- Dim ar, br()
- ar = Sheet1.Range("b1:fan2")
- ReDim br(1 To 1, 1 To UBound(ar, 2))
- For j = 1 To UBound(ar, 2)
- If ar(1, j) = Range("a1").Value Then
- n = n + 1
- br(1, n) = ar(2, j)
- End If
- Next
- Sheet2.Range("a1").Resize(, n) = br
- End Sub
复制代码楼主试试,附件在楼下
|
|