检查B列中的下一个空行，并将字符串粘贴到相应的A Cell中

Question

我当前的代码检查B列中的下一个空单元格并将值粘贴到空B单元格中。我想检查B列中的下一个空行单元格，并将该字符串粘贴到相应的A单元格中。

这是我到目前为止所做的：

Dim Word As String
Word = "Apple"
Sheets("Sheet1").Range("B60000").End(xlUp).Offset(1, 0) = Word

我已经研究过以前的答案和我的VBA书，但我还没有成功找到解决方案。

Answer 1

做....Offset(1, -1) = Word。

Offset方法的工作方式如下：

Offset(_rows_, _columns_)

因此，如果您将-1放在columns参数中，它会将列中的值放入 left 。

Answer 2

表格（＆＃34; Sheet1＆＃34;）。范​​围（＆＃34; B60000＆＃34;）。结束（xlUp）。偏移（1，-1）= Word