作者：乔山办公网日期：
返回目录：excel表格制作
如果抄EXCEL细胞功能，行和列函数返回一个选定的区域？行数和列数，不是一个地区。如果你不想用字母，下面的方法是，用数量的方式来完成介绍信的公式：
假设作为一个可能的区域袭AE1到AD的参考可以作为起始行数（如标题：1），AE2终止列数（30），
AE3型公式：= IF（INT（AE1/26）<1，选择（MOD（AE1，26 ），“A”，zhidao“B”，“C”，“D”，“F”，“G”，“H”，“我”，“J”，“K”，“L”，“M”的，“N”，“O”，“P”，“Q”，“R”，“S”，“T”，“U”，“V”，“W”，“X”，“Y” ，“Z”）中，选择（INT（AE1/26），“A”，“B”，“C”，“D
用range("o65536").end(xlup).row即可获取o列的最后一个非空单元格的行数
关于此例中用到的End的相关知识：
Range对象有一个End属性，在别人的例子里经常会看到如“[A65536].End(xlUp).Row”这样的语句，这就是End属性的利用。
End属性应用于Range对象，同样也返回一个Range对象。该对象代表包含源区e79fa5e98193e78988e69d83337域的区域结尾处的单元格。如果还是不明白，那可以在工作表里试一试，分别按Ctrl+上、下、左、右方向键，看看得到的是什么。End属性返回的单元格就相当于在源单元格按住Ctrl键+上（或下、左、右）方向键所得到的单元格。它的语句格式简单写为：
源区域.End（移动方向）
移动方向可以是：
xlToLeft ：向左移动，相当于在源区域按Ctrl+左方向键。
xlToRight：向右移动，相当于在源区域按Ctrl+右方向键。
xlUp：向上移动，相当于在源区域按Ctrl+上方向键。
xlDown：向下移动，相当于在源区域按Ctrl+下方向键。
所以在程序设计的过程中，很多人喜欢用“[A65536].End(xlUp).Row”语句来返回A列的最后一个非空单元格的行号。
如果当前活动工作表的A列填写的是学生的姓名，现在想在表中A列最后一个学生的后面增加一个叫“张三”的学生，则代码为：
ActiveSheet.Cells([A65536].End(xlUp).Row + 1, 1).Value = "张三"
语句 [A65536].End(xlUp).Row + 1中，行号加1的目的是在最后一个非空单元格的下一个单元格里输入数据。需要注意的是：如果A列全为空的话，“[A65536].End(xlUp).Row”这个语句返回的是1。
sub a()
dim rng as range
set rng=intersect(activesheet.usedrange,columns("A:A")).find(what:=[r1],lookat:=xlwhole)
if not rng is nothing then rows(rng.row).select
end sub