麻煩看一下哪裡出錯
都出現 應用程式或物件定義上的錯誤
Sub 車號()
'X = InputBox("請輸入車號")
Range("B1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$H$145").AutoFilter Field:=2, Criteria1:="=*" & X & "*", Operator:=xlAnd
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = X
Range("A1").Select
ActiveSheet.Paste
Columns("A:H").Select
Selection.Columns.AutoFit
Range("A1").Select
Sheets("行車紀錄器").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("B1").Select
End Sub
更新1:
目前出現 Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = X 應用程式或物件定義上的錯誤
更新2:
Sub 搜尋車號() Sheets("查詢").Select ActiveSheet.Cells.Clear CarN = InputBox("請輸入搜尋車號關鍵字", "查詢車號") CarNum = "*" & CarN & "*" With Sheets("行車紀錄器") .AutoFilterMode = False .UsedRange.AutoFilter Field:=2, Criteria1:=CarNum .UsedRange.Copy Sheets("查詢").Cells(1, 1) .AutoFilterMode = False End With End Sub 以上運行都可以!! 那我想要一次收尋兩個工作表 例如: 行車紀錄器A 行車紀錄器B 有重複資料也可以列出 要怎麼修改??