近日用到excel巨集，需要取得最後一行的行號，從網上找了找，方法很多，以下這個方法出自csdn論壇帖子，
方法很簡單，而且可以正常統計隱藏行（這個是關鍵！）
n = activesheet.usedrange.rows.count
a = activesheet.usedrange.rows(n).row
取得的a，就是最後一行的行號！
拓展一下，取得最後一列的列號的方法如下：
n = activesheet.usedrange.columns.count
a = activesheet.usedrange.columns(n).column
獲得EXCEL的SHEET名
需要引用com元件microsoft excel 11.0 object library using system using system.collections using system.componentmodel using system.data using system.data.sql...
Delphi生成多Sheet的Excel檔案
delphi生成多sheet的excel檔案的 uses comobj range.columns 1 columnwidth 6 序號 range.columns 2 columnwidth 20 檔號 range.columns 3 columnwidth 60 題名 range.columns...
將Excel裡面的sheet合併
首先新建乙個sheet，按快捷鍵alt f11，再將下面 複製進去 sub 合併當前工作簿下的所有工作表 for j 1 to sheets.count if sheets j name activesheet.name then x range a65536 end xlup row 1 shee...