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

Question

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

提前致谢！

Answer 1

试试下面的代码

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