Excel怎样把多列数据转成首列与其他列合成两列

修法布施得聪明智慧，多分享让生活更美好。上次分享了《Excel怎样把多列的数据按列顺序转换成单列》，介绍了把多列的数据按列顺序转换成单列处理方法，下面通过一实例如图（百度知道问题）分享把多列数据转成首列与其他列合成两列处理方法。

步骤1：打开Excel并另存文件

首先打开Microsoft Office Excel 2007，上例文件另存文件名《Excel怎样把多列数据转成首列与其他列合成两列 .xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。

步骤2：打开宏编辑界面

然后按下快捷键ALT F11打开VBE（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。

步骤3：插入宏代码

然后插入了一个模块1，在代码框中复制如下代码：

```

Sub 多列转两列()

Dim myr As Range, r As Long, c As Long, i As Long, j As Long, mb(), k As Long

Set myr Selection

r

c

ReDim mb(1 To (c - 1) * r, 1 To 2)

For i 2 To c

For j 1 To r

k k 1

mb(k, 1) myr.Cells(j, 1).Value

mb(k, 2) myr.Cells(j, i).Value

Next j

Next i

Set myr (prompt:"选择转出两列一个单元格", Type:8)

(k, 2) mb

End Sub

```

步骤4：运行宏代码

以上操作动态过程如下：

步骤5：输出结果

回到工作表窗口，首先选数据单元格区域，然后运行【多列转两列】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名，执行），提示“选择转出两列一个单元格”，选好后输出结果，运行过程如下图。

结束语

如果觉得这篇经验帮到了您，请点击下方的“投票点赞”或者“收藏”支持我！还有疑问的话可以点击下方的“我有疑问”，谢谢啦！

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。