首页 > Office专区 > Excel教程 >

Excel怎样快速把单元格内多行内容转成多列

来源:互联网 2023-02-20 18:48:51 149

修法布施得聪明智慧,多分享让生活更美好。上次分享了《Excel怎样快速单元格区域内容连接或换行》中多个单元格生成一个单元格多行内容,现在分享逆过程处理,一个单元多行内容怎样快速转成多个单元格(多列)?69u办公区 - 实用经验教程分享!

0Excel怎样快速单元格区域内容连接或换行69u办公区 - 实用经验教程分享!

Excel怎样快速把单元格内多行内容转成多列69u办公区 - 实用经验教程分享!

Excel怎样快速把单元格内多行内容转成多列69u办公区 - 实用经验教程分享!

工具/原料

  • Microsoft Office Excel 2007
  • Excel VBA

处理方法/步骤

  • 1

    首先打开Microsoft Office Excel 2007,新建文档并保存文件名《Excel怎样快速把单元格多行内容转成多列.xlsm》,如下图。69u办公区 - 实用经验教程分享!

    Excel怎样快速把单元格内多行内容转成多列69u办公区 - 实用经验教程分享!

  • 2

    然后按下快捷键ALT F11打开VBA(宏)编辑界面,然后点菜单栏【插入】下拉中列表中点【模块(M)】如图。69u办公区 - 实用经验教程分享!

    Excel怎样快速把单元格内多行内容转成多列69u办公区 - 实用经验教程分享!

  • 3

    然后插入了一个模块1,在代码框中复制如下代码:69u办公区 - 实用经验教程分享!

    Option Base 169u办公区 - 实用经验教程分享!

    Sub 选单元格多行内容生成多列()69u办公区 - 实用经验教程分享!

    '2020-6-16 21:10:5769u办公区 - 实用经验教程分享!

    Dim mb, m As String, i As Long, j As Long69u办公区 - 实用经验教程分享!

    Dim cmt As Range, mm()69u办公区 - 实用经验教程分享!

    For Each cmt In Selection69u办公区 - 实用经验教程分享!

    m = cmt.Text69u办公区 - 实用经验教程分享!

    If m > "" Then69u办公区 - 实用经验教程分享!

    If InStr(1, m, Chr(10), 1) > 0 Then69u办公区 - 实用经验教程分享!

    mb = Split(m, Chr(10))69u办公区 - 实用经验教程分享!

    j = 069u办公区 - 实用经验教程分享!

    ReDim mm(UBound(mb) 1)69u办公区 - 实用经验教程分享!

    For i = 0 To UBound(mb)69u办公区 - 实用经验教程分享!

    j = j 169u办公区 - 实用经验教程分享!

    mm(j) = mb(i)69u办公区 - 实用经验教程分享!

    Next i69u办公区 - 实用经验教程分享!

    cmt.Offset(0, 1).Resize(1, j) = mm69u办公区 - 实用经验教程分享!

    End If69u办公区 - 实用经验教程分享!

    End If69u办公区 - 实用经验教程分享!

    Next cmt69u办公区 - 实用经验教程分享!

    End Sub69u办公区 - 实用经验教程分享!

    Excel怎样快速把单元格内多行内容转成多列69u办公区 - 实用经验教程分享!

  • 4

    以上操作动态过程如下:69u办公区 - 实用经验教程分享!

    Excel怎样快速把单元格内多行内容转成多列69u办公区 - 实用经验教程分享!

  • 5

    回到工作表窗口,首先选原数据表,然后运行【选单元格多行内容生成多列】宏(菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框,选该宏名,执行),生成结果如下图。69u办公区 - 实用经验教程分享!

    Excel怎样快速把单元格内多行内容转成多列69u办公区 - 实用经验教程分享!

    Excel怎样快速把单元格内多行内容转成多列69u办公区 - 实用经验教程分享!

  • 5本页面未经许可获取自百度经验
  • 6

    如果觉得这篇经验帮到了您,请点击下方的 “投票点赞" 或者“收藏”支持我!还有疑问的话可以点击下方的 “我有疑问”,谢谢啦!69u办公区 - 实用经验教程分享!

  • 注意事项

    • 动态图片要双击成单独大图才能播放全过程。

    以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!69u办公区 - 实用经验教程分享!


    标签: excelVBA怎样单元内容

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号统计代码