订单条目不重复拆分

lizhipei78

业务员 发表于 2023-3-24 11:12
可能重复多次呢

重复多次，就先计数，然后按计数来进行拆分就好了，这个没有难度啊

lizhipei78

cjc209 发表于 2023-3-24 11:50
增加一列辅助列就好搞 按辅助列中的出现次数分表就对了

我觉得就是加一个辅助列计数不就好了，简单的问题复杂化，按次数来分表就是楼主的意思，一点难度没有。个个代码都写得这么复杂，哎。

lizhipei78

请测试

我是根据次数生成新的工作簿，这个应该能直接上传到系统吧


订单分拆3.rar (20.45 KB, 下载次数: 5)

2023-3-25 14:27 上传

点击文件名下载附件

ragtag

Sub SplitSheet()
    Dim lastRow As Long, lastColumn As Long, i As Long, j As Long
    Dim dict As Object, ws As Worksheet
    Set dict = CreateObject("scripting.dictionary")
   
    lastRow = ActiveSheet.Cells(Rows.count, "A").End(xlUp).Row
    lastColumn = ActiveSheet.Cells(1, Columns.count).End(xlToLeft).Column
    '插入新列
    ActiveSheet.Columns(lastColumn + 1).Insert
    '设置新列的值
    For i = 2 To lastRow
        ActiveSheet.Cells(i, lastColumn + 1).Value = WorksheetFunction.CountIf(Range("A$1:A" & i), Range("A" & i).Value)
    Next i
   
    '针对新列中每个值，加入字典
    For i = 2 To lastRow
        If Not dict.Exists(ActiveSheet.Cells(i, lastColumn + 1).Value) Then
            dict.Add ActiveSheet.Cells(i, lastColumn + 1).Value, 1
        End If
    Next i
   
    '按照新列中不同的值，将sheet1分成多个工作表
    For Each Key In dict.keys
        Set ws = Worksheets.Add(after:=Worksheets(Worksheets.count))
        ws.Name = Key
        ws.Range("A1", ws.Cells(1, lastColumn)).Value = Sheet1.Range("A1", Sheet1.Cells(1, lastColumn)).Value

        j = 2
        For i = 2 To lastRow
            If Sheet1.Cells(i, lastColumn + 1).Value = Key Then
                ws.Range("A" & j, ws.Cells(j, lastColumn)).Value = Sheet1.Range("A" & i, Sheet1.Cells(i, lastColumn)).Value

                j = j + 1
            End If
        Next i
    Next Key
   
    '删除新列
    Sheet1.Cells(1, lastColumn + 1).EntireColumn.Delete

End Sub

gwjkkkkk

业务员 发表于 2023-3-25 07:40
我贴的是半百老师的，我测试无问题。您的代码有些小问题呢

的确，最后输出写错了一个
With .Sheets(1).[A1].Resize(r, UBound(br, 2))
                .Value = br
                .Borders.LineStyle = xlContinuous
                .EntireColumn.AutoFit
                .EntireRow.AutoFit
            End With

lizhipei78

简化了一下代码，快那么一点点

jin2001h

增加个辅助列，用计数函数，再用数据透视表按数字分表就好了，

全党

半百 发表于 2023-3-24 11:37
试试。。
Resize(1, 4)里边的4可以改为3或你表中实际的列数。

思路清晰简洁，值得借鉴学习。