求大神帮忙写下VBA横向转竖向急急急

644947869

求大神帮忙写下VBA横向转竖向

小花鹿

不要只上附件，在帖子中做一些说明                                                                                   

凌空一羽

Sub lkyy()
With Sheet1
ReDim ar(1 To 2, 1 To 9)
For i = 1 To 2
    ar(i, 1) = .[c3]
    ar(i, 2) = .[c4]
    ar(i, 3) = .[b7]
    ar(i, 4) = .[c7]
    ar(i, 5) = .[e7]
    ar(i, 6) = .[d6]
Next
For j = 7 To 9
    ar(1, j) = .[j7]
    ar(2, j) = .[k7]
Next
Range("c3").Resize(2, 9) = ar
ReDim ar(1 To 2, 1 To 3)
For i = 1 To 2
    ar(i, 1) = .[L10]
    ar(i, 2) = .[L4]
    ar(i, 3) = .[e4]
Next
Range("q3").Resize(2, 3) = ar
End With
End Sub

644947869

凌空一羽 发表于 2018-8-9 18:04
Sub lkyy()
With Sheet1
ReDim ar(1 To 2, 1 To 9)

如何数据延伸下来的话呢？

凌空一羽

644947869 发表于 2018-8-9 18:51
如何数据延伸下来的话呢？

你例子举例得不充分，请重新制作附件，并将相关要求发上来。

644947869

凌空一羽 发表于 2018-8-9 19:04
你例子举例得不充分，请重新制作附件，并将相关要求发上来。

是呢。我没有描述清楚

凌空一羽

644947869 发表于 2018-8-9 19:16
是呢。我没有描述清楚

这样吗？？？

644947869

凌空一羽 发表于 2018-8-9 19:57
这样吗？？？

方便加个QQ吗

凌空一羽

644947869 发表于 2018-8-9 20:02
方便加个QQ吗

可以，445211678