下一个非空白单元格在Excel中/ visualBasic

Question

我想脚本的一个非常基本的按键组在Excel中设置单元格引用右边的单元格2，然后下一个非空白细胞下降。很容易设置的按键：

=右右CTRL向下进入

但是，当我使用宏录制做到这一点要与替换相对引用CTRL下降;即

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