將字符串拆分爲多個字符的函數

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

您不能修改細胞UDF，打電話時這張UDF從表格（實際上是e是可能的方式，但它們很複雜，我不建議使用它們）。您可以使用此功能可按代替：

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 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中拆分的內容。
2. 單元格B1粘貼此：= MID（$ A $ 1，COLUMN（） - COLUMN（$ B $ 1）+1,1）
3. 向右拖動

Answer 5

地點這在任何第一行單元格： = MID（$ A $ 1，ROW（），1）