怎样按身份证号码叠加指定数据，谢谢！

ztd123

怎样按身份证号码叠加指定数据，谢谢！ 按身份证号码累加.rar (1.29 MB, 下载次数: 9)

2023-1-13 10:27 上传

点击文件名下载附件

ykcbf1100

字典+数组

ztd123

ykcbf1100 发表于 2023-1-13 12:18
字典+数组

谢谢您！祝您春节愉快！

gwjkkkkk

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ar, i&, dic As Object

    Set dic = CreateObject("Scripting.Dictionary")
    If Target.Address = [A1].Address Then
       ar = [A1].CurrentRegion
       For i = 3 To UBound(ar): dic(ar(i, 4)) = ar(i, 11): Next
       With Sheets([A1].Value)
          ar = .[A1].CurrentRegion
          For i = 2 To UBound(ar)
             If dic.exists(ar(i, 4)) Then
               ar(i, 7) = ar(i, 7) + dic(ar(i, 4))
             End If
          Next i
          .[A1].CurrentRegion = ar
          .Activate
       End With
    End If
End Sub

gwjkkkkk

利用Worksheet_Change事件，参与一下。。。