返回列表 上一主題 發帖

[發問] 如何用VBA加強"尋找及取代"功能

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-2-24 22:54 | 只看該作者

[發問] 如何用VBA加強"尋找及取代"功能

本帖最後由 jesscc 於 2019-2-24 22:56 編輯

Excel的"尋找及取代"功能，可以用"全部尋找"把含有關鍵字的資料全部找出，但是它只能指出這些資料所在的儲存格。
我想用上面這種方式在除了工作表("整合查詢")以外的其他所有工作表，找出所有關鍵字，並將有關鍵字那一列其中幾個欄位的資料填入到工作表("整合查詢")(如圖)，該怎麼做呢?
自己寫了一部份，但是執行不正常，不知如何修改(在工作表("整合查詢")的D3輸入關鍵字查詢)。
PS:同時希望能在工作表("整合查詢")的B欄顯示該筆資料所在工作表的名稱。

Test.rar (20.24 KB)
收藏 分享
Jess

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
2#
發表於 2019-2-26 11:32 | 只看該作者
Sub 查詢()
Dim Arr, Brr, T$, Sht As Worksheet, i&, j%, Mr, N&
T = [D3]: If T = "" Then MsgBox "未輸入查詢字串!! ": Exit Sub
[B7:M3000].ClearContents
Mr = Array(1, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)
ReDim Brr(1 To 30000, 1 To 12)
For Each Sht In Sheets
    If Sht.Name = "整合查詢" Then GoTo 101
    Arr = Sht.UsedRange
    For i = 2 To UBound(Arr)
        If InStr(Arr(i, 4), T) Then
           N = N + 1: Brr(N, 1) = Sht.Name
           For j = 1 To 11: Brr(N, j + 1) = Arr(i, Mr(j - 1)): Next
        End If
    Next i
101: Next
If N > 0 Then [B7:M7].Resize(N) = Brr
End Sub

TOP

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
3#
發表於 2019-2-26 20:54 | 只看該作者
謝謝准大的幫忙
Jess

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題