VBA篩選後的操作,需要選擇第乙個可見單元格

2021-10-05 10:24:52 字數 1421 閱讀 8208

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 模式,因為它在關鍵時候可以成為你系統安全的最後一道防線。程式是不...