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

kninwzqo 于 2023-05-01 发布在其他

关注(0)|答案(7)|浏览(317)

我想创建一个自定义函数，该函数接受选定的参数并将其内容拆分到不同的单元格上。
例如：
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

excel

来源：https://stackoverflow.com/questions/21652468/function-to-split-a-string-into-multiple-characters

7条答案

按热度按时间

ngynwnxp1#

1.在单元格A1中输入要拆分的内容。
1.将此粘贴到单元格B1中：=MID（$A$1，COLUMN（）-COLUMN（$B$1）+1，1）
1.向右拖动

赞(0）回复(0）举报 2023-05-01

jmo0nnb32#

您也可以使用简单的Excel公式来实现这一点-将此单元格放置在B1中并将其复制到C1-F1中：

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

赞(0）回复(0）举报 2023-05-01

hm2xizp93#

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

赞(0）回复(0）举报 2023-05-01

kmb7vmvb4#

1)将要拆分的文本放入单元格A1（image）
2)然后将此函数粘贴到您想要的任何单元格（image）

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

3)将鼠标光标移到粘贴了上述函数（image）的单元格右下角的小块上
4)单击并按住填充手柄，然后向右拖动以填充系列（image）

赞(0）回复(0）举报 2023-05-01

v440hwme5#

当从sheet调用这个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.选择目标范围（例如g. B1:F1）
1.* 在选定范围内 * 在公式栏中输入公式=SplitWord(A1)
1.按CTRL+SHIFT+ENTER键计算
如果您的目的地范围在一列（e.例如B1:B5）使用=TRANSPOSE(SplitWord(A1))

赞(0）回复(0）举报 2023-05-01

qltillow6#

将其放置在任何第一行单元格中：=MID（$A$1，ROW（），1）

赞(0）回复(0）举报 2023-05-01

qlzsbp2j7#

我正在挖掘这个主题，但今天我找到了一个解决方案，因为我们现在有了SEQUENCE公式：=MID（A1，SEQUENCE（1，LEN（A1），1，1），1）

赞(0）回复(0）举报 2023-05-01