[發問] 抓取篩選後儲存格內容至對應的工作表

各位好!~
我之前有請教過自動抓取後面有標註的方法，但那時候資料比較少
現在資料變多了
目前有7位人員(B1:H1)，我都用相同的程式碼複製再複製
但後續還會增加人員(假設B1:K1)，我得再次修改程式碼
請問有沒有什麼樣的寫法，可以自動抓取(B1:K1)到對應的工作表內
(因為後續還有各個月份需要新增上去QQ，人員隨時會增加，而專屬的工作表資料是累加的)

再次感謝 :)

資料.rar (837.08 KB) 的)

樓主熱帖

Michelle-W

中學生 Rank: 2

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

2^#

發表於 2016-7-14 21:01 | 顯示全部帖子

回復 2# c_c_lai

會出現1004的錯誤QQ

偵錯反黃的是這句
ActiveSheet.Name = lg.Value
這組程式碼太複雜了，我還看不懂>"<

在麻煩您幫忙看看
再次再次的感謝

TOP

Michelle-W

中學生 Rank: 2

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

3^#

發表於 2016-7-15 16:31 | 顯示全部帖子

回復 4# Kubi

非常感謝您的指點~~
還想請教一下...
若是假設B欄只是要記錄時間
(沒有專屬工作表，但要連同資料一起貼到專屬的工作表裡面的話)
以這組程式碼有辦法做更改嗎?

再次感謝 :)

資料-2.rar (27.23 KB)

TOP

Michelle-W

中學生 Rank: 2

帖子: 63
主題: 13
精華: 0
積分: 122
點名: 0
作業系統: Windows
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2015-4-22
最後登錄: 2019-7-19

4^#

發表於 2016-7-18 16:25 | 顯示全部帖子

回復 6# c_c_lai

謝謝您的指導~ ^^
這組程式碼我看得比較吃力，比較難...
您有特別註明只針對5月份的資料
請問如果同時有5月與6月的資料要新增進去專屬工作表內，
就無法使用或修改這組程式碼的寫法對嗎??
我自己亂改，資料都會被覆蓋，只顯示6月的資料 QQ
如果可以的話，再麻煩您指點一下
感謝><"

TOP

Michelle-W