admin 管理员组文章数量: 887021
2023年12月23日发(作者：extension cord)
Sub mHLh() '获取工作表中有数据区域的最大行列号
mLh5 = '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+其他为空时，得最大列号:5
mlh5
mLh5 = lCells(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).Cut Cells(20, 7) '将单元格Cells(2, 1)的内容移动到Cells(20, 7)
‘
mhh51 = lCells(xlCellTypeLastCell).Row 'OK! 当前工作表最大有数据行实际为6行
mhh51
'单元格（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”、“ ”后，再执行mHh51,得最大行号:6,
mhh52 = 'OK! 当前工作表最大有数据行实际为6行
mhh52
'单元格（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 = 'OK! 当前工作表最大有数据行实际为6行
mhh53 = Cells(, 1).End(3).Row 'OK! '行号,
mhh53
'单元格（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! ，
mhh54
'单元格（A1,B2,c3,d4,e5,f6）有数据，其他为空时，得最大行号:3,Ok!是按C列计
'单元格（A1,B2,c3,d4,e5,f6,a20,b20）有数据，其他为空时，得最大行号:3,Ok!
End Sub
版权声明：本文标题：ExcelVBA工作表有数据区域中获取最大行列号方法 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/jishu/1703288497h445653.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论