Question

我在使这个范围/功能发挥作用时遇到了一些问题，并且在我激怒之前会高度赞赏任何评论并将其全部抛弃。

PrintPage

我正在尝试填写一个范围，稍后将使用已复制的值

进行填充

Cells.Find(What:="**Some Search Term**", After:=ActiveCell, LookIn:= _ 
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True, SearchFormat:=False).Activate
r3 = ActiveCell.Row
c3 = ActiveCell.Column

使用以下命令定义VeryLastRow2（命名为+1）：

Range("I & (r3 + 3):J & VeryLastRow2").Select
activesheet.Paste

我不知道为什么这不起作用。

我也愿意接受其他建议。如果需要知道 - 数据位于工作表的中间（总是在第I + J列中），但是行数可变到最后一行。

Answer 1

您的变量在引号内，并且它们没有被评估，而是以文本形式输入。

Basic

这评估范围名称I＆amp; （r3 + 3）：J＆amp; VeryLastRow2，您需要从变量中分离文本，例如：

npm build

因此，当r3 = 8和verylastrow2 = 2000时，你的范围将是I11：J2000

使用LastRow扩展ActiveCell-Range

1 个答案: