EXCEL如何把多行多列变为2列?

抓取到9万行数据,不会处理求教!现在放在excel中,每行有10个数据,一共有9万行,现在我想把数据每两个一组,重新合并为一列,要怎么做?(具体见图)顺序必须是下图的顺序... 抓取到9万行数据,不会处理求教!现在放在excel中,每行有10个数据,一共有9万行,现在我想把数据每两个一组,重新合并为一列,要怎么做?(具体见图)
顺序必须是下图的顺序
展开
 我来答
ExcelPower
推荐于2017-10-29 · 专业Excel公式图表数据分析VBA
ExcelPower
采纳数:4495 获赞数:11863

向TA提问 私信TA
展开全部

你对顺序有要求?

为啥不 先放 

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
凌文元LWY
高粉答主

2017-10-29 · 每个回答都超有意思的
知道大有可为答主
回答量:3.6万
采纳率:76%
帮助的人:1.3亿
展开全部

输入以下公式,然后向右向下填充公式

=OFFSET($A$1,INT((ROW(A1)-1)/5),MOD(ROW(A1)-1,5)*2+MOD(COLUMN(A1)-1,2))

详见附图示例

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友2e5ae87
2020-12-03 · TA获得超过111个赞
知道答主
回答量:245
采纳率:0%
帮助的人:16.3万
展开全部

EXCEL如何快速插入多行

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式