数组合并

蒋正栋jzd · 发表于 2019-1-21 18:12

请各位帮忙看看，如何实现
捕获.JPG

望帝春心 · 发表于 2019-1-21 18:53

看起来就是一个复制粘贴的事情啊，用VBA干什么呢？

蒋正栋jzd · 发表于 2019-1-21 19:23

望帝春心发表于 2019-1-21 18:53
看起来就是一个复制粘贴的事情啊，用VBA干什么呢？

我只是简化模拟的数据，还有其它计算，只是卡在“如何将两个二维数组合并”，希望您能指点一下。谢谢

望帝春心 · 发表于 2019-1-21 19:57

蒋正栋jzd 发表于 2019-1-21 19:23
我只是简化模拟的数据，还有其它计算，只是卡在“如何将两个二维数组合并”，希望您能指点一下。谢谢

断章取义很难去解决一个实际完整的问题，所以...

kaohsing · 发表于 2019-1-21 21:50

用字典。

爱疯 · 发表于 2019-1-22 09:30

Sub test()
Dim A, B, C, i, j

A = Range("a1").CurrentRegion
B = Range("h1").CurrentRegion
ReDim C(1 To UBound(A), 1 To UBound(A, 2) * 2 - 1)

For i = 1 To UBound(A)
      '第1列
      C(i, 1) = A(i, 1)

      '其它列
      For j = 2 To UBound(A, 2)
         C(i, j) = A(i, j)
         C(i, j + UBound(A, 2) - 1) = B(i, j)
      Next j
Next i

[a25].Resize(UBound(C), UBound(C, 2)) = C
End Sub

数组合并2.rar (11.94 KB, 下载次数: 24)

错在一起 · 发表于 2019-1-22 10:59

学习了、。。

ardu95 · 发表于 2019-1-26 08:13

学习

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