EXCEL如何把多行多列变为2列?
抓取到9万行数据,不会处理求教!现在放在excel中,每行有10个数据,一共有9万行,现在我想把数据每两个一组,重新合并为一列,要怎么做?(具体见图)顺序必须是下图的顺序...
抓取到9万行数据,不会处理求教!现在放在excel中,每行有10个数据,一共有9万行,现在我想把数据每两个一组,重新合并为一列,要怎么做?(具体见图)
顺序必须是下图的顺序 展开
顺序必须是下图的顺序 展开
3个回答
展开全部
你对顺序有要求?
为啥不 先放
A1,A2
F1, F2
K1,K2
再 B1,B2?
公式 用offset 可以写个,
9万有点多,可能会卡,
给你搞个 小程序吧, 假设 A:J 10列,写在 L:M 2列
Excel 内按 Alt+F11-- 视图--代码窗口,如下代码复制进去 ,F5 运行
Sub 重排()
Dim i, j, r
Dim arr(1 To 450000, 1 To 2)
For i = 1 To [a1000000].End(xlUp).Row
For j = 1 To 10 Step 2
r = r + 1
arr(r, 1) = Cells(i, j)
arr(r, 2) = Cells(i, j + 1)
Next
Next
[L1:M450000] = arr
End Sub
追问
顺序有要求,不能变
追答
公式 用offset 可以写个,
9万有点多,可能会卡,
给你搞个 小程序吧, 假设 A:J 10列,写在 L:M 2列
Excel 内按 Alt+F11-- 视图--代码窗口,如下代码复制进去 ,F5 运行
Sub 重排()
Dim i, j, r
Dim arr(1 To 450000, 1 To 2)
For i = 1 To [a1000000].End(xlUp).Row
For j = 1 To 10 Step 2
r = r + 1
arr(r, 1) = Cells(i, j)
arr(r, 2) = Cells(i, j + 1)
Next
Next
[L1:M450000] = arr
End Sub
展开全部
EXCEL如何快速插入多行
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询