怎么让a列数据依次在b1单元格显示？

睿泽幽林

请教一下，怎么让a列数据 点击下一个按钮 依次在b1单元格显示？谢谢！

cnmlgb9998

1. =TEXTJOIN(CHAR(10),TRUE,A1:A7)

复制代码

WANT-T

cnmlgb9998 发表于 2024-5-6 11:49

人家要的是一次展示一个，不是拼接起来，再来，大佬

cnmlgb9998

for i=0 to ubound(arr)

swl4561255

Sub DisplayAColumnData()
If [B1] = "" Then
   [B1] = Range("A1")
    Exit Sub
End If
    r = Application.Match([B1], Range("A:A"), 0)
    If r = Range("A1").End(4).Row Then
        [B1] = Range("A1")
    Else
        [B1] = Range("A" & r + 1)
    End If
End Sub

gwjkkkkk

Sub test()
Dim ar, i&, iRow&
ar = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value
iRow = IIf(Cells(Cells(Rows.Count, "B").End(xlUp).Row, 2) = "", 1, Cells(Rows.Count, "B").End(xlUp).Row + 1)
If iRow > UBound(ar) Then Exit Sub
Cells(iRow, 2).Value = ar(iRow, 1)
End Sub

cyq4896

参与一下。。。