Excel 宏将单元格内容拆分成多个单元格

以下是一个用于将一个单元格中的内容拆分成多个单元格的宏示例：

Sub SplitCellContent()
    Dim cell As Range
    Dim content As String
    Dim prefix As String
    Dim startNum As Integer
    Dim endNum As Integer
    Dim i As Integer
    
    Set cell = Selection ' 选择要拆分内容的单元格
    
    content = cell.Value ' 获取单元格的内容
    
    ' 判断内容是否包含连续数字范围
    If InStr(content, "-") > 0 Then
        ' 获取前缀
        prefix = Left(content, InStr(content, "-") - 1)
        ' 获取起始数字
        startNum = Val(Mid(content, InStr(content, "-") + 1, InStr(content, ",") - InStr(content, "-") - 1))
        ' 获取结束数字
        endNum = Val(Mid(content, InStr(content, ",") + 1))
        
        ' 拆分连续数字范围并填充到相邻单元格
        For i = startNum To endNum
            cell.Offset(i - startNum).Value = prefix & i
        Next i
    Else
        ' 拆分逗号分隔的多个值并填充到相邻单元格
        Dim values() As String
        values = Split(content, ",")
        
        For i = 0 To UBound(values)
            cell.Offset(i).Value = values(i)
        Next i
    End If
End Sub

使用方法：

1. 按下ALT + F11打开VBA编辑器
2. 在项目资源管理器中，双击要编辑的工作表对象（例如：Sheet1）
3. 在代码窗口中，粘贴上述宏代码
4. 按下F5运行宏
5. 选择要拆分内容的单元格
6. 单元格内容将会按照要求进行拆分并填充到相邻单元格中