获取第一个工作表(表名为AA)中A1的值赋值给X x=sheets(1)[a1] 或者 x=sheets(“AA”)[a1] x=sheets(1)cells(1,1) x=sheets(“AA”)cells(1,1)
dim arr
arr=thisworkbooksheets("sheet1")range("b1:b&thisworkbooksheets("sheet1")range("b65536")end(xlup)row)
通过VBA代码循环。有数据的单元格区域,通过VBA代码循环找到每行每列对应的单元格的值,通过对话框显示出来,这样子就可以vba怎么看数组所对应的单元格。在Excel中想实现什么功能,就可以用VBA语言编写一段程序去完成。
Option Base 1
Sub 数组片段()
Dim i%, arr, arr1(2, 1) '先定义一个和绿色区域相同大小的数组arr1,2行1列
arr = Range("G2:K6")Value '把**区域的数据读入数组arr,5行5列
For i = 1 To 2 '用FOR循环为新数组arr1赋值
arr1(i, 1) = arr(i + 2, 3)
Next i
Range("A1")Resize(2) = arr1 '将单元格区域A1改变大小为2行1列后输入新数组arr1的值
End Sub
循环,知道不为0,脚本文本:
Sub 宏1()
Dim arr, x
arr = Array(10, 90, 3, 56, 0, 32)
Do
x = arr(Rnd(UBound(arr) - LBound(arr)))
Loop Until x <> 0
DebugPrint x
End Sub
以上就是关于怎么获取excel vba数组内数值的真实地址全部的内容,包括:怎么获取excel vba数组内数值的真实地址、vba 如何获取sheet1中B列所有数据的值存到一个数组中、vba怎么看数组所对应的单元格等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)