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

【问题标题】：Next non-blank cell in excel/visualBasicexcel/visual Basic 中的下一个非空白单元格
【发布时间】：2009-11-17 00:29:33
【问题描述】：

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

= right right ctrl-down enter

但是当我使用宏记录器执行此操作时，它想用相对引用替换 ctrl-down；即

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

肯定有一个简单的替代品来做我想做的事吗？

【问题讨论】：

【解决方案1】：

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

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

【讨论】：

【解决方案2】：

值得注意的是，Charles 的回答会将您带到最后一个单元格，然后是空白单元格。空白单元格下方可能有更多细节。当我查找连续的最后一个单元格时，我会从底部开始向上查找。

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

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

【讨论】：

【解决方案3】：

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

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

【讨论】：