使用SPLIT函数从用户表单中分隔数字列表

Question

我有一个用户窗体，该窗体具有以列样式输入的数字列表，除了在单独的行上之外没有其他任何分隔符。输入用户表单将如下所示：

2172223333
2172223334
2172223335
2172223336
2172223337

如何使用SPLIT函数将此批量条目拆分为用户表单，并将其分为电子表格同一列中的单独单元格？如果术语之间有逗号或空格，我会熟悉它的工作原理，但是它将以某种方式将单独的一行识别为轮廓线，如果是这样，我将在代码中使用什么符号来表示它？ >

我希望能够读取此输入并将其输入到工作簿中，例如（“ workbookA”）和sheets（1），然后将其放在A列中，从第二行开始，一直向下到A列。 / p>

Answer 1

尝试一下：

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

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

在VBA中，用于换行，回车和换行+回车（https://en.wikipedia.org/wiki/Newline）的常量vbLf，vbCr，vbCrLf代表字符。 / p>