请教个简单数组写法

oobird · 发表于 2006-2-22 13:32

请教各位先迈，把[a1:a12]的数据复制到[b1:e3],这样的数组该怎么写？先谢啦！

northwolves · 发表于 2006-2-22 14:30

copymemory

oobird · 发表于 2006-2-22 14:58

帮帮忙具体些，如

a = [a1:a12]
[b1].Resize(3, 4) = Application.Transpose(a)

当然上面的不行，3行都是a1:a4的值，想学习到底该怎么写。

lipton · 发表于 2006-2-22 15:21

我一直使用的方法。

Sub test()
Dim aw
Dim x1 As Integer
Dim rng As Range

aw = Sheets("sheet1").Cells(1, 1).Resize(12, 1)
Set rng = Sheets("sheet1").Cells(1, 2).Resize(3, 4)

For x1 = 1 To 12
rng.Cells(x1) = aw(x1, 1) '用Cells的Index属性
Next x1

End Sub

qlz110 · 发表于 2006-2-22 15:22

我觉得还是要用循环语句来赋值吧，这关系到赋值顺序是先行后列还是先列后行。

oobird · 发表于 2006-2-22 16:15

谢谢，这样要循环12次，我就是不想循环，想学习数组一次赋值。那位愿意赐教？

j = 1

For i = 1 To 12 Step 4
Cells(j, 2).Resize(1, 4) = WorksheetFunction.Transpose(Cells(i, 1).Resize(4, 1))
j = j + 1
Next

这是目前我用的方法要循环3次。

oobird · 发表于 2006-2-22 22:20

沉到深處了，頂一下。

601476 · 发表于 2006-2-23 02:20

建議發條短訊請教Long_III老師或figfig

Long_III · 发表于 2006-2-23 08:42

好像没有什么简化的方法，4楼的就应该很简洁了

我想还是循环比较好，如果需经常用到这样的转换，可以自己自定义一个函数来处理

Private Sub CommandButton1_Click()
Dim arr, xarr()
Dim i%, m%, n%

arr = [a1:a12]

ReDim xarr(1 To 3, 1 To 4)
For i = 1 To 12
m = Application.RoundUp(i / 4, 0)
n = IIf(i Mod 4 = 0, 4, i Mod 4)
xarr(m, n) = arr(i, 1)
Next

[b1:e3] = xarr
End Sub

lizheqian168 · 发表于 2006-4-21 14:56

aw = Sheets("sheet1").Cells(1, 1).Resize(12, 1)

问:四楼的,这里aw是什么对象,是不是数组呢,如果是,为什么会二维数组呢?能不能给我说说类似rng.Cells(x1)的用法

		自动登录	找回密码
密码			免费注册