返回列表 上一主題 發帖

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

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

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

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

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

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

懇請各位大大解惑協助

javascript:;

javascript:;
Image 1.png

複製貼上VBA請教.rar (10.02 KB)

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

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事,就等於壽命有多長。因此必須與時間競爭,切莫使時日空過。
返回列表 上一主題