EXCEL中建立查詢系統((一次收尋兩個工作表))?

2016-11-09 3:44 am
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
有重複資料也可以列出
要怎麼修改??
更新1:

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:

-------------------------------------------------------------------------- 以下輸入運行發生錯誤 篩選資料的第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)

回答 (1)

2016-11-09 1:08 pm
✔ 最佳答案
'篩選資料的第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)


收錄日期: 2021-05-03 13:47:28
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20161108194428AAYhFLI

檢視 Wayback Machine 備份