3个问题有些复杂，如何通过起始结束日期来填写明细及如何用vba自动罗列~~~

好好学习下2018

问题有些复杂~~~先感谢各位大佬了

好好学习下2018

求大神来指点啊

3190496160

Sub test()
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
With Sheets("收费明细")
    y = .Cells(1, Columns.Count).End(xlToLeft).Column + 2
    x = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range(.Cells(1, 9), .Cells(x, y)).Clear
    ar = .[a1].CurrentRegion
    For i = 2 To UBound(ar)
        If Trim(ar(i, 2)) <> "" Then
            d(Trim(ar(i, 2))) = ""
        End If
    Next i
    yy = 9
    For Each k In d.keys
        m = yy + 1
        .Cells(1, yy) = k
        For j = 1 To 12
            .Cells(1, m) = j
            m = m + 1
        Next j
        For i = 2 To UBound(ar)
            If Trim(ar(i, 2)) = k Then
                ks = Val(Right(Trim(ar(i, 7)), 2))
                js = Val(Right(Trim(ar(i, 8)), 2))
                For j = ks To js
                    .Cells(i, yy + j) = ar(i, 3)
                Next j
            End If
        Next i
        yy = yy + 13
    Next k
    .Range(.Cells(1, 9), .Cells(x, yy - 1)).Borders.LineStyle = 1
End With
End Sub

3190496160

3个问题.rar (42.41 KB, 下载次数: 145)

2021-3-9 10:00 上传

点击文件名下载附件

好好学习下2018

3190496160 发表于 2021-3-9 10:00

感谢大佬 的解答，还有个问题，按照“收费明细”表的数据，如何在“个人收费结算”表自动显现？

好好学习下2018

3190496160 发表于 2021-3-9 10:00

大神，求出山~~~

3190496160

好好学习下2018 发表于 2021-3-15 08:45
大神，求出山~~~

个人收费结算  表的问题，根本就看不懂的

好好学习下2018

就是按这个收费项目，进行重复项删除，
然后按照销售人员来分类，分别计算出销售人员每个月的收费情况。