vba二维转一维数据溢出

starnew88 · 发表于 2024-8-15 11:45

本帖最后由 starnew88 于 2024-8-15 12:42 编辑

各位老师

用动态数据把二维数据转换为一维数据（近2万行，12列数据），报错溢出，老师们帮忙看看问题出在哪，或用字典看是否更好？
用公式做出来可以的（不会溢出），谢谢

无关岁月 · 发表于 2024-8-15 12:02

Sub 二维to一维()
Dim arr, i, j, m
Application.ScreenUpdating = False

arr = [a1].CurrentRegion
ReDim brr(1 To UBound(arr) * 12, 1 To 3)

For i = 2 To UBound(arr)
For j = 2 To UBound(arr, 2)
      m = m + 1
      brr(m, 1) = arr(i, 1)
      brr(m, 2) = arr(1, j)
      brr(m, 3) = arr(i, j)
Next
Next
[f1].Resize(m, 3) = brr

Application.ScreenUpdating = True
End Sub

ykcbf1100 · 发表于 2024-8-15 12:09

楼主不给个效果图吗？
现在不知道要怎么转置。

longwin · 发表于 2024-8-15 12:19

Dim n As Long

longwin · 发表于 2024-8-15 12:21

starnew88 · 发表于 2024-8-15 12:39

longwin 发表于 2024-8-15 12:21

谢谢，一下子把这个细节给忽略了！

starnew88 · 发表于 2024-8-15 12:40

无关岁月发表于 2024-8-15 12:02
Sub 二维to一维()
Dim arr, i, j, m
Application.ScreenUpdating = False

学习一下，谢谢！

starnew88 · 发表于 2024-8-15 12:41

ykcbf1100 发表于 2024-8-15 12:09
楼主不给个效果图吗？
现在不知道要怎么转置。

好的，就是普通的转置（放在哪里无所谓，一维表），谢谢！

starnew88 · 发表于 2024-8-15 13:06

无关岁月发表于 2024-8-15 12:02
Sub 二维to一维()
Dim arr, i, j, m
Application.ScreenUpdating = False

试了一下，对比我的更简洁，可以，谢谢！

无关岁月 · 发表于 2024-8-15 13:10

starnew88 发表于 2024-8-15 13:06
试了一下，对比我的更简洁，可以，谢谢！

主要是转置是多余的，而且超过6万多行，转置就没法用了

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

[已解决] vba二维转一维数据溢出

评分

评分