小编Ton*_*ers的帖子

下面是一些代码,它将excel中的长列拆分为较小的列.

这可以通过单击模块,按F5并输入范围,输出起始点和单元格范围来表示每列中的条目数.

无论如何我可以自动化这个,例如,如果我有一个从A1开始的1:30的列,我总是想要使用这个范围,我想要的输出单元是H25,我希望基于的条目数量无论我输入什么单元格G6.

Sub SplitColumn()
    'Updateby20141106
    Dim rng As Range
    Dim InputRng As Range
    Dim OutRng As Range
    Dim xRow As Integer
    Dim xCol As Integer
    Dim xArr As Variant
    xTitleId     = "KutoolsforExcel"
    Set InputRng = Application.Selection
    Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
    xRow         = Application.InputBox("Rows :", xTitleId)
    Set OutRng   = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
    Set InputRng = InputRng.Columns(1)
    xCol         = InputRng.Cells.Count / xRow
    ReDim xArr(1 To xRow, 1 To xCol …