Excel VBA：从用户窗体中获取值并插入到列中

我试图从宏中获取用户输入，并复制该字符串作为列的长度（理想情况下，只要我的第一列有内容）

例如： 你在哪个国家

用户输入：美国

Column1    Column2

Steve      United States

Bill       United States

Blank      United States

Alice      United States

---

忽略大量错误检查/确保输入答案，以下是最简单的方法：

  Sub Test()

  Dim Answer As String

  Answer = InputBox("What country are you in?")
  Intersect(ActiveSheet.UsedRange, ActiveSheet.Range("A:A")).Offset(0, 1).Value = Answer

  End Sub

---

给你。如果列A中的单元格不为空，则此子项仅填写列B中的相应单元格

它迭代A列中的每个项目，检查单元格是否为空，如果单元格不为空，则在B列中放置“应答”字符串

Sub country()

Dim Answer As String, i As Range

Answer = InputBox("What country are you in?")

For Each i In ActiveSheet.Range("A2", ActiveSheet.Range("A300000").End(xlUp))

    If i <> vbNullString Then
        i.Offset(0, 1).Value = Answer
    End If

Next i

End Sub

子国家（）
模糊答案为字符串，i为范围
回答=输入框（“您在哪个国家？”）
对于ActiveSheet.Range（“A2”，ActiveSheet.Range（“A300000”）.End（xlUp））中的每个i
如果我是字符串，那么
i、 偏移量（0，1）。值=答案
如果结束
接下来我
端接头

对不起，没有。我唯一的经验是JAVA。在我写任何东西之前，我试图找出一些共同点。