excel / visual Basic中的下一个非空白单元格

Question

我正在尝试在excel中编写一组非常基本的击键脚本，我在其中设置一个单元格来引用右边2的单元格然后下一个非空白单元格。非常简单的按键组：

  

=右键ctrl-down输入

但是当我使用宏录制器执行此操作时，它希望用相对引用替换ctrl-down;即

ActiveCell.FormulaR1C1 = "=R[6]C[3]"

当然有一个简单的替代做我想做的事情？

Answer 1

dim Rng as range
set Rng=Activecell.offset(0,2).end(xldown)

相当于你的击键，但它不是下一个非空单元格，它是最后一个连续的非空单元格

Answer 2

值得注意的是，查尔斯的回答会带你到最后一个细胞，里面还有一个空白细胞。空白单元格下面可能有更多细节。当我连续查找最后一个单元格时，我从底部开始向上工作。

在活动单元格中工作，它看起来像这样：

Dim col As Double
Dim rw As Double
col = ActiveCell.Column + 2
rw = 65000
Debug.Print col & "-" & rw
Cells(rw, col).End(xlUp).Select

Answer 3

值得注意的是，查尔斯的回答会带你到最后一个细胞，里面还有一个空白细胞。空白单元格下面可能有更多细节。当我连续查找最后一个单元格时，我从底部开始向上工作。

在活动单元格中工作，它看起来像这样：

Dim col As Double
Dim rw As Double
col = ActiveCell.Column + 2
rw = 65000
Cells(rw, col).End(xlUp).Select