Vb.net 使用VisualBasic使Excel在单元格中循环

我正在尝试编写一个VB代码，要求用户输入，并将用户输入附加到列表底部。例如：

人1

人2

人3

我希望输入为“Person4”等等，并将该输入附加到列表的底部

我正在编写的代码表示，如果范围（A1:A10000）中的单元格为空，请用户输入，然后将该输入添加到单元格中。如果单元格不是空的，它将循环查找下一个空单元格。基本上，如果单元格中没有人名，它会将其添加到列表的底部

我试图将代码编写为：

对于范围内的单元格（A1:A10000）：

---

我没有VB编码经验，所以我想我在这里漏掉了一些大的东西

请考虑使用下面的代码：

Sub cyclepersons()
    Dim rngTarget As Range, cell As Range
    Set rngTarget = Application.ActiveSheet.Range("A1:A10000")
    For Each cell In rngTarget
        If IsEmpty(cell) Then
            cell.Value2 = InputBox("Enter Person here")
        End If
    Next
End Sub

您似乎正在使用其他类型的脚本语言格式。正如findwindow指出的，Google是研究基本VBA的一个简单资源。请尝试以下代码

Sub test()
    inputtext = InputBox("Enter any Text")
    If inputtext <> "" Then
        Range("A" & Range("A1").End(xlDown).Row + 1).Value = inputtext
    End If
End Sub

子测试（）
inputtext=InputBox（“输入任何文本”）
如果输入文本“”，则
范围（“A”和范围（“A1”）。结束（xlDown）。行+1。值=输入文本
如果结束
端接头

没有VB编码经验

有google的时候没有必要有经验^^^你是想用名称填充所有10000行，还是只填充第一个空行？

Sub test()
    inputtext = InputBox("Enter any Text")
    If inputtext <> "" Then
        Range("A" & Range("A1").End(xlDown).Row + 1).Value = inputtext
    End If
End Sub