使用 SPLIT 函数从用户窗体中分离数字列表

Question

我有一个用户表单，其中包含以列样式输入的数字列表，除了在单独的行上之外没有分隔符。进入用户表单将如下所示：

如何使用 SPLIT 函数将用户表单中的批量条目分隔到电子表格同一列中的单独单元格中？如果在术语之间寻找逗号或 space，我很熟悉它是如何工作的，但它会以某种方式将单独的行识别为描述符吗？如果是，我用什么符号来表示它在代码？

我希望能够读取此输入并将其输入到工作簿中，比如 ("workbookA") 和工作表 (1)，然后将其放入 A 列，从第 2 行开始向下停留A 列

Answer 1

试试这个：

myString = ...
data = split(myString, vbcrlf)
workbooks("workbookA").worksheets(1).range("A2").resize(ubound(data)+1,1).value = application.transpose(data)

myString 是包含您的数据的字符串。

在 VBA 中，您有常量 vbLf、vbCr、vbCrLf 用于换行、回车 return 和换行 + 回车 return (https://en.wikipedia.org/wiki/Newline)，代表字符。

使用 SPLIT 函数从用户窗体中分离数字列表

use SPLIT function to seperate a list of numbers from a userform

excel

vba

split

userform