qq_21322775 2019-03-21 00:39 采纳率: 66.7%
浏览 2615
已采纳

excel如何把一行分成多行 大约是10行分成2个五行 不是在一个单元格里面的数据

excel如何把一行分成多行 大约是10行分成2个五行 不是在一个单元格里面的数据

  • 写回答

1条回答 默认 最新

  • threenewbee 2019-03-21 02:42
    关注
    Sub Macro1()
    '
    ' Macro1 Macro
    ' 宏由 user1 录制,时间: 3/21/2019
    '
    '
    
    
        Dim tocell As String
        tocell = InputBox$("复制到哪一列里", , "C")
        colcount% = Val(InputBox$("分为几列", , "2"))
        currr = 0
        currc = 0
        For Each r In Selection
            If currc = 0 Then currr = currr + 1
            currcidx = Chr(Asc(tocell) + currc)
            currc = currc + 1
            currc = currc Mod colcount
            Range(currcidx & currr) = r
        Next
    End Sub
    
    

    图片说明

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

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