qq_21322775
qq_21322775
采纳率66.7%
2019-03-21 00:39 阅读 2.5k

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

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

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享

1条回答 默认 最新

  • 已采纳
    caozhy 从今以后生命中的每一秒都属于我爱的人 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
    
    

    图片说明

    点赞 3 评论 复制链接分享

相关推荐