如下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
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
Sub kk()
Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6").Copy
Sheets("sheet1").Cells(1,1).PasteSpecial xlPasteValues,,,True
End Su
Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6").Copy
Sheets("sheet1").Cells(1,1).PasteSpecial xlPasteValues,,,True
End Su
如下VBA 语句,能否再简?Sheets("sheet2").Range("a6:c6,e6:g6,i6:k6")可以赋
单元格C6=E6+F6+G6+H6+I6+J6+K6+L6+M6+N6怎样弄
exel 里 =2*(C6*E6+C6*G6+E6*G6)/1000000
=IF(LEN(C6&D6&E6&F6&G6)>0,F6-G6,
Excel求函数自动算出+G6-B6-C6-D6-E6-F6?
=(RIGHT(C6,2)+RIGHT(D6,2)+RIGHT(E6,2)+RIGHT(F6,2)+RIGHT(G6,2
电子表格中怎样求(C6:D31,G6:K31,K6:L13)中大于或等于80分的人数函数公式?
EXCEL的VBA中,SHEETS的CELL和RANGE有什么区别?
Sheet1.Range("a1") = Sheet2.Range("a1") * Sheet2.Range("h1")
vba里 Sheets(1).Range("a1").Value = "" 这个里面的a1里的1数值想引用成b1单元格的
VBA range.resize的意义.
VBA问题:把sheet1中A1 A2 A3 B1 B2 B3的内容复制到sheet2中A2 A4 A6 B2 B4 B