在Excel VBA的单元格之间插入文本

我有很多单元格，每个单元格由3行分隔，在这3行中我必须插入一些单词。比如说，距离，质心和风速。有人知道如何在Excel VBA中实现这一点吗？我附上一张图片以便更好地解释

提前谢谢

尝试下面的代码

Sub InsertText()


    Dim lastRow As Long
    lastRow = Range("A" & Rows.Count).End(xlUp).Row

    For i = 2 To lastRow
        If Cells(i, 3) <> "" Then
            Cells(i + 1, 4) = "Distance"
            Cells(i + 2, 4) = "Centroid"
            Cells(i + 3, 4) = "Wind Velocity"
        End If
    Next

End Sub

子插入文本（）
最后一排一样长
lastRow=范围（“A”和Rows.Count）.End（xlUp）.Row
对于i=2到最后一行
如果单元格（i，3）“，则
单元格（i+1,4）=“距离”
单元（i+2,4）=“质心”
单元（i+3,4）=“风速”
如果结束
下一个
端接头

尝试下面的代码

Sub InsertText()


    Dim lastRow As Long
    lastRow = Range("A" & Rows.Count).End(xlUp).Row

    For i = 2 To lastRow
        If Cells(i, 3) <> "" Then
            Cells(i + 1, 4) = "Distance"
            Cells(i + 2, 4) = "Centroid"
            Cells(i + 3, 4) = "Wind Velocity"
        End If
    Next

End Sub

子插入文本（）
最后一排一样长
lastRow=范围（“A”和Rows.Count）.End（xlUp）.Row
对于i=2到最后一行
如果单元格（i，3）“，则
单元格（i+1,4）=“距离”
单元（i+2,4）=“质心”
单元（i+3,4）=“风速”
如果结束
下一个
端接头

@user20159它对我有用吗？你被困在哪里？你有什么错误吗？不，对不起，它能工作，我有另一个手机的安排，我纠正了它！真的非常感谢！！这么大的帮助@用户20159对我有用吗？你被困在哪里？你有什么错误吗？不，对不起，它能工作，我有另一个手机的安排，我纠正了它！真的非常感谢！！这么大的帮助！