vba查找表格最后一行 vba 最后使用单元格

#vba 查找单元格并返回最后一个行数# 可以从后面循环开始查找 Sub 查找最后一个中国() Dim i For i = 10 To 1 Step -1 If Cells(i, 1) = ＂中国＂ Then MsgBox ＂第＂ & i & ＂行＂ Exit Sub End If Next End Sub

可以用下面的语句:最后一个值 = Sheets(＂sheet1＂).Range(＂A65535＂).End(xlUp).Value 用 col=range(＂C1＂).end(xltoright).column '找到最后非空一列 语句可能存在问题:当A1至A5数据连续时,该语句能返回正确 的结果,但当不连续时,将得不到最后一个非空结果 如1245 将只得到2,而不是5(其中3是空白,如果3有数值,将得到5)

不想去看23对应字母,如下也能得到结果.range(＂A65536＂).offset(0,22).end(xlup).row 试试用下面的语句获得总行数 sheet3.usedrange.rows.count1、打开数据表.2、选中一个单元格,同时按键盘上的Ctrl+↓3、选中的单元格迅速就到了最后一行,同时按键盘上的Ctrl+↑.4、选中一个单元格回到了首行,同时按键盘上的Ctrl+→.5、选中一个单元格迅速到了最后一列,同时按键盘上的Ctrl+←.6、又可以迅速回到首列.7、还可以将鼠标移动到单元格下边框上,8、选中单元格迅速跳到最后一行,将鼠标移动到单元格上边框上,鼠标变成上下左右箭头时,双击.鼠标变成上下左右箭头时,双击.

Sub 地址() i = Worksheets(＂Sheet1＂).UsedRange.SpecialCells(xlCellTypeLastCell).Row j = Worksheets(＂Sheet1＂).UsedRange.SpecialCells(xlCellTypeLastCell).Column MsgBox ＂行号:＂ & i & ＂列号＂ & j2 End Sub 说明:该代码获取的行号和列号,是行和列已使用单元格所组成的矩阵的最后一个单元格,即使最后一个单元格为空也要定位.

dim i as integer i=sheet.count Sheets(i).Select Sheets(i).Copy After:=Sheets(5) Sheets(i).Name = y

如果是多个,并且不要提示,让它变成行数的变量 Microsoft Excel是微软公司的办公. 在一列中查找某个内容,查找下一个,那在VBA中我们该如何进行查找呢?我们希望.

用链接可能有点困难,选中该项目的列,然后按CTRL+箭头,就可以定位到所在的最后一个单元格.例如选中A1,然后按CTRL+下箭头,就可以定位到A项目中连续数据的最后位置.

比如你要查找的是a列,公式为:=lookup(2,1/(a:a＂＂),row(a:a)) 最后一行的行号,就这样神奇的计算出来了.

这个简单 只要用到几个公式:最大值 max ,最小值 min,查找 vlookup. 要实现你的要求公式组合一下就可以做出很多选择,例如在单元格 e4 上找到对应最大值的名字,公式如下 e4=vlookup(max(e:e),(a1:e2),1,false) 意思 e4=在表格(a1:e2)数据中找e列中(e1:e2)与最大值(max(e1:e2))对应的第1列(a1:a2)中的数据 找出最小的值对应的名字 e4=vlookup(min(e:e),(a1:e2),1,false) 好了,你自己输入公式玩下 又需要再联系

C1输入公式 =MAX(ROW(A1:A20)*(A1:A20=B1)) 按CTRL SHIFT 回车结束,就得到最后一个与B1相同的最后一个数据的行号,