excel表格_excel函数公式大全_execl从入门到精通
Excel怎样处理一列数据根据标题转成四列数据表2024-03-11 16:53:45
下面通过一实例分享Excel处理一列数据根据标题转成四列数据表处理方法，通过这方法省时省力，提高工作效率。
一、实例
如图，有1万+条这种信息转置，如果手工处理一段一段复制粘贴很费时费力，有更快速方法吗？
二、处理步骤
1、首先打开Microsoft Office Excel 2007，上图文件另存文件名为《Excel怎样处理一列数据根据标题转成四列数据表.xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。2、然后按下快捷键ALT+F11打开VBE（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。3、然后插入了一个模块1，在代码框中复制如下代码：
Sub 一列按标题转四列()
'2021-1-7 20:30:05
Dim myr As Range, myrs As Range, i As Long, mb()
Set myrs = Selection
i = 0
ReDim mb(1 To myrs.Count, 1 To 4)
For Each myr In myrs
If Left(myr.Text, 2) = "姓名" Then
i = i + 1
mb(i, 1) = myr.Text
ElseIf Left(myr.Text, 2) = "地址" Then
mb(i, 2) = myr.Text
ElseIf Left(myr.Text, 2) = "爱好" Then
mb(i, 3) = myr.Text
ElseIf Left(myr.Text, 2) = "手机" Then
mb(i, 4) = myr.Text
End If
Next myr
Set myr = Application.InputBox(Prompt:="请输入转出数据的第一个单元格", Type:=8)
myr.Resize(1, 4) = Array("姓名", "地址", "爱好", "手机")
myr.Offset(1, 0).Resize(i, 4) = mb
End Sub
4、以上操作动态过程如下：
5、回到工作表窗口，首先选数据一列单元格区域，然后运行【一列按标题转四列】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名，执行），提示“请输入转出数据的第一个单元格”，选好后输出结果，运行过程如下图。
6、如果觉得这篇文章帮到了您，请点击下方的 “点赞" 、“收藏”和“分享”支持我！还有疑问的话可以在“评论”中留言，谢谢啦！
标签: excel一列数据分4列