2020-5-26更新:可以不限定3000,使用通用**:rows.count,這樣在office07之後的版本,以及07之前的版本,不管有多少行,都可以正常使用~
sub test()
msgbox (rows("2:" & rows.count).specialcells(12).row)
end sub
range.specialcells 方法可以返回乙個 range 物件,該物件代表與指定型別和值匹配的所有單元格。 其語法如下: 表示式.specialcells(type,value) 其type引數的可選xlcelltype常量及對應值如下表:
xlcelltype 常量值說明
xlcelltypeallformatconditions
-4172
任意格式單元格
xlcelltypeallvalidation
-4174
含有驗證條件的單元格
xlcelltypeblanks
空單元格
xlcelltypecomments
-4144
含有注釋的單元格
xlcelltypeconstants
含有常量的單元格
xlcelltypeformulas
-4123
含有公式的單元格
xlcelltypelastcell
已用區域中的最後乙個單元格
xlcelltypesameformatconditions
-4173
含有相同格式的單元格
xlcelltypesamevalidation
-4175
含有相同驗證條件的單元格
xlcelltypevisible
所有可見單元格
當type引數為 xlcelltypeconstants 或 xlcelltypeformulas時,value引數有4種xlspecialcellsvalue 常量可選,見下表:
xlspecialcellsvalue 常量值說明
xlerrors
錯誤值xllogical
邏輯值xlnumbers
數字xltextvalues
文字如下specialcells(xlcelltypeconstants,23)語句中的23=16+4+1+2,即表示定位的常量包含4種型別的單元格:錯誤值+邏輯值+數字+文字
sub 定位常量()
range("a:a").specialcells(xlcelltypeconstants, 23).select
end sub
如只要定位常量錯誤值及邏輯值(即16+4=20),則採用如下**:
sub test1()
range("a:a").specialcells(xlcelltypeconstants, 20).select
VBA的第一次程式彙總
option explicit sub resize 1 dim myrange as range set myrange activesheet.usedrange set myrange range a2 resize 5,6 myrange.select msgbox 當前選擇的單元格區域位址...
VBA學習第一天,for 與 if 的使用
今天是學習王佩豐老師vba課程的第一天,簡單處理資料 練習1,1.根據e內容,在f稱呼 先生 或者 女士 2.根據b列內容,在c列顯示代號 理工 lg 文科 wk 財經 cj 3.根據d列,刪除姓名為空的行 原料資料如下 處理效果如下 vba sub chuli 定義i為整數型別 dim i as ...
Fedora安裝後需要做的第一件事
一直以來,red hat 系的許多教程,都會建議你關閉 selinux。確實,啟用 selinux 可能會造成許多莫名其妙的錯誤。但在實際生產環境,甚至是使用者工作站,red hat 都建議將 selinux 設為 enforcing 模式,因為它在關鍵時候可以成為你系統安全的最後一道防線。程式是不...