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
有重複資料也可以列出
要怎麼修改??
Cheng 你好 謝謝幫忙之前問題~謝謝!! 現在問題是在以下程式中要再加入 (收尋兩個工作表) 指令 例如: 行車紀錄器A 行車紀錄器B 如何加入或修改?? 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
-------------------------------------------------------------------------- 以下輸入運行發生錯誤 篩選資料的第2列列號 Xa = Cells.SpecialCells(xlCellTypeVisible).Areas(2).Row '篩選資料的最後一列列號 Xb = Cells.SpecialCells(xlCellTypeLastCell).Row '複製到查詢接續 Xc = Sheets("查詢").[A65536].End(xlUp).Row + 1 Range("A" & Xa & ":L" & Xb).SpecialCells(xlCellTypeVisible).Copy Sheets("查詢").Range("A" & Xc)