如何搜尋多個sheet的資料貼到第一個sheet內?

incest1224

請教各位前輩
第一個sheet要設計一個輸入欄位做搜尋

下載 (20.62 KB)

2013-5-7 17:33

可以搜尋同一檔案內所有sheet的A欄位同樣的資料

下載 (41.61 KB)

2013-5-7 17:33

並將其他sheet同名稱A欄位往右的所有資料複製貼上至第一個sheet指定位置以下

下載 (32.44 KB)

2013-5-7 17:33

請問有大大可以分享嗎? 謝謝

sunnyso

回復 1# incest1224

http://forum.twbts.com/redirect.php?goto=findpost&ptid=8940&pid=52342&fromuid=13329

http://forum.twbts.com/redirect. ... 2&fromuid=13329

sunnyso

Non-VBA

http://forum.twbts.com/redirect. ... 6&fromuid=13329

Hsieh

回復 1# incest1224
沒有檔案測試，你先試試看吧

1. Sub ex()
   
2. Dim Ar(), i%, C$, A As Range
   
3. With Sheets(1) '第一張工作表
   
4. C = .[B2].Value '要篩選的值
   
5.    For i = 2 To Sheets.Count '從第2張工作表開始回圈
   
6.       With Sheets(i)
   
7.          For Each A In .UsedRange.Columns(1).Cells 'A欄已使用儲存格做迴圈
   
8.             If A = C Then '如果與要篩選的值相同
   
9.                ReDim Preserve Ar(s)
   
10.                Ar(s) = A.Resize(, 10) '將該列A:J欄寫入陣列
    
11.                s = s + 1
    
12.             End If
    
13.          Next
    
14.       End With
    
15.     Next
    
16. .[A6].CurrentRegion.Offset(1).ClearContents '清除舊有資料
    
17. If s > 0 Then .[A7].Resize(s, 10) = Application.Transpose(Application.Transpose(Ar)) '若有符合項目則寫入工作表1的A7以下位置
    
18. End With
    
19. 
    
20. End Sub

複製代碼

luke

回復 4# Hsieh


    回覆H超版

    End Sub之前少了這一句End With

    以上

incest1224

回復 2# sunnyso


本以為要完全對應儲存格內容去搜尋~   
沒想到還可以關鍵字搜尋方式!!  這樣子看起來比較好用，受教了~
但積分不足，要多努力累積才可以下載嚕!!  謝謝S大的分享

incest1224

回復 4# Hsieh


    先謝謝H版大
試試看先嚕^^

incest1224

回復 4# Hsieh

H版大~碰到一個問題@@
您的程式碼測試我PO的小範例可以應用沒問題(沒有我下面碰到的問題)

但套到我的檔案內，就發現他在清除儲存格時異常
如果我第一次搜尋出來的列數大於第二次的列數
則第一次多餘的列數就會殘留資訊在上面，不知道是我檔案有問題  還是資料有問題???

因是重要資料~不方便透露詳細資訊

下載 (592.39 KB)

2013-5-8 16:32

GBKEE

回復 8# incest1224
不知道是我檔案有問題  還是資料有問題???
沒有檔案,誰會知道 (請附上檔案 含程式碼!)