vba中如何使用复制粘贴语句？

Question

我想把sheet1中b3到b8单元格的内容复制到sheet2
如何通过vba编程来实现
Sub uu()Sheets("Sheet1").Selectuu = rang("b3:b8").ValueSelection.CopySheets("Sheet2").SelectCells.SelectActiveSheet.PasteEnd Sub这样输入显示
本人菜鸟，请高手指点。Sheets("Sheet1").SelectRange("b3:b8").Select这些意思，我都明白是选择工作表，里b3到b8的区域，但是后面Selection.Copy是什么意思？

Answer 1

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 选择粘贴起点。

追问

Sub过程不能有返回值?是什么意思？能详细说明一哈吗？

追答

在函数中可以把值赋给函数名表示该函数的返回值，你把一个值赋给过程名，而过程不能有返回值，就会发生语法错误。

Answer 2

sheet1.range("B3","B8").copy
sheet2.[A1].pastespecial xlvalues
或者直接等于值呢
sheet1.range("B3","B8").select
sheet2.[A1].resize(selection.rows.count,1)=selection.value

Answer 3

ctrl+_C 在 ctrl+C 试试