您的位置 首页 > 德语词汇

endup是什么意思?用法、例句 VBA中end(xlup)到底是什么?

大家好,今天小编来为大家解答以下的问题,关于endup是什么意思?用法、例句,VBA中end(xlup)到底是什么?这个很多人还不知道,现在让我们一起来看看吧!

相信刚开始学VBA的朋友在代码中经常遇到end(xlup)这句代码,而且特别的高频。

endup是什么意思?用法、例句 VBA中end(xlup)到底是什么?

Sub把一列中不同项目分拆到不同工作簿()\nTm=Timer\nApplication.DisplayAlerts=False\nApplication.ScreenUpdating=False\nSetd=CreateObject("scripting.dictionary")\na=1'//标题行\nb=1'//拆分项目所在的列\narr=Range(Cells(a+1,b),Cells(Rows.Count,b).End(xlUp))\nForx=1ToUBound(arr)\nd(arr(x,1))=x\nNext\nbrr=d.keys\nFori=0ToUBound(brr)\nWorkbooks.Add.SaveAsThisWorkbook.Path&"\\"&brr(i)\nWithThisWorkbook.Sheets(1)\n.Rows(a).AutoFilterField:=b,Criteria1:=brr(i)\n.AutoFilter.Range.SpecialCells(12).CopySheets(1).Range("A1")\nEndWith\nActiveWorkbook.Close1\nNext\nThisWorkbook.Sheets(1).ShowAllData'消除筛选\nApplication.DisplayAlerts=True\nApplication.ScreenUpdating=True\nMsgBox"拆分完成,用时:"&Format(Timer-Tm,"0.00秒"),64,"拆分报表"\nEndSub\n

这段代码的含义是,按某列对工作簿进行拆分,拆分为单独的工作簿。需要的朋友也可以直接拿去用。

放眼望去,我看到了这位靓仔end(xlup),他到底是做什么的?怎么好多代码里都有他在搞事情?!

官方口吻,听起来好像有点拗口。说大白话就是:光标放在某个单元格,给他来个end(xlup),相当于同时按下CTRL+↓的效果。

不知道CTRL+↓同时按下什么效果的,可以参考下面的动画。

光标起始放在A1单元格,同时按下Ctrl+↓之后,光标跑到了A列已使用的最后一个单元格。

一般我们这么来用:单元格表达式.End(Direction),而这个Direction参数就是方向参数,我们可以选择下面四个钟的一个。

利用这个特性,我们就可以寻找A列已使用的最大行号:

Cells(Rows.Count,1).End(xlUp).Row

这下子一定恍然大悟,原来开头代码中的Cells(Rows.Count,b).End(xlUp),是获取的b列的已使用单元格的最大行号。

持续关注,更多Excel以及VBA干货更新中!

关于endup是什么意思?用法、例句到此分享完毕,希望能帮助到您。

本站涵盖的内容、图片、视频等数据,部分未能与原作者取得联系。若涉及版权问题,请及时通知我们并提供相关证明材料,我们将及时予以删除!谢谢大家的理解与支持!

Copyright © 2023