|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
其实直接用For 循环提取结果,代码也很简单,并没有那么夸张地被认为是很繁琐。- Sub test1()
- Dim arr(1 To 100, 1 To 20)
- For i = 1 To 100
- For j = 1 To 20
- arr(i, j) = i & "_" & j
- Next
- Next
- '以上生成二维数组arr并赋值
- ReDim brr(51 To 100, 11 To 20) '定义一个和原来arr数组同样行列位置的新数组brr
- For i = 51 To 100
- For j = 11 To 20
- brr(i, j) = arr(i, j) '因此新数组brr的行列位置可以和源数组arr的行列位置保持一致
- Next
- Next
- Stop
-
- ReDim brr(1 To 50, 1 To 10) '定义一个新数组brr (下标从1开始)
- For i = 1 To 50
- For j = 1 To 10
- brr(i, j) = arr(50 + i, 10 + j) '因此从源数组arr中提取数据时,必须考虑位置偏移的量。
- Next
- Next
- Stop
- ReDim brr(1 To 50, 1 To 10) '定义一个新数组brr (下标从1开始)
- For i = 51 To 100
- For j = 11 To 20
- brr(i - 50, j - 10) = arr(i, j) '因此从源数组arr中提取数据时,必须考虑位置偏移的量。
- Next
- Next
- Stop
-
- End Sub
复制代码 |
评分
-
2
查看全部评分
-
|