如下VBA 语句,能否再简?Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6")可以赋给一个变量吗?Sub kk()Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6").Copy Sheets("sheet2").Range("a10:i10")ary = Sheets("sheet2").Range("a10:i10")Sheets("sheet1").Cel
来源:学生作业帮助网 编辑:六六作业网 时间:2025/01/19 12:05:13
如下VBA 语句,能否再简?Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6")可以赋给一个变量吗?Sub kk()Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6").Copy Sheets("sheet2").Range("a10:i10")ary = Sheets("sheet2").Range("a10:i10")Sheets("sheet1").Cel
如下VBA 语句,能否再简?Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6")可以赋给一个变量吗?
Sub kk()
Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6").Copy Sheets("sheet2").Range("a10:i10")
ary = Sheets("sheet2").Range("a10:i10")
Sheets("sheet1").Cells(1,1).Resize(UBound(ary,2),UBound(ary)) = Application.Transpose(ary)
Sheets("sheet2").Range("a10:i10").ClearContents
End Sub
如下VBA 语句,能否再简?Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6")可以赋给一个变量吗?Sub kk()Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6").Copy Sheets("sheet2").Range("a10:i10")ary = Sheets("sheet2").Range("a10:i10")Sheets("sheet1").Cel
Sub kk()
Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6").Copy
Sheets("sheet1").Cells(1,1).PasteSpecial xlPasteValues,,,True
End Sub