将数字分隔到单个单元格

Question

我正在尝试将字母和数字分隔到 Excel 中的单个单元格中。我的示例 TYE123 - T 到 A1、Y 到 A2、E 到 A3、1 到 A4 等。我有多个行，每个行的字符数不同，分别为 TYE123、CP1045、TCDE54。

Answer 1

此 VBA 代码将完成以下工作：

Sub SplitStuff()
'Update 20140318
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "SingleLettersExample"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In InputRng
    xValue = Rng.Value
    xRow = Rng.Row
    For i = 1 To VBA.Len(xValue)
        OutRng.Cells(xRow, i).Value = VBA.Mid(xValue, i, 1)
    Next
Next
Application.ScreenUpdating = True
End Sub

如何使用：

1. .xlsm创建文件格式的演示文稿

2. 按住ALT+F11 打开 Microsoft Visual Basic 编辑器

3. 单击“ThisWorkbook”，然后将 VBA 代码粘贴到窗口中

4. 然后按F5键运行此代码，并在提示框中输入：

   • 范围：（$A1:$A3例如 3 行）
   • 输出 ：$B1