vba给数组赋值curr

殳进钥1053VBA如何加一个数组crr 一次输出结果到DE列 -
杨邦广18050839054 ______ Sub test() Dim i&, arr, crr() arr = [a1].CurrentRegion.Value ReDim crr(1 To 6 * UBound(arr), 1 To 2) k = 1 For i = 1 To UBound(arr) ss = Split(arr(i, 1), ＂|＂) For j = 0 To UBound(ss) crr(k + j, 1) = Mid(ss(j), 1, 1) crr(k + j, 2) = Mid(ss(j), 2, 1) Next k = k + 6 Next [d1].Resize(k - 1, 2) = crr End Sub

殳进钥1053Excel 难道在VBA里就不能给数组整行赋值么 -
杨邦广18050839054 ______ 可以给数组赋值,例如:arr=array(1,2,3) arr(2)=5

殳进钥1053你好,VBA 怎样给长度为变量的数组赋值,你知道吗?比如下面的程序,如何用数组编写? 能帮忙就太感谢了! -
杨邦广18050839054 ______ 数组的长度可以用变量表示,比如下面代码,就可以先定义一个动态数组,然后根据一个算式来确定数组的大小,再给它赋值 Sub abc() Dim a() As Integer n = 0 '写入动态数组 x = 3 * 4 ReDim a(0 To x) '根据表达式计算X的值来确定数组大小 For i = 1 To 3 For j = 2 To 5 a(n) = i + j: n = n + 1 Next Next '从动态数组取数 For i = 0 To n Cells(i + 1, 1) = a(i) Next End Sub

殳进钥1053vba中改变数组元素的值 -
杨邦广18050839054 ______ 直接赋值就可以了,比如arr(1)= “hellish” arr(2) = ＂kkka＂

殳进钥1053VB中如何给数组批量赋值 -
杨邦广18050839054 ______ VB有2种方法可以一次性的将字符串放入数组中: 方法一: a=array(＂abc＂,＂abcd＂,＂ttt＂) 方法二: b=＂abc,abcd,ttt＂ a=split(b,＂,＂)

殳进钥1053vba 如何将数组的值放到excel的指定位置 -
杨邦广18050839054 ______ 示例:假设知道数组ary的行数为2和列数3,则可以尝试这样放range(＂A1＂).resize(2,3)=ary

殳进钥1053Array函数只能给什么数组赋值? -
杨邦广18050839054 ______ 对数组的要求Array函数给一维数组赋值 对变量的要求 Array函数只能给Variant类型的变量赋值 Array函数的一般使用形式如下:=Array( [数据列表])

殳进钥1053在vb中怎样把文本框输入的值赋给数组? -
杨邦广18050839054 ______ 可以,先定义这个数组,然后可以像你这样给指定的元素赋值,都是数字的话不加val()都可以

殳进钥1053vba如何给名称赋值 -
杨邦广18050839054 ______ name的value属性与range的value属性有点不一致,可以看下帮助 如果名称 数据 一开始引用的是单元格,,修改“数据”的引用位置即可 参考 RefersTo 属性

殳进钥1053vb如何在模块中给数组赋值?? -
杨邦广18050839054 ______ public dim a,b a=array(1,2,3,4,5) b=array(＂a＂,＂b＂,＂c＂)