[發問] 同一檔案內 不同分頁複製貼上

free72921

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

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

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

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

懇請各位大大解惑協助

javascript:;

javascript:;

准提部林

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