|
发表于 2014-9-11 23:59
|
显示全部楼层
本楼为最佳答案
- Sub Macro1()
- Dim arr, brr, d, i&, j%, zf$
- Set d = CreateObject("scripting.dictionary")
- arr = ActiveSheet.UsedRange
- brr = Sheets("COA").Range("a1").CurrentRegion
- For i = 3 To UBound(brr)
- zf = ""
- For j = 3 To 7
- zf = zf & vbCrLf & Left(brr(2, j), 4) & ":" & IIf(j < 5, brr(i, j), Format(brr(i, j), "0.0"))
- Next
- d(brr(i, 2)) = Mid(zf, 3)
- Next
- For i = 2 To UBound(arr)
- For j = 1 To UBound(arr, 2)
- If d.exists(arr(i, j)) Then
- With Cells(i, j)
- .ClearComments
- .AddComment d(arr(i, j))
- End With
- End If
- Next
- Next
- End Sub
复制代码 |
|