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

Question

就如图中那个样子

Answer 1

Sub Macro1()


    Dim tocell As String
    tocell = InputBox$("输出到哪一行", , "5")
    RowCount% = Val(InputBox$("分为几行", , "2"))
    colcount% = Selection.Count \ RowCount
    If Selection.Count Mod RowCount <> 0 Then colcount = colcount + 1
    currr = tocell
    currc = 0
    For Each r In Selection
        If currc = 0 Then currr = currr + 1
        currcidx = Chr(Asc("A") + currc)
        currc = currc + 1
        currc = currc Mod colcount
        Range(currcidx & currr) = r
    Next
End Sub