如何用vba编写下多行数据转换成2列数据

脚印0551

如何用vba编写下多行数据转换成2列数据。请高手帮忙下。谢谢。试了很多次都不成功。数据太多。一个一个倒置太多太多。谢谢

脚印0551

实现的效果

liucf

看看是这样吧
Sub VV()
  Application.ScreenUpdating = False
  A = Range("A1").CurrentRegion
  ReDim D(1 To 2, 1 To UBound(A, 1) * UBound(A, 2) / 2)
  K = 1
  For I = 1 To UBound(A, 1) Step 2
    For J = 1 To UBound(A, 2)
      If A(I, J) <> "" Then
        D(1, K) = A(I, J)
        D(2, K) = A(I + 1, J)
        K = K + 1
      End If
    Next
  Next
  Range("J1").Resize(K, 2) = Application.Transpose(D)
  Application.ScreenUpdating = True
End Sub