Sub 转换()Dim arrarr = Range("a1").CurrentRegionFor i = 1 To UBound(arr)Range("e65536").End(xlUp).Offset(1, 0).Resize(UBound(Split(arr(i, 2), ",")) + 1, 1) = Application.WorksheetFunction.Transpose(Split(arr(i, 2), ","))Range("d65536").End(xlUp).Offset(1, 0).Resize(UBound(Split(arr(i, 2), ",")) + 1, 1) = arr(i, 1)Next ...
|