Sheets("Sheet1").Select
Range("b3:b8").Select
Selection.Copy
Sheets("Sheet2").Select
Range("a1").Select
ActiveSheet.Paste
End?Sub
1 rang 改為 range
2?uu = rang("b3:b8").Value : Sub過程不能有返回值
3?Cells.Select :這不知什麽意思,我改成了Range("a1").Select 選擇粘貼起點。