tnjk.net
当前位置:首页 >> vBA 数组 rEsizE >>

vBA 数组 rEsizE

如[c4].resize(2,3)以c4为左上角2行3列的单元格区域,即c4:e5

将你的代码修改为以下,利用变量j表示要写入brr的行数: Sub shaixuan() Dim arr, brr() Range("F1") = "Name" Range("G1") = "Price" arr = Range("A2:B6") ReDim brr(1 To UBound(arr), 1 To 2) j = 1 For i = 1 To UBound(arr) If arr(i, 2) ...

Sub LKJLK() a = "王|10|李|12|吴|13|叶|15|张|17|黄|26|陈|33" arr = Split(a, "|") For i = 0 To UBound(arr) x = Fix(i / 4) + 2 y = (i + 1) Mod 4 If y = 0 Then y = 4 Cells(x, y) = arr(i) NextEnd Sub 一维没法转成多维,RESIZE是用不了...

视乎楼主的目的, 及要什麼效果 如 a = 101 Cells(1,1).resize(10,20) = a A1:T10 的所有单元格 都变成 101 如 a=Cells(1,1).resize(10,20), 当然是错, 情况如在单元格打上 =A1:T10 都是出错误值 Cells(1,1).resize(10,20)是A1:T10的地址 如欲 a ...

虽然你这两个的代码结果一样的,但是并不能说resize存在的没有意义了? 正是因为resize的应用才会有相同的结果,假使你在下面那行代码去掉resize,用: Range("b1:e5").Value = "34" 还能一样吗? 注意: 上面那行区域是:("b1:e3") -------- 3...

Resize 方法只能用于连续单元格区域! 如果要选中到第一列必须对每个非连续单元格区域先 Offset 后 Resize: Union(Range("E2").Offset(, -4).Resize(1, 5), Range("E5").Offset(, -4).Resize(1, 5), Range("E9").Offset(, -4).Resize(1, 5)).Select

就是将数组brr里的数据,导入到以C3单元格为起点的区域中去。 是一种简单有效的写法。

最简单的排序,须借助excel的函数: Sub SmallSort() Dim a(-1 To 3), i, b() For i = LBound(a) To UBound(a) a(i) = Int(Rnd * 10) '赋值给a() Next Rows("5:6").Delete [a5].Resize(1, UBound(a) - LBound(a) + 1) = a '下面是排序方法,结果...

Resize(0, 1)不对的,参数可以省略,如Resize(1, ) 或Resize(, 1) 但不能是0, 自己F1 看帮助会明白的 参数必须大于1才会有效果,你可以试试下面的代码 MsgBox Sheet1.Range("a1").Resize.Address MsgBox Sheet1.Range("a1").Resize(1,1).Addres...

'如果是要把一组数据都放进A1Range("a1") = Join(Array(1, 2, 3, 4), "")'如果是放在一行,A1,B1…… Range("a1").Resize(1, 4) = Array(1, 2, 3, 4)'如果是放在一列,A1,A2……Range("a1").Resize(4, 1) = Application.Transpose(Array(1, 2, 3, 4))

网站首页 | 网站地图
All rights reserved Powered by www.tnjk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com