Sub test()
Dim i As Integer
Range("C" & Range("C65536").End(xlUp).Row + 2 & ":Q" & Range("C65536").End(xlUp).Row + 13).Value = Range("C2:Q13").Value
End Sub
請參考
2015-06-21 14:10:00 補充:
Sub test()
Dim i As Integer
Range("C" & Range("C65536").End(xlUp).Row + 2 & ":Q" & Range("C65536").End(xlUp).Row + 13).Value = Range("C2:Q13").Value
End Sub
請參考