Excel vba textbox 怎么根据每一行分割
发布网友
共4个回答
热心网友
只有在MuiltLine属性为True的前提下TextBox才有多行，由于在这个控件中输入文本时换行是Ctrl+Enter实现的，所以用Split(TestBox.Value,Chr(10))就可以分割文本并保存在数组中：
Private Sub TextBox1_LostFocus()If Len(TextBox1.Value) > 0 Then
arr = Split(TextBox1.Value, Chr(10))
'激活下面的语句可以在A列显示数组arr
'Range("a1").Resize(UBound(arr) + 1) = Application.WorksheetFunction.Transpose(arr)
End If
End Sub
安排代码在控件失去焦点时才运行以保证输入完整
热心网友
可以用：Split函数，split（字符串,"分隔符"） 拆分字符串转为一维数组。
如果不理解，请自行百度：VBA split
热心网友
split吗？
热心网友
你想实现什么吧 我帮你实现就是了
