将总表所有单元格有批注的写入各表对应单元格内

dagal

能否实现在原来将应收账数据写入各表的时候，顺便将带所有单元格中有批注的内容一起写入各表对应金额后面的备注一列中
Sub 应收账()
Dim Sht As Worksheet, I&, J&, Dic, Ar, Br, k&, S!
    Set Dic = CreateObject("scripting.dictionary")
    Ar = Sheets("应收账").Range("a1").CurrentRegion '30天的月份应清除32列数据
    ReDim Br(1 To UBound(Ar) - 1 + 3, 1 To 9)
    For I = 2 To UBound(Ar, 2)
        For J = 2 To UBound(Ar)
            If Ar(J, I) <> "" Then
            k = k + 1
                Br(k, 3) = Ar(J, I): Br(k, 2) = Ar(J, 1)
                S = Ar(J, I) + S
            End If
        Next
        Br(k + 1, 2) = "挂帐合计：": Br(k + 1, 3) = S
        k = k + 3
        S = 0
                If k > 0 Then
                    With Sheets("" & Day(Ar(1, I)) & "")
                        .Range("l8:p1000").clear
                        .Range("l8").Resize(k, 9) = Br
                    End With
                Else
                    With Sheets("" & Day(Ar(1, I)) & "")
                        .Range("l8:p1000").clear
                    End With
                End If
                ReDim Br(1 To UBound(Ar) - 1 + 3, 1 To 9)
        k = 0
    Next
End Sub
test.rar (55.64 KB, 下载次数: 5)

2018-8-5 23:32 上传

点击文件名下载附件

不知道为什么

朱荣兴 发表于 2018-8-6 11:09
要理清楚你原来代码的思路谈何容易，
还不如，说明你的需求，重写代码

朱版，让楼主自己尝试，我觉得他应该能憋出代码来。最近发现他进步还是蛮快的

dagal

朱荣兴 发表于 2018-8-6 11:29
测试，对你原来的代码做了一些调整
Sub 应收账()
Dim Sht As Worksheet, I&, J&, Dic, Ar, Br, k&, S!

谢谢朱版指教，不过你Br(k + 1, 1) = "挂帐合计：": Br(k + 1, 2) = S这句下面漏了一句
k = k + 1，这会使得最后没有合计数。

dagal

朱荣兴 发表于 2018-8-6 11:29
测试，对你原来的代码做了一些调整
Sub 应收账()
Dim Sht As Worksheet, I&, J&, Dic, Ar, Br, k&, S!

但还有个bug,就是表5-表11并没在任何应收账明细，但是会莫名的在合计金额边上多一出明细里E2单元格的批注带过去，表12的合计数带入了明细里E4的批注，表13-表30又 不会带入任何批注，表31也带入了E4的批注。。好奇怪
test.rar (63.11 KB, 下载次数: 2)

2018-8-6 17:31 上传

点击文件名下载附件

dagal

朱荣兴 发表于 2018-8-6 17:59
Sub 应收账1()
Dim Sht As Worksheet, I&, J&, Dic, Ar, Br, k&, S!
     Set Dic = CreateObject("scr ...

谢谢，不过还是没想明白这样改了后怎么就把那个bug给解决了。。。