標題:
如何搜尋多個sheet的資料貼到第一個sheet內?
[打印本頁]
作者:
incest1224
時間:
2013-5-7 17:34
標題:
如何搜尋多個sheet的資料貼到第一個sheet內?
請教各位前輩
第一個sheet要設計一個輸入欄位做搜尋
[attach]14910[/attach]
可以搜尋同一檔案內所有sheet的A欄位同樣的資料
[attach]14912[/attach]
並將其他sheet同名稱A欄位往右的所有資料複製貼上至第一個sheet指定位置以下
[attach]14911[/attach]
請問有大大可以分享嗎? 謝謝
作者:
sunnyso
時間:
2013-5-7 20:55
回復
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
時間:
2013-5-7 20:57
Non-VBA
http://forum.twbts.com/redirect. ... 6&fromuid=13329
作者:
Hsieh
時間:
2013-5-7 21:16
本帖最後由 Hsieh 於 2013-5-8 07:19 編輯
回復
1#
incest1224
沒有檔案測試，你先試試看吧
Sub ex()
Dim Ar(), i%, C$, A As Range
With Sheets(1) '第一張工作表
C = .[B2].Value '要篩選的值
For i = 2 To Sheets.Count '從第2張工作表開始回圈
With Sheets(i)
For Each A In .UsedRange.Columns(1).Cells 'A欄已使用儲存格做迴圈
If A = C Then '如果與要篩選的值相同
ReDim Preserve Ar(s)
Ar(s) = A.Resize(, 10) '將該列A:J欄寫入陣列
s = s + 1
End If
Next
End With
Next
.[A6].CurrentRegion.Offset(1).ClearContents '清除舊有資料
If s > 0 Then .[A7].Resize(s, 10) = Application.Transpose(Application.Transpose(Ar)) '若有符合項目則寫入工作表1的A7以下位置
End With
End Sub
複製代碼
作者:
luke
時間:
2013-5-7 21:40
回復
4#
Hsieh
回覆H超版
End Sub之前少了這一句End With
以上
作者:
incest1224
時間:
2013-5-8 08:34
回復
2#
sunnyso
本以為要完全對應儲存格內容去搜尋~
沒想到還可以關鍵字搜尋方式!! 這樣子看起來比較好用，受教了~
但積分不足，要多努力累積才可以下載嚕!! 謝謝S大的分享
作者:
incest1224
時間:
2013-5-8 08:42
回復
4#
Hsieh
先謝謝H版大
試試看先嚕^^
作者:
incest1224
時間:
2013-5-8 16:33
回復
4#
Hsieh
H版大~碰到一個問題@@
您的程式碼測試我PO的小範例可以應用沒問題(沒有我下面碰到的問題)
但套到我的檔案內，就發現他在清除儲存格時異常
如果我第一次搜尋出來的列數大於第二次的列數
則第一次多餘的列數就會
殘留資訊
在上面，不知道是我檔案有問題 還是資料有問題???
因是重要資料~不方便透露詳細資訊
[attach]14923[/attach]
作者:
GBKEE
時間:
2013-5-8 17:02
回復
8#
incest1224
不知道是我檔案有問題 還是資料有問題???
沒有檔案,誰會知道 (
請附上檔案 含程式碼!
)
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
