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

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 200
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-8-17

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 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

複製代碼

學海無涯_不恥下問

TOP

靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -

返回列表下一主題上一主題

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]