weixin_42242367 2019-04-05 11:04 采纳率: 0%
浏览 787
已采纳

怎样把excel表格某行某个单元格内多项内容放入不同的行?

怎样把excel表格某行某个单元格内多项内容放入不同的行?
A B C
a 中 a1,a2,a3,
b 华 b1,b2
c 人 c1

图片说明

A B C
a 中 a1,a2,a3,
a1 中 a1,a2,a3,
a2 中 a1,a2,a3,
a3 中 a1,a2,a3,
b 华 b1,b2
b1 华 b1,b2
b2 华 b1,b2
c 人 c1
c1 人 c1

  • 写回答

3条回答 默认 最新

  • threenewbee 2019-04-05 19:49
    关注

    如果问题得到解决,请点我回答左上角的采纳。

    Sub Macro1()
        desrow = 10
        For i = 1 To 4
            arr = Split(Range("C" & i), ",")
            For j = LBound(arr) To UBound(arr)
                Range("A" & desrow) = Range("A" & i)
                Range("B" & desrow) = Range("B" & i)
                Range("C" & desrow) = arr(j)
                desrow = desrow + 1
            Next
        Next
    End Sub
    

    图片说明

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(2条)

报告相同问题?

悬赏问题

  • ¥15 求差集那个函数有问题,有无佬可以解决
  • ¥15 【提问】基于Invest的水源涵养
  • ¥20 微信网友居然可以通过vx号找到我绑的手机号
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名
  • ¥65 汇编语言除法溢出问题