[英]Excel VBA - Search/Select/Delete Range Based on Next Non-Blank Cell in Column
[英]Next non-blank cell in excel/visualBasic
我正在尝试在excel中编写一组非常基本的击键脚本,我在其中设置一个单元格来引用右边2的单元格,然后是下一个非空白单元格。 非常简单的按键组:
=右键ctrl-down输入
但是当我使用宏录制器执行此操作时,它希望用相对引用替换ctrl-down; 即
ActiveCell.FormulaR1C1 = "=R[6]C[3]"
当然有一个简单的替代做我想要的?
dim Rng as range
set Rng=Activecell.offset(0,2).end(xldown)
相当于你的击键,但它不是下一个非空白单元格,它是最后一个连续的非空单元格
值得注意的是,查尔斯的回答会带你到最后一个细胞,里面还有空白细胞。 空白单元格下面可能有更多细节。 当我连续寻找最后一个单元格时,我从底部开始向前走。
在活动单元格中工作,它看起来像这样:
Dim col As Double
Dim rw As Double
col = ActiveCell.Column + 2
rw = 65000
Debug.Print col & "-" & rw
Cells(rw, col).End(xlUp).Select
值得注意的是,查尔斯的回答会带你到最后一个细胞,里面还有空白细胞。 空白单元格下面可能有更多细节。 当我连续寻找最后一个单元格时,我从底部开始向前走。
在活动单元格中工作,它看起来像这样:
Dim col As Double
Dim rw As Double
col = ActiveCell.Column + 2
rw = 65000
Cells(rw, col).End(xlUp).Select
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.