ActiveSheet.Range("M2").Value = h + 1
- 教育綜合
- 2024-11-15 07:57:37
詢問一個(gè)簡單的VBA問題,關(guān)于篩選的
其實(shí)你只需要明白這句話的意思就會(huì)改了 ActiveSheet.Range("c:c").AutoFilter Field:=1, Criteria1:="*" & TextBox1.Text & "*" ActiveSheet.Range("c:c").是篩選表格的內(nèi)容 Field:=1 表示第一列, ActiveSheet.Range("A:Z").AutoFilter Field:=2, Criteria1:="*" & TextBox1.Text & "*" ' '查找A:Z單元格的B列包含textbox1內(nèi)容 的數(shù)據(jù) ActiveSheet.Range("A:Z").AutoFiltevba range 應(yīng)用定義或?qū)ο蠖x錯(cuò)誤
原因應(yīng)該是這段程序的位置問題,如果代碼在非活動(dòng)工作表中,cells(1,1)等是指的代碼工作表,并非活動(dòng)工作表,而ActiveSheet.Range("A1:AD73")是指活動(dòng)工作表的單元格。前一句改成如下這樣即可: ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(73, 30)).Selectexcel vba range 變量問題
range(”'sheet1'!b8:di”)這個(gè)是不對(duì)的。應(yīng)該這樣寫:sheet1.range(cells(8,2),cells(i,4)) 或者這樣:sheet1.range("b8:d”&i) 給你個(gè)簡單的例子: sub aa() i = 6 activesheet.range(cells(8, 2), cells(i, 4)).select end sub 或者: sub aa() i = 6 activesheet.range("a1:d" & i).select end subActiveSheet.Range("$B$5:$AA$201").AutoFilter Field:=1
我的表里面代碼是這么寫的:ActiveSheet.Range("$A$1:$K$52").AutoFilterField:=4,Criteria1:="0.35",Operator:=xlFilterValues表示把D列(Field:=4)進(jìn)行篩選,不要0.35的內(nèi)容,你能參考寫出你需要的嗎?你要篩選BC、BD兩列,需要寫兩個(gè)這樣的語句,先把A1:K52換成你的數(shù)據(jù)區(qū)域,BC、BD分別是5、26,你的條件分別是0和-120,注意條件要有引號(hào)。求一個(gè)Excel宏或者公式
Public Sub 合并列() Dim i As Long, rowFst As Long, rowSnd As Long i = 1 Do While ActiveSheet.Range("A1").Offset(0, i * 3) <> "" rowFst = ActiveSheet.Range("A35536").End(xlUp).Row rowSnd = ActiveSheet.Range("A35536").Offset(0, i * 3).End(xlUp).Row ActiveSheet.Range("A1:C" & rowSnd).Offset(0, i * 3).Copy展開全文閱讀
下一篇
返回列表