Question

Excel中，想把sheet1 A列指定范围内的数据逐个显示在sheet2 A18中，请帮忙高手，用vb如何实现？谢谢！

点击“开始”，让sheet1中的指定范围内的数据每隔3秒逐个显示在sheet2 A18中，按“结束”，即停止。
请高手帮忙，谢谢你！





Answer 1

Public x
Sub TEST()
i = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
If x < i Then
Sheets(2).[a18] = Sheets(1).Cells(x, 1)
End If
End Sub

Sub TT()
x = x + 1
Call TEST
Application.OnTime EarliestTime:=Now + TimeValue("00:00:03"), Procedure:="TT"
End Sub

追问

把该代码放在哪里

追答

模块中。这些代码的基础只是就不用说了吧

Answer 2

数据在单元格显示 vba代码提供

追问

能发个附件吗?

追答

看名字 文件发来我给你弄