Sub uu()
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 选择粘贴起点。
sheet1.range("B3","B8").copy
sheet2.[A1].pastespecial xlvalues
或者直接等于值呢
sheet1.range("B3","B8").select
sheet2.[A1].resize(selection.rows.count,1)=selection.value
ctrl+_C 在 ctrl+C 试试