在單元格中插入文本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