VBA数组转换transpose出错如何改正

laoau128 · 发表于 2018-11-17 20:50

VBA数组转换transpose出错如何改正

Sub 出错如何改()
Dim arr
Range("a1:b1") = Array("abcdef", String(512, "vba"))
arr = Range("a1:b1")
Range("a6:a7") = Application.Transpose(arr)
End Sub

liulang0808 · 发表于 2018-11-17 20:59

字符串太长了

hdbk · 发表于 2018-11-17 21:04

Sub 出错如何改()
Dim arr
Range("a1:b1") = Array("abcdef", String(10, "vba"))
arr = Range("a1:b1")
Range("a6").Resize(2, 1) = Application.Transpose(arr)
End Sub

laoau128 · 发表于 2018-11-17 21:06

liulang0808 发表于 2018-11-17 20:59
字符串太长了

用这么长难道不能？

如何改

liulang0808 · 发表于 2018-11-17 21:12

laoau128 发表于 2018-11-17 21:06
用这么长难道不能？

如何改

那就注意赋值吧，这个用不了了

laoau128 · 发表于 2018-11-17 21:14

liulang0808 发表于 2018-11-17 21:12
那就注意赋值吧，这个用不了了

难道高手你也没有办法

liulang0808 · 发表于 2018-11-17 21:38

本帖最后由 liulang0808 于 2018-11-17 21:40 编辑

laoau128 发表于 2018-11-17 21:14
难道高手你也没有办法

逐一赋值即可了，别转置了

liulang0808 · 发表于 2018-11-17 21:40

另外就是直接使用拷贝转置看看
Sub 出错如何改()
Dim arr
Range("a1:b1") = Array("abcdef", String(512, "vba"))
Range("a1:b1").Copy
Range("A6").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

huang1314wei · 发表于 2018-11-17 21:48

好久没有上论坛了，laoau128 兄又重出江湖了，恭喜，论坛有你更精彩
Application.Transpose 转置的字符串超过255就会报错的，所以得另辟蹊径

zopey · 发表于 2018-11-17 22:06

直接在工作表A6：A7输入数组公式 transpose ()，可以转置。

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

[求助] VBA数组转换transpose出错如何改正