0

我正在尝试从宏中获取用户输入并将该字符串复制到列的长度(理想情况下,只要我的第一列有内容)

例如:你在哪个国家?

用户输入:美国

Column1    Column2

Steve      United States

Bill       United States

Blank      United States

Alice      United States
4

2 回答 2

0

忽略大量错误检查/确保已输入答案,这是最简单的方法:

  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
于 2012-11-20T22:41:40.923 回答
0

给你。如果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
于 2012-11-21T18:04:22.700 回答