Excel 2010 VBA逐步执行字符串并按顺序将一个char放入每个单元格中

Question

很多年前,我习惯在'C'中对字符串进行切片,但我正在尝试使用VBA来完成这项特定的任务.

现在我创建了一个字符串"this is a string"并创建了一个新的工作簿.

我现在需要的是使用字符串切片将't'放在A1中,将'h'放入A2中,将'i'放入字符串末尾.

之后我的下一个字符串将进入,例如B1等,直到所有字符串被切片.

我已经搜索过,但似乎大多数人都希望以相反的方式进行搜索(连接范围).

有什么想法吗？

Answer 1

使用mid函数.

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

第二个参数是起始位置,因此您可以将其替换为row或col函数之类的内容,以便您可以动态拖动公式.

即.

=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