inputbox问题

haiyang3

inputbox 粘贴输入以下内容时，只能显示AAAA，怎么写代码



AAAA
BBBB
CCCC

杨建营

猜一下，中间加上分隔符，读入后分隔数据。

ykcbf1100

用回车符来拆分字段？
没有附件的求助很难得到满意的回复，大多数人会直接飘过，因为怕浪费时间。

tanglf188

大概猜测一下

1. Sub test6()
   
2.     intext = InputBox(Chr(10) & Chr(10) & "请输入文本，每行用< / >分割", "输入信息")
   
3.     If intext = "" Then Exit Sub
   
4.     arr = Split(intext, "/")
   
5.     For i = 0 To UBound(arr)
   
6.         ch = ch & arr(i) & Chr(10)
   
7.     Next
   
8.     MsgBox ch
   
9. End Sub
   

复制代码

zjzyj

“只能显示AAAA”，这是你遇到的问题吗？还是你想达到的目的？

zjzyj

Sub testInputBox()

Set rrr = Application.InputBox("请用鼠标选择区域地址", , , , , , , 8)

For Each r In rrr
    If sss = "" Then
        sss = r.Value
    Else
        sss = sss & vbCrLf & r.Value
    End If
Next

MsgBox sss

End Sub