Question

Excel 2013 / Win7

目标：确定尺寸：＃Rows /＃Cols for workheets对于excel来说太大了。

我尝试使用：

Dim sh as worksheet
For each sh in ActiveWorkbook.Sheets
    'These are just my preferred ways of finding the ending points.
    LastRow = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    LastCol = ActiveSheet.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    BlahBlah 'code that prints LastRow and LastCol to my userform
Next sh

这样可以正常工作，但它只给出了工作表的统计信息＆lt; =最大excel行数

所以玩文件将.xlsx的扩展名更改为.zip并转到xl / Worksheets / sheet1.xml我注意到这一行："<dimension ref="A3:C178"/>'我希望获得的是一种获取方式通过vba为每张工作表设置这种方式，但我无法抓住这个参考。

Answer 1

为什么不尝试最后一个细胞呢？
另外，为什么不在将.xls转换为.zip之前取这个值？

Dim LastRow As Long
Dim LastColumn As Long

LastRow = sh.Cells.SpecialCells(xlCellTypeLastCell).Row
LastColumn = sh.Cells.SpecialCells(xlCellTypeLastCell).Column

Excel VBA范围大文件

1 个答案: