標題: [發問] 同一檔案內 不同分頁複製貼上 [打印本頁]

---

作者: free72921    時間: 2019-5-30 23:31     標題: 同一檔案內 不同分頁複製貼上

請教各位大大如何將水果、蔬菜、肉類三個分頁資料依序以VBA方式貼至總表(貼上值)

水果8個品項，貼上總表範圍A2:C9

蔬菜12個品項，判別水果資料已占據總表範圍A2:C9，所以從A10開始貼上，貼上總表範圍A10:C21

肉類4個品項，判別蔬菜資料已占據總表範圍A10:C21，所以從A22開始貼上，貼上總表範圍A22:C25

懇請各位大大解惑協助

javascript:;

javascript:;

---

作者: 准提部林    時間: 2019-6-2 10:45

Sub TEST()
Dim Sht As Worksheet
For Each Sht In Sheets
    With Sht
         If InStr("水果/蔬菜/肉類", .Name) = 0 Then GoTo 101
         Range(.[C2], .[A65536].End(xlUp)).Copy [總表!A65536].End(xlUp)(2)
    End With
101: Next
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)