ExcelVBA工作表有数据区域中获取最大行列号方法

ExcelVBA工作表有数据区域中获取最大行列号方法ExcelVBA工作表有数据区域中获取最大行列号方法SubmHLh()'获取工作表中有数据区域的最大行列号mLh5=ActiveSheet.UsedRange.Columns.Count'OK!'最大列号,中间可以有空列，多少空列都可，且空列变动后无须先保存。'当单元格（A1,B2,c3,d4,e5,f6）有数据，其他为空时，得最大列号:6,Ok!'当单元格（A1,B2,c3,空,e5,f6）有数据，d4其他为空时，得最大列号:6'当单元格（A1,B2,c3,d4,空,f6）有数据，e5其他为空时，得最大列号:6...

ExcelVBA工作表有数据区域中获取最大行列号方法 SubmHLh()'获取工作表中有数据区域的最大行列号mLh5=ActiveSheet.UsedRange.Columns.Count'OK!'最大列号,中间可以有空列，多少空列都可，且空列变动后无须先保存。'当单元格（A1,B2,c3,d4,e5,f6）有数据，其他为空时，得最大列号:6,Ok!'当单元格（A1,B2,c3,空,e5,f6）有数据，d4其他为空时，得最大列号:6'当单元格（A1,B2,c3,d4,空,f6）有数据，e5其他为空时，得最大列号:6'当单元格（A1,B2,c3,d4,e5,空）有数据，f6其他为空时，得最大列号:5Debug.Printmlh5mLh5=Cells.SpecialCells(xlCellTypeLastCell).Column'单元格（A1,B2,c3,d4,e5,f6）有数据，其他为空时，得最大列号:6,Ok!'单元格（A1,B2,c3,空,e5,f6）有数据，d4其他为空时，得最大列号:6‘'当单元格（A1,B2,c3,d4,e5,f6,a20,b20）有数据，行19-行7都空的无数据时，想要清除行20的内容后，再获取最大的行号。Rows(20).Clear‘先清除行20的内容，下面几个求最大行号语句的功能差别‘Cells(2,1).CutCells(20,7)'将单元格Cells(2,1)的内容移动到Cells(20,7)‘ActiveWorkbook.Savemhh51=Cells.SpecialCells(xlCellTypeLastCell).Row'OK!当前工作表最大有数据行实际为6行Debug.Printmhh51'单元格（A1,B2,c3,d4,e5,f6）有数据，其他为空时，得最大行号:6,Ok!'单元格（A1,B2,c3,d4,e5,f6,a20,b20）有数据，其他为空时，得最大行号:20,Ok!'单元格（A1,B2,c3,d4,e5,f6,a20,b20）有数据，其他为空时，用“Rows(20).Clear”后，再执行mHh51,得最大行号:20,'单元格（A1,B2,c3,d4,e5,f6,a20,b20）有数据，其他为空时，用“Rows(20).Clear”、“ActiveWorkbook.Save”后，再执行mHh51,得最大行号:6,mhh52=ActiveSheet.UsedRange.Rows.Count'OK!当前工作表最大有数据行实际为6行Debug.Printmhh52'单元格（A1,B2,c3,d4,e5,f6）有数据，其他为空时，得最大行号:6,Ok!'单元格（A1,B2,c3,空,e5,f6）有数据，d4其他为空时，得最大列号:6'单元格（A1,B2,c3,d4,e5,f6,a20,b20）有数据，其他为空时，得最大行号:20,Ok!'单元格（A1,B2,c3,d4,e5,f6,a20,b20）有数据，其他为空时，用“Rows(20).Clear”后，再执行mHh52,得最大行号:6,'mhh52=ActiveSheet.UsedRange.Rows.Count'OK!当前工作表最大有数据行实际为6行mhh53=Cells(Rows.Count,1).End(3).Row'OK!'行号,Debug.Printmhh53'单元格（A1,B2,c3,d4,e5,f6）有数据，其他为空时，得最大行号:1,Ok!是按A列计'单元格（A1,B2,c3,d4,e5,f6,a20,b20）有数据，其他为空时，得最大行号:20,Ok!'单元格（A1,B2,c3,d4,e5,f6,a20,b20）有数据，其他为空时，用“Rows(20).Clear”后，再执行mHh53,得最大行号:1,mhh54=Cells(65536,3).End(xlUp).Row'OK!，Debug.Printmhh54'单元格（A1,B2,c3,d4,e5,f6）有数据，其他为空时，得最大行号:3,Ok!是按C列计'单元格（A1,B2,c3,d4,e5,f6,a20,b20）有数据，其他为空时，得最大行号:3,Ok!EndSub

                    本文档为【ExcelVBA工作表有数据区域中获取最大行列号方法】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

ExcelVBA工作表有数据区域中获取最大行列号方法

你可能还喜欢