qq_21322775
2019-03-21 00:39
采纳率: 66.7%
浏览 2.6k

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
    
    

    图片说明

    已采纳该答案
    评论
    解决 3 无用
    打赏 举报

相关推荐 更多相似问题