用VBA計算EXCEL中的行數和列數
用VBA計算EXCEL中的行數和列數
作者:淘寶劉油茶 標籤:EXCELVBA2011-04-02 15:32 星期六 晴
每種方法中上面的是Excel的行數,下面的是Excel的列數。
方法1:
ActiveSheet.UsedRange.Rows.Count
ActiveSheet.UsedRange.Columns.Count
缺點:有時可能會比實際數大一些,原因是如果你把最後幾行(列)資料清除後(非整行或整列刪除),用這個命令仍返回未清除前的值。就是說現在雖然是空的,但是你曾經用過也算你的。
方法2:
ActiveSheet.Range("A65535").End(xlUp).Row
ActiveSheet.Range("IV1").End(xlToLeft).Column
可以簡寫為:
ActiveSheet.[A65536].End(xlUp).Row
ActiveSheet.[IV1].End(xlToLeft).Column
缺點:只能計算出一列(行)的最後一個單元格所在的行(列)數。本例是隻返回A列最後一個單元格所佔的行數。
方法3:
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
缺點:在工作表進行對刪除或清除操作時也會變得比實際情況大。
方法4:
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
缺點:在工作表進行對刪除或清除操作時也會變得比實際情況大。
方法5:
Application.CountA(ActiveSheet.Range("A:A"))
Application.CountA(ActiveSheet.Range("1:1"))
只能統計一列(行)的實際使用情況,得到的不一定是最後一行(列)的位置。方法2的數值比此方法大時,說明在A列的資料間有空白未填寫的單元格。
方法6:
ActiveSheet.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
ActiveSheet.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
效果同方法2
以上方法中比較常用的是方法1和方法2。
作者:淘寶劉油茶 標籤:EXCELVBA2011-04-02 15:32 星期六 晴
每種方法中上面的是Excel的行數,下面的是Excel的列數。
方法1:
ActiveSheet.UsedRange.Rows.Count
ActiveSheet.UsedRange.Columns.Count
缺點:有時可能會比實際數大一些,原因是如果你把最後幾行(列)資料清除後(非整行或整列刪除),用這個命令仍返回未清除前的值。就是說現在雖然是空的,但是你曾經用過也算你的。
方法2:
ActiveSheet.Range("A65535").End(xlUp).Row
ActiveSheet.Range("IV1").End(xlToLeft).Column
可以簡寫為:
ActiveSheet.[A65536].End(xlUp).Row
ActiveSheet.[IV1].End(xlToLeft).Column
缺點:只能計算出一列(行)的最後一個單元格所在的行(列)數。本例是隻返回A列最後一個單元格所佔的行數。
方法3:
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
缺點:在工作表進行對刪除或清除操作時也會變得比實際情況大。
方法4:
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
缺點:在工作表進行對刪除或清除操作時也會變得比實際情況大。
方法5:
Application.CountA(ActiveSheet.Range("A:A"))
Application.CountA(ActiveSheet.Range("1:1"))
只能統計一列(行)的實際使用情況,得到的不一定是最後一行(列)的位置。方法2的數值比此方法大時,說明在A列的資料間有空白未填寫的單元格。
方法6:
ActiveSheet.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
ActiveSheet.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
效果同方法2
以上方法中比較常用的是方法1和方法2。
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/29987527/viewspace-2102621/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 計算陣列中每個數字出現的次數陣列
- excel 計算文字型數學表示式 用 evaluateExcel
- C#中如何獲取二維陣列的行數和列數?C#陣列
- Excel不同列多條件計數Excel
- Excel中用VBA實現刪除空行和空列Excel
- 使用AWK計算某一列的所有數值和
- Excel vbaExcel
- 5.EXCEL中的VBA程式碼Excel
- Excel函式應用例項:計算授課天數(轉)Excel函式
- 18:等差數列末項計算
- EXCEL+VBAExcel
- 利用EXCEL VBA將一列資料中不重複的資料讀取到陣列中Excel陣列
- Java中計算整數中唯一數字數量的3種方法Java
- 數學在計算機圖形學中的應用計算機
- matlab之size:返回矩陣的行數和列數Matlab矩陣
- 斐波那契數列的分治法計算
- Catalan數計算及應用
- 計算機中數值和字串怎麼用二進位制表示?計算機字串
- 圖解計算機中的數值範圍和浮點運算圖解計算機
- Excel VBA小程式 -使 用VBA實現VLOOKUP函式查詢?Excel函式
- 陣列進行奇數和偶數操作 把奇數放在陣列前面 偶數放在陣列後面陣列
- 用於計算數學統計的 PHP 包PHP
- excel VBA學習Excel
- 用Excel做個工程倒數計時牌Excel
- 統計陣列中各數字(元素)出現的次數陣列
- 計算斐波那契數列的演算法演算法
- 如何計算PHP函式中傳遞的引數數量PHP函式
- 用python指令碼計算某一個檔案的行數Python指令碼
- 如何檢視excel中的vba編碼程式碼Excel
- Shell程式設計-04-Shell中變數數值計算程式設計變數
- HOME: Count Digits —— 計算字串中數字個數Git字串
- 數棧技術分享:解讀MySQL執行計劃的type列和extra列MySql
- MYSQL INNODB 如何計算B+樹表的最大容量和行數MySql
- 第6周-統計正數和負數的個數然後計算這些數的平均值
- 6-2 計算素數和
- Online Judge計算整數的和
- 用JavaScript計算字串佔用位元組數JavaScript字串
- 怎樣用Excel函式自動計算員工工齡及休假天數Excel函式