返回列表 上一主題 發帖

EXCEL VBA的 篩選 小問題

a1098131122

帖子
3 
主題
3 
精華
0 
積分
4 
點名
0  
作業系統
WINDOWS 
軟體版本
10 
閱讀權限
10 
註冊時間
2020-12-8 
最後登錄
2021-3-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-12-9 16:55 | 只看該作者

EXCEL VBA的 篩選 小問題

因為我希望EXCEL巨集可以把我要的項目篩選出來並且刪除，但是下面的黃色"製表日期: 109/12/09"每個檔案的日期都不一樣，想請教如果寫會讓EXCEL知道篩選出"製表日期"開頭的就可以了

Sub 巨集4()
'
' 巨集4 巨集
'

'
    Rows("1:3").Select
    Selection.Delete Shift:=xlUp
    Cells.Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$M$846").AutoFilter Field:=1, Criteria1:=Array( _
        "小計:", "合計:", "科目編號", "製表日期: 109/12/09"), Operator:=xlFilterValues
    ActiveCell.Offset(78, 0).Rows("1:1").EntireRow.Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$1:$M$824").AutoFilter Field:=1
    Columns("A:B").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.FormulaR1C1 = "=R[-1]C"
    Columns("A:B").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Columns("C:C").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.FormulaR1C1 = "=R[-1]C"
    Columns("C:C").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Range("$A$1:$M$846").AutoFilter Field:=4, Criteria1:="="
    ActiveCell.Offset(819, 0).Rows("1:1").EntireRow.Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=-3
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=3
End Sub
收藏 分享

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
2#
發表於 2020-12-11 23:17 | 只看該作者
回復 1# a1098131122


試試看

ActiveSheet.Range("$A$1:$M$846").AutoFilter Field:=1, Criteria1:=Array( _
        "小計:", "合計:", "科目編號", "製表日期*"), Operator:=xlFilterValues   
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 站在半路，比走到目標更辛苦。
返回列表 上一主題