将字符串拆分为多个字符的函数

Question

我想创建一个自定义函数，该函数采用所选参数并将其内容拆分到不同的单元格中。

例子 ：

A1=ABCDE

变成

B1=A, C1=B, D1=C, E1=D, F1=E

所以这就是我尝试过的：

Function SplitWord(Word)
NbCar = Len(Word) // get the number of cardinals of the text
SplitWord = Left(Word, 1) // put the first letter in the cell that called the function
t = NbCar - 1
For i = 1 To t
ActiveCell.Offset(0, i) = Right(Left(Word, i), 1)
Next
End Function

Answer 1

1. 在单元格 A1 中输入要拆分的内容。
2. 将其粘贴到单元格 B1 中： =MID($A$1,COLUMN()-COLUMN($B$1)+1,1)
3. 向右拖动

Answer 2

您也可以使用简单的 Excel 公式执行此操作 - 将此单元格放在 B1 中并将其复制到 C1-F1：

=MID(A1,COLUMN()-COLUMN($B$1)+1,1))

Answer 3

尝试=MID($A1,COLUMNS($A$1:A$1),1) ，然后将其向左拖动它就会出现。

Answer 4

1) 将要拆分的文本放入单元格 A1 ( image )

2）然后将此功能粘贴到您想要的任何单元格中（图像）

=MID($A1;COLUMN(A1)-COLUMN($A1)+1;1)

3) 将鼠标光标移到粘贴上述函数的单元格右下角的小方块上（图片）

4) 单击并按住填充手柄，向右拖动以填充系列（图像）

Answer 5

从工作表调用此 UDF 时，您无法修改 UDF 中的单元格（实际上有可能的方法，但它们很复杂，我不建议使用它们）。 您可以改用此功能：

Function SplitWord(Word As String) As String()
    Dim res() As String
    ReDim res(1 To Len(Word))
    For i = 1 To Len(Word)
        res(i) = Mid(Word, i, 1)
    Next
    SplitWord = res
End Function

---

如何使用它：

1. 选择目标范围（例如B1:F1 ）
2. 使用选定的范围在公式栏中输入公式=SplitWord(A1)
3. 按CTRL + SHIFT + ENTER对其进行评估

如果您的目标范围在一列（例如B1:B5 ）中，请使用=TRANSPOSE(SplitWord(A1))

Answer 6

将其放在任何第一行单元格中：=MID($A$1,ROW(),1)