作业帮 > 综合 > 作业

如下VBA 语句,能否再简?Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6")可以赋

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/12 11:07:09
如下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(
Sub kk()
Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6").Copy
Sheets("sheet1").Cells(1,1).PasteSpecial xlPasteValues,,,True
End Su