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

2025-01-19 16:15:49
推荐回答(3个)
回答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 选择粘贴起点。

回答2:

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

回答3:

ctrl+_C 在 ctrl+C 试试