string - Excel 2010 VBA 遍历一个字符串并按顺序将一个字符放入每个单元格

Question

许多年前，我习惯于在“C”中进行字符串切片，但我正在尝试使用 VBA 来完成这项特定任务。

现在我创建了一个字符串“这是一个字符串”并创建了一个新工作簿。

我现在需要的是使用字符串切片将't'放入A1中，A2中的'h'，A3中的'i'等到字符串的末尾。

之后我的下一个字符串将进入，比如 B1 等，直到所有字符串都被切片。

我已经搜索过了，但似乎大多数人都想反过来（连接一个范围）。

有什么想法吗？

Answer 1

使用中间功能。

=MID($A$1,1,1)

第二个参数是起始位置，因此您可以将其替换为 row 或 col 函数，以便您可以动态拖动公式。

IE。

=MID($A$1,ROW(),1)

如果您想纯粹在 VBA 中执行此操作，我相信 mid 函数也存在于其中，因此只需遍历字符串即可。

Dim str as String
str = Sheet1.Cells(1,1).Value

for i = 1 to Len(str)
    'output string 1 character at a time in column C
    sheet1.cells(i,3).value = Mid(str,i,1)
next i

* 编辑 *

如果您想使用数组中的多个字符串执行此操作，您可以使用以下内容：

Dim str(1 to 2) as String
str(1) = "This is a test string"
str(2) = "Some more test text"

for j = Lbound(str) to Ubound(str)
    for i = 1 to Len(str(j))
        'output strings 1 character at a time in columns A and B
        sheet1.cells(i,j).value = Mid(str(j),i,1)
    next i
next j