如何修改VBA代码实现按空格拆分字符串并写入隔列（D、F、H…）

原代码是将空格拆分后的单词依次写入D、E、F...列，要改成D、F、H...每隔一列写入，只需要调整列的计算逻辑，同时可以优化下代码冗余部分：

修改后的完整代码 #

Sub SplitToEveryOtherColumn()
    ' 定义变量
    Dim MyArray() As String, MyString As String
    Dim N As Integer, x As Long, NumRows As Long
    
    ' 获取B列从B2开始的有效行数
    NumRows = Range("B2", Range("B2").End(xlDown)).Rows.Count
    
    ' 遍历每一行（从第2行开始）
    For x = 2 To NumRows + 1
        MyString = Cells(x, 3).Value
        
        ' 按空格拆分字符串，先去除首尾及连续空格避免产生空元素
        MyArray = Split(WorksheetFunction.Trim(MyString), " ")
        
        ' 遍历拆分后的单词数组
        For N = 0 To UBound(MyArray)
            ' 计算目标列：D列是第4列，每个单词往后跳2列（4 + 2*N）
            Cells(x, 4 + 2 * N).Value = MyArray(N)
        Next N
    Next x
End Sub

关键修改说明 #

1. 列索引计算：把原代码的N + 4改成4 + 2 * N，这样第一个单词（N=0）写入第4列（D列），第二个（N=1）写入第6列（F列），第三个（N=2）写入第8列（H列），以此实现隔列写入。
2. 优化拆分逻辑：用WorksheetFunction.Trim先处理字符串，去除首尾空格和连续空格，避免Split后产生空元素导致无效写入。
3. 清理冗余变量：删除了原代码中未使用的i变量，让代码更简洁。

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