恳请大神们帮忙看下咋寻找对应的数据

qiongmei6

我想在附件“个税”表格内求得一个代码，就是当他执行的时候，他根据“工资汇总”表格v列和“个税“表格h列身份证号一样的，然后在个税表格内将他们在汇总表格内的单位和所属类别找出来填入”个税“表格的j：k列，目前个税表格中的j：k就是我希望最终得到结果，谢谢各位大神的帮忙。

liulang0808

Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets("工资汇总").UsedRange
    r = Sheets("个税").Cells(Rows.Count, 7).End(3).Row
    brr = Sheets("个税").[g1].Resize(r, 5)
    For j = 3 To UBound(brr)
        d(brr(j, 2)) = j
    Next j
    For j = 3 To UBound(arr)
        If d.exists(arr(j, 22)) Then
            rx = d(arr(j, 22))
           brr(rx, 4) = arr(j, 2)
           brr(rx, 5) = arr(j, 14)
        End If
    Next j
    Sheets("个税").[g1].Resize(r, 5) = brr
End Sub

liulang0808

Book1.zip (29.87 KB, 下载次数: 3)

2024-2-2 07:11 上传

点击文件名下载附件