Excel 如何更改手机地址？

我正在为合并范围查找A列中的第一个非空单元格

我在该列中找到了值为的最后一个单元格，但为了合并，我需要在下面得到一个单元格

Sub mergeCells()

    Dim rng As Range
    Set rng = Cells.Find(what:="*", after:=Cells(2), 
    searchdirection:=xlPrevious, searchorder:=xlByColumns)

    s = ActiveCell.Offset(-1, -1).Address 'one cell above current one 

    MsgBox rng.Activate + 1

End Sub

使用以下命令：

 Sub mergeCells()

  Dim rng As Range
  Set rng = Cells.Find(what:="*", after:=Cells(1), searchdirection:=xlPrevious, searchorder:=xlByColumns)

  MsgBox rng.Offset(1, 0).Address

  End Sub

---

rng.Offset（1,0）

将引导您进入下面的单元格。我可能没有正确理解您的问题，否则问题很简单：

ActiveCell.Offset（1,0）.Address

。编辑：米库很快@Mikku，如果我尝试：

rng.Offset（1,0）

它给我语法错误MsgBox应该给你你要找的单元格的地址。还有一件事，我可以把单元格地址传递给变量：

s=ActiveCell.Offset（-1，-1）。address

？原因我在那里也得到了错误：应用程序定义的错误或对象定义的错误为什么要使用

Activecell

？原因我假设，当用户需要合并单元格时，这将是起点，从那里我得到A列和精确的单元格，它将是我的范围点之一，您可以使用

s=Activecell.Offset（-1，-1）.地址

。。。它可以工作，但如果activecell位于第1列，这将返回一个错误..因为您无法从那里转到

-1