|
- Sub gj23w98()
- Set d = CreateObject("scripting.dictionary")
- arr = Sheet2.[a1].CurrentRegion
- For i = 3 To UBound(arr)
- For j = 2 To UBound(arr, 2)
- If InStr(arr(2, j), "周小计") = 0 Then
- s = Trim(arr(i, 1) & arr(2, j))
- If arr(i, j) > 0 Then d(s) = arr(i, j)
- End If
- Next
- Next
- Range("e2:aw" & Rows.Count).ClearContents
- brr = [a1].CurrentRegion
- For i = 2 To UBound(brr)
- For j = 5 To UBound(brr, 2)
- If InStr(brr(1, j), "周小计") = 0 Then
- s = Trim(brr(i, 1) & brr(1, j))
- If d.exists(s) Then brr(i, j) = d(s) * brr(i, 4)
- End If
- Next
- Next
- [a:c].NumberFormatLocal = "@"
- [a1].CurrentRegion = brr
- End Sub
复制代码 |
|