Question

EXCEL 宏代码显示指定单元格内的数据

I列显示 H列单元格内数值所指定在A列位置里面的数据I1单元格显示 H1单元格内数值所指定在A列位置里面的数据（如果H1里没有数值 那么I1不显示）I2单元格显示 H2单元格内数值所指定在A列位置里面的数据（如果H2里没有数值 那么I2不显示）I3单元格显示 H3单元格内数值所指定在A列位置里面的数据（如果H3里没有数值 那么I3不显示）I4单元格显示 H4单元格内数值所指定在A列位置里面的数据（如果H4里没有数值 那么I4不显示）以此类推 A列数据是固定不变的 H列数据是会随机变化的已经有函数答案了 但是在运行过程中速度会很慢所以需要宏代码实现 谢谢 高手解答

Answer 1

一个函数解决
I1输入
=IF(H1="","",INDEX(A:A,H1))
下拉公式
代码是
Sub 查找()
Dim I As Integer
For I = 1 To 40
If Cells(I, "H") <> "" Then Cells(I, "I") = Cells(Cells(I, "H"), "A")
Next
End Sub

追问

已经有函数答案了 但是在运行过程中速度会很慢
所以需要宏代码实现
谢谢 需要宏代码 谢谢

追答

Sub 查找()
Dim I As Integer
For I = 1 To 40

If Cells(I, "H") "" Then Cells(I, "I") = Cells(Cells(I, "H"), "A")

Next

End Sub

根据实际，将代码里的40，修改为你实际的行数

追问

要查找的行数一共是65530行，输入65530后 运行显示溢出 。还有H列数值是不会大于400（也就是说A列中 A1：A400 是有数据的）。这个代码运行有点慢，再看看 谢谢

追答

Sub 查找()
Dim I As Integer
For I = 1 To Range("H65536").End(xlUp).Row

If Cells(I, "H") "" Then Cells(I, "I") = Cells(Cells(I, "H"), "A")

Next

End Sub

追问

我的是 excel2003 还是溢出 还有H列数值是不会大于400（也就是说A列中只有 A1：A400 是有数据的）。这个代码运行有点慢
查找范围缩小到A1:A400 是否会快点 在帮忙看看 谢谢

追答

这个和A列有多少行无关，也和H列的数字多少无关
他只判断，H列的数字是多少？然后自动查找对应A列的数据，显示在I列。
你H列有多少行数据？