作者：绿色风
分类：
时间：2022-08-17
浏览：108
楼主
wise |
Q:如何对两个区域的数据进行组合？
A：ALT+F11→插入模块→输入以下代码：
- Sub test()
- Dim arr1, arr2, brr, i As Long, j As Long, k As Long, m As Long
- '分别定义arr1,arr2,brr三个数组变量
- '分别定义i,j,k,m为长整型变量
- arr1 = Range("C3:E" & Cells(Rows.Count, 3).End(xlUp).Row)
- '把第一组对应的数据赋予给arr1
- arr2 = Range("G3:I" & Cells(Rows.Count, 7).End(xlUp).Row)
- '把第二组对应的数据赋予给arr2
- ReDim brr(1 To UBound(arr1) * UBound(arr2), 1 To 6)
- '重新定义brr数组的维度，其中上界为前面两个数组的下标的乘积，而下标为6
- For i = 1 To UBound(arr1)
- For j = 1 To UBound(arr2)
- '循环2个数据区域
- m = m + 1
- '累计器，为赋予brr值作准备
- For k = 1 To 3
- '因为brr数组的下标为6，其中前3列来自arr1，后3列来自arr2
- brr(m, k) = arr1(i, k)
- brr(m, k + 3) = arr2(j, k)
- Next k
- Next j
- Next i
- Range("P3").Resize(m, 6) = brr
- '把值赋予给以P3为基准的区域
- End Sub
 数字组合.rar
|
2楼
wqfzqgk |
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一