試試改改這裏:
Wb.Sheets(G).UsedRange.Copy?.Cells(.Range("B65536").End(xlUp).Row?+?1,?1)
Next
在Sheets.Count前面加壹個wb.
改後如下: