使用vba excel 2010写入工作表

Question

我是编程新手所以如果这个问题很容易请原谅我。

我正在将从用户表单获取的数据写入工作表。第1行使用冷杉标题，因此如果使用第2行，数据将在第2行输入我想写入下一行。

刚才我有代码找到工作表上的下一个空行。我在工作表的一半下方标题显示单独的内容，但由于我使用的搜索单元格代码，我在页​​面的一半标题下写下应该位于工作表顶部的数据。

我只是想开始在A2写作然后到下一行。

提前为你的帮助干杯。

克雷格

Answer 1

如果我理解我认为你想要做的事情，那么有几种方法可以做到这一点。 你可以循环使用它的单元格，但被认为效率低下：

Range("A2").Select

Do
  ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = ""

ActiveCell.Value = "YourValue"

最有效的方法可能是使用xlDown命令：

Range("A2").Select

ActiveCell.End(xlDown).Offset(1, 0).Value = "Different Way"