[已解决]如何使已有数据换行

zoulianzu

如附件，小弟因为数据处理遇到难题，客户给的数据没法直接使用，软件只能识别$前多少个参数，需要用$换到下一行，不然无法识别整行，请教如何使整行数据从$后面跳到下一行，请教方法。

最佳答案

月排行榜 / 总排行榜

baksy

2014-1-12 10:44

新建工作表，A1输入以下公式，右拉、下拉。
=IF(OR(AND(MOD(ROW()+1,2)=0,COLUMN()>15),AND(MOD(ROW()+1,2)=1,OR(COLUMN()<16,COLUMN()>18))),"",IF(MOD(ROW()+1,2)=0,OFFSET('L2 Report'!$A$1,TRUNC((ROW()+1)/2),COLUMN(A1)-1),OFFSET('L2 Report'!$A$1,TRUNC((ROW()+1)/2),COLUMN(A1)-1)))

跳转到最佳答案楼层

风林火山

数据大，使用代码比较方便。如果数据小，可以使用技巧。
1、隔行插入空行
2，选择最后3列数据，向下拖一个单元格即可

zoulianzu

在线等

风林火山

1. <div>Sub 分行显示()</div><div>    Dim arr, brr(), crr</div><div>    Dim k&, m%, n%, lastrow</div><div>    lastrow = Sheets("L2 Report").Cells(Rows.Count, 1).End(3).Row</div><div>    arr = Sheets("L2 Report").Range("a4:r" & lastrow)</div><div>    ReDim brr(1 To UBound(arr) * 2, 1 To UBound(arr, 2))</div><div>    For k = 1 To UBound(arr)</div><div>        For m = 1 To 15</div><div>            brr(k * 2 - 1, m) = arr(k, m)</div><div>        Next m</div><div>        For n = 16 To 18</div><div>            brr(k * 2, n) = arr(k, n)</div><div>        Next n</div><div>    Next k</div><div>    crr = Sheets("L2 Report").Range("a1:r3")</div><div>    Sheets.Add</div><div>    Range("a1").Resize(3, 18) = crr</div><div>    Range("a4").Resize(UBound(brr), 18) = brr</div><div>    ActiveSheet.Name = "结果表"</div><div>End Sub</div>

复制代码

zoulianzu

那么复杂啊，我以为用高级筛选能完成呢，一定要用代码吗？

tgydslr

受教了

fucheng941

哇。。。长见识了，，谢谢。。。。

baksy

新建工作表，A1输入以下公式，右拉、下拉。
=IF(OR(AND(MOD(ROW()+1,2)=0,COLUMN()>15),AND(MOD(ROW()+1,2)=1,OR(COLUMN()<16,COLUMN()>18))),"",IF(MOD(ROW()+1,2)=0,OFFSET('L2 Report'!$A$1,TRUNC((ROW()+1)/2),COLUMN(A1)-1),OFFSET('L2 Report'!$A$1,TRUNC((ROW()+1)/2),COLUMN(A1)-1)))

zoulianzu

哇，谢谢版主谢谢baksy,懂代码的选择版主的方法很好，可惜小弟不懂，正在努力学习中，有了代码还不知道怎么用，而且用的是2003版本，相比baksy的方法更好接受一点，谢谢！