请帮数据库---横向二维数组转置改成函数

鄂龙蒙 · 发表于 2016-11-5 17:11

请教：下面的代码用于，ACCEDD数据库---横向二维数组转置，怎样改写成函数？谢谢！
On Error Resume Next
Dim Brr()
ReDim Brr(1 To UBound(Arr, 2) + 1, 1 To 4)    '来源于ACCEDD数据库---横向二维数组转置
      For i = 1 To UBound(Arr, 2) + 1
         For j = 1 To 4
            Brr(i, j) = Arr(j, i - 1)
         Next j
      Next i

microyip · 发表于 2016-11-5 19:23

brr=Application.WorksheetFunction.Transpose(arr)

复制代码

鄂龙蒙 · 发表于 2016-11-5 21:03

microyip 发表于 2016-11-5 19:23

谢谢啦！一维数组可用，二维数组呢？

microyip · 发表于 2016-11-6 10:44

鄂龙蒙发表于 2016-11-5 21:03
谢谢啦！一维数组可用，二维数组呢？

一，二维都是一样，受人鱼不如授人渔，自己多进行一些尝试，在参数监视窗口里看看变化

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

[求助] 请帮数据库---横向二维数组转置改成函数

评分