如下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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/13 18:08:44
如下VBA 语句,能否再简?Sheets(

如下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

如下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 excel vba中if then语句中then后面加goto,程序如下:tjn = 1For tjm = 16 To 45For tjl = 6 To 230If Sheets(sheet1).Cells(tjl,2) = tjx(tjn) ThenSheets(sheet1).Cells(5,tjm) = tjx(tjn),GoTo tjlifendNexttjlifend:tjm = tjm + 1tjn = tjn + 1Next VBA中的WITH 语句用法 及含义 VBA 中Workbooks(Books1.xls).Sheets(Sheet1).Range(M25:AB29).ClearContents是什么意思?其中Range(M25: VBA里面,怎么表示工作呢?因为工作表的名字是在SHEET1里面的a列,a1,a2,a3来命名的工作表我现在想再VBA里面选择工作表sheets().selsect该怎么表示这个工作表呢? Vba几种循环语句是怎么写的 EXCEL VBA中WITH的语法和用法?在EXCEL中如何用VBA中的WITH语句啊? VBA请大师帮忙,解释下每句话的意思,Sub 合并工作表()Sheets(total).Range(A2:CC65536).ClearFor i = 1 To Sheets.Countrw = Sheets(total).UsedRange.Rows.Count + 1t = Sheets(i).UsedRange.Rows.CountSheets(i).Range(A2:CC & t).Copy She 英语翻译相关语句如下: vba里 Sheets(1).Range(a1).Value = 这个里面的a1里的1数值想引用成b1单元格的内容怎么写比如说b1里的数值是2 那么变会成Sheets(1).Range(a2).Value = 同理b1的数值是3就会变成Sheets(1).Range(a3).Value = vba 矩阵运算Sub 矩阵写入() '由孪晶组合计算N矩阵Dim arr(1 To 3,1 To 3) As Variantarr(1,1) = Sheets(sheet1).Range(CJ2).Valuearr(1,2) = Sheets(sheet1).Range(CK2).Valuearr(1,3) = Sheets(sheet1).Range(CL2).Valuearr(2,1) = Shee vba循环语句中for k=5to10 step2的step2什么意思 有没有能翻译VBA语言里的语句意思的词典? 用matlab语句怎样表述如下语句 vba 中if结构能否用between and如if x between 1 to 10 then sheets是什么意思 Lagging sheets silk sheets