希望講清楚了,對妳有幫助。o(∩_∩)o
With Worksheets(1)
.Range(.Cells(4, 1), .Cells(UsedRange.Rows.Count, 1)).Copy ' ←應用程序定義或對象定義錯誤
End With
.Cells(4, 1).Select
ActiveSheet.Paste