如何用VBA将句子拆分为单个单词按行/列排列 代码仅输出首单词求解

原代码核心问题 #

• 变量声明错误：Split函数返回字符串数组，原代码将接收变量x声明为String类型，类型不匹配
• 循环边界错误：未动态获取单词总数，无法适配不同长度的输入句子
• 赋值逻辑错误：循环内重复调用Split且未指定数组下标，只能读取到第一个单词

修正后代码 #

按列填充（第一行逐列写入单词） #

Sub SplitSentenceToColumns()
    Dim S As String
    Dim i As Integer
    Dim wordArr As Variant
    
    S = InputBox("Sentence")
    If S = "" Then Exit Sub ' 处理取消输入的异常场景
    wordArr = Split(S, " ")
    
    ' 自动遍历所有拆分出的单词，无需手动设置固定上限
    For i = LBound(wordArr) To UBound(wordArr)
        ' VBA数组默认从0开始，i+1保证从第1列开始写入
        Cells(1, i + 1).Value = wordArr(i)
    Next i
End Sub

按行填充（第一列逐行写入单词） #

Sub SplitSentenceToRows()
    Dim S As String
    Dim i As Integer
    Dim wordArr As Variant
    
    S = InputBox("Sentence")
    If S = "" Then Exit Sub
    wordArr = Split(S, " ")
    
    For i = LBound(wordArr) To UBound(wordArr)
        ' 从第1行开始逐行写入第一列
        Cells(i + 1, 1).Value = wordArr(i)
    Next i
End Sub

修改说明 #

• 用Variant类型接收Split返回的单词数组，类型匹配
• 通过LBound和UBound函数自动获取数组的上下边界，自动适配任意数量的拆分单词，无需设置固定数值
• 提前拆分一次句子存入数组，循环内直接读取对应下标的单词，避免重复运算
• 新增空输入判断，避免用户点击取消时报错

内容的提问来源于stack exchange，提问作者Homar