www.bzyk.net > rAngE EnD

rAngE EnD

在循环语句内使用的话,很容易出错,因为其值不会变化, 所以要放到循环语句前,取得最后一行的值, 另外,使用Range("a1").End(xlDown).Row如果A列第一行下面全为空, 则得到表的最后一行65536,容易出错, 建议使用Range("a65536").End(xlUp)....

Range("D4").End(xlUp).Select 从D4单元格向上查找直到有活动的单元格结束并选中。 ActiveCell.Value = "你好" 激活的单元格的值="你好",因你D3单元格不是空,所以前面第一句语句就选择了D3单元格,并在D3单元格内写入"你好"。 XLUP XLDown Xl...

我都没验证,大致看看: 第一个: a=[ A65536 ].End(xlUp).Row Sheets(Data).Range("A3: A" & a ).Copy 第二个: range("A3: A" & [A65536].End(xlUp).Row ).Select

[A65536].End(xlUp).Row 返回A列数据的最后一行的行号 [A65536].End(xlUp)相当于 选中A65536 然后按 End 再按 上 Arr= 就是给Arr赋值 那么也就是把A列到C列的数据赋值给Arr

arr = Range([A1], [A65536].End(xlUp))

如果当前单元格不为空,选择当前单元格及其下第一个空单元格前的所有单元格;如果当前单元格为空,选择当前单元格及其下第一个非空单元格前(包括第一个非空单元格)的所有单元格或当前单元格及其下所有单元格(当前单元格下没有非空单元格)。...

Range("a65536").End(3) 代表从 A65536 单元格往前查找到的第一个有数据的单元格 Range("a65536").End(3).Row 表示A列单元格最下面一个有数据的单元格的行号,假定最后使用的单元格行号为20,则 "a1:a" 与后面的连起来就表示"a1:a20"这些单元格...

Dim x&, r&, k&, i& ‘这行肯定没问题,是定义四个变量 r = Range("G65536").End(xlUp).Row’关键是这行: "G65536"——是G列的最后一个单元格,Excel行的极限是65536 End(xlUp)——相当于按下Ctrl键和向上键,其含义是从 Range("G65536")单元格向上找...

如果没有后面offset(1,0)这句,选中的是A列最后一个非空单元格。有了这句选定的是这个非空单元格的下移一个格子。

写成函数,运行宏试试吧

网站地图

All rights reserved Powered by www.bzyk.net

copyright ©right 2010-2021。
www.bzyk.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com