[已解决]Excel Vba 多列转一列及多行转一行的问题

40645759

为嘛下面多列转一列的没有问题，多行转一行的不行，急
----------------------------------------------------------
Sub 多列转一列()
    Application.ScreenUpdating = False
    ARR = Sheets(1).UsedRange
    For J = 2 To UBound(ARR, 2)
       Application.Intersect(Sheets(1).UsedRange, Columns(J)).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    Next J
    Application.ScreenUpdating = True
End Sub
----------------------------------------------------------
Sub 多行转一行()
    Application.ScreenUpdating = False
    ARR = Sheets(1).UsedRange
    For J = 2 To UBound(ARR, 1)
       Application.Intersect(Sheets(1).UsedRange, Rows(J)).Copy Cells(1, Clolumns.Count).End(xlToLeft).Offset(0, 1)
    Next J
    Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

qh8600

2015-5-17 09:13

zpy2 发表于 2015-5-17 05:23
可以吧 代码没错啊

Application.Intersect(Sheets(1).UsedRange, Rows(J)).Copy Cells(1, Clolumns.Count).End(xlToLeft).Offset(0, 1)

应该是columns

跳转到最佳答案楼层

Excel学徒123

既然用了数组，怎么不直接用数组转过去，还要用复制来做呢？

40645759

Excel学徒123 发表于 2015-5-16 23:03
既然用了数组，怎么不直接用数组转过去，还要用复制来做呢？

不懂，能说明白滴么?

Excel学徒123

40645759 发表于 2015-5-16 23:38
不懂，能说明白滴么?

太晚了，如果明天问题还没解决的话，我就试试帮你吧

zpy2

可以吧 代码没错啊

qh8600

zpy2 发表于 2015-5-17 05:23
可以吧 代码没错啊

Application.Intersect(Sheets(1).UsedRange, Rows(J)).Copy Cells(1, Clolumns.Count).End(xlToLeft).Offset(0, 1)

应该是columns

40645759

qh8600 发表于 2015-5-17 09:13
Application.Intersect(Sheets(1).UsedRange, Rows(J)).Copy Cells(1, Clolumns.Count).End(xlToLeft).Of ...

我晕，我眼瞎啊，感谢

zpy2

qh8600 发表于 2015-5-17 09:13
Application.Intersect(Sheets(1).UsedRange, Rows(J)).Copy Cells(1, Clolumns.Count).End(xlToLeft).Of ...

不错 赞一个