检查B列中的下一个空行，并将string粘贴到相应的A单元格中

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

这是我迄今为止：

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

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

Answer 1

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

Offset方法的工作原理是：

 Offset(_rows_, _columns_) 

所以如果你在列参数中放置-1 ，它会把列中的值放在左边 。

Answer 2

（“Sheet1”）。Range（“B60000”）。End（xlUp）.Offset（1，-1）= Word