如何在VBA中运行将数据放在不同行的输入框的循环

Sub InputDataInDifferentRows()
    Dim rowNum As Integer
    Dim inputData As String
    
    ' 设置起始行数和输入数据
    rowNum = 1
    inputData = "数据1"
    
    ' 循环将数据放入不同行的输入框
    Do While Not IsEmpty(Cells(rowNum, 1))
        ' 将数据放入输入框
        Cells(rowNum, 1).Value = inputData
        
        ' 移动到下一行
        rowNum = rowNum + 1
        
        ' 更新输入数据
        inputData = "数据" & rowNum
    Loop
End Sub