求助，双字典合并，任一字典可能为空，感觉自己写的有点复杂，求助有没有更好的写法

xiaoshai0401

自己做了个借款、欠款查询表，从借款数据和还款数据中分别取得数据生成两个字典

然后把两个字典合并，输出在欠款汇总表中，可是考虑如果借款数据和还款数据都有可能为空，做了个循环判断，感觉自己的写法比较臃肿，特来求助

1. '以下判断是否借款数据或还款数据为空
   
2.     '如果借款数据及还款数据都为空，则退出程序
   
3.     If d_payback.Count = 0 And d_borrow.Count = 0 Then
   
4.         MsgBox "没有找到数据，请检查": Exit Sub
   
5.    
   
6.     '如果借款数据为空，则只取还款字典中数据写入字典d_all
   
7.     ElseIf d_borrow.Count = 0 Then
   
8.         For Each dd In d_payback.keys
   
9.             d_all(dd) = "0" & "/" & d_payback(dd) & "/" & -d_payback(dd)
   
10.         Next dd
    
11.      
    
12.      '如果还款数据为空，则只取借款字典中数据写入字典d_all
    
13.     ElseIf d_payback.Count = 0 Then
    
14.         For Each dd In d_borrow.keys
    
15.             d_all(dd) = d_borrow(dd) & "/" & "0" & "/" & d_borrow(dd)
    
16.         Next dd
    
17.     '如果借款、还款数据都不为空，则将还款字典与借款字典合并写入字典d_all
    
18.     Else
    
19.     For Each dd In d_payback.keys
    
20.         If d_borrow.exists(dd) Then
    
21.             d_all(dd) = d_borrow(dd) & "/" & d_payback(dd) & "/" & d_borrow(dd) - d_payback(dd)
    
22.         Else
    
23.             d_all(dd) = "0" & "/" & d_payback(dd) & "/" & -d_payback(dd)
    
24.         End If
    
25.     Next dd
    
26.     End If
    
27.    '将数据写入表格，并分列，再按拼音排序
    
28.     [a3].Resize(d_all.Count, 1) = WorksheetFunction.Transpose(d_all.keys)
    
29.     [c3].Resize(d_all.Count, 1) = WorksheetFunction.Transpose(d_all.items)

复制代码

代码如上，附件已上传。

zopey

部门+姓名作为字典的 key，
1、合并单元格 影响读取数据，是否可以去除？
2、同一个 key 是否有多次还款、借款记录需要累加， 附件举例 并未说清楚。

xiaoshai0401

zopey 发表于 2018-10-12 15:17
部门+姓名作为字典的 key，
1、合并单元格 影响读取数据，是否可以去除？
2、同一个 key 是否有多次还款 ...

感谢您的回复，附件例子不够全
1、合并单元格不能去除，实际中一种还款方式可能有多行，肯定存在合并单元格
2、同一个key会存在多次借款、还款记录，所以当时考虑用字典来解决