1、相关代码如下：NSArray *array=[[NSArray alloc]initWithObjects:@＂1＂,@＂2＂, nil];NSMutableDictionary *dict=[[NSMutableDictionary alloc]init];[dict setValue:array forKey:@＂key＂]
1、for (NSDictionary *company in _dataSource) {NSMutableDictionary *dic = [NSMutableDictionary dictionaryWithDictionary:company];if ([company[@＂FirmName＂] isEqualToString:_currentCompany]) {[dic setObject:_district forKey:@＂district＂];}}...
1、Sub cz()
n = Now()
Dim d
Set d = CreateObject("Scripting.Dictionary")
Dim i, Sr, Yr As Long
Dim ShmxH, Yhdz, ShmxX
Sr = Range("H" & Rows.Count).End(xlUp).Row
ShmxH = Range("H2:H" & Sr)
ShmxX = Range("X2:X" & Sr)
'Workbooks.Open ThisWorkbook.Path & "\银行到账.xlsx"
Workbooks("银行到账").Activate
Yr = Range("E" & Rows.Count).End(xlUp).Row
Yhdz = Range("E2:H" & Yr)
For i = 1 To UBound(Yhdz)
d(Yhdz(i, 1) & "") = Yhdz(i, 4)
Next
For i = 1 To UBound(ShmxH)
If d.exists(ShmxH(i, 1) & "") Then
ShmxX(i, 1) = d(ShmxH(i, 1) & "")
Else
ShmxX(i, 1) = "N/A"
End If
Next
ThisWorkbook.Activate
Range("X2").Resize(UBound(ShmxX), 1) = ShmxX
Set d = Nothing
'Workbooks("银行到账").Close
MsgBox (Now() - n) * 24 * 3600 & "秒"
End Sub
1、1）get Dic B all keys，
2)从1)拿到keys进行遍历 for key in keys，
2.1) 如果key在A中已存在，根据需求操作，
2.2）如果不存在在A中进行 set forkey 操作。
