- Sub yy()
- arr = [a2:e7]
- a = Split(Join(Application.Transpose(Application.Index(arr, , 1)), ",") & "," & Join(Application.Transpose(Application.Index(arr, , 1)), ",") & "," & Join(Application.Transpose(Application.Index(arr, , 1)), ",") & "," & Join(Application.Transpose(Application.Index(arr, , 1)), ","), ",")
- b = Split(Join(Application.Transpose(Application.Index(arr, , 2)), ",") & "," & Join(Application.Transpose(Application.Index(arr, , 3)), ",") & "," & Join(Application.Transpose(Application.Index(arr, , 4)), ",") & "," & Join(Application.Transpose(Application.Index(arr, , 5)), ","), ",")
- [a11].Resize(UBound(arr) * 4, 1) = Application.Transpose(a)
- [b11].Resize(UBound(arr) * 4, 1) = Application.Transpose(b)
- End Sub
复制代码 |