Excel vba 数组名称中如何使用变量
把你需要使用变量名称的数组放到另一个数组里,使用数组中的数组就行了。
在VBA中怎样引用变量
例如:
Private Sub Command1_Click()
Dim i As Long, j As Long
i = 1
j = i
End Sub
vba 函数怎么引用名称为变量工作表
使用Sheets可以按名称和序号引用,例如:
MsgBox Sheets(2).Name
MsgBox Sheets("汇总").Name两个语句都可以正确执行,但是当没有【汇总】工作表的时候会报错。
vba函数引用变量
亲测以下方式可行 Sub test() Dim ColName1 As String, ColName2 As String, ColNum As Long, a() As Long Dim i As Integer, j As Integer ReDim a(1 To 5, 1 To 2) For i = 1 To 5 '给aa数组赋值 For j = 1 To 2 a(i, j) = i * j Next Next For i = 4 To 10 Step 3 '从4列即“d”列开始 ColNum = i * 1 '起始列的变量表示 ColName1 = GetExcelColumn(i * 1) '起始列变量名称 ColName2 = GetExcelColumn(i * 1 + 1) '终止列变量名称 Sheets("Sheet1").Range(ColName1 & "1:" & ColName2 & "5") = a '将数组a赋值到 Range:D1:E5, G1:H5,J1:K5 Next End Sub Function GetExcelColumn(columnNumber As Long) Dim div As Long, ColName As String, modulo As Long div = columnNumber: ColName = vbNullString Do While div > 0 modulo = (div - 1) Mod 26 ColName = Chr(65 + modulo) & ColName div = ((div - modulo) / 26) Loop GetExcelColumn = ColName End Function