求能自动引用对应批注的公式

wzd28

具体要求见附件，谢谢！
    222.rar (495.68 KB, 下载次数: 8)

2017-2-20 07:10 上传

点击文件名下载附件

苏子龙

Sub tt()
Dim ends%, d, i%
Set d = CreateObject("scripting.dictionary")
With Sheet1
    ends = .Range("d1").End(xlDown).Row
    For i = 2 To ends
        If .Cells(i, "o").Comment Is Nothing Then
            d(.Cells(i, 4).Value) = ""
        Else
            d(.Cells(i, 4).Value) = .Cells(i, "o").Comment.Text
        End If
    Next
End With
i = 2
Do
    i = i + 1
    Cells(i, "M").Value = d(Cells(i, 1).Value)
Loop Until Range("a" & i) = ""
End Sub

wzd28

苏子龙 发表于 2017-2-20 10:45
Sub tt()
Dim ends%, d, i%
Set d = CreateObject("scripting.dictionary")

老师:不会用，能否写在附件里，谢谢！

苏子龙

wzd28 发表于 2017-2-20 13:08
老师:不会用，能否写在附件里，谢谢！

把它放进去，运行就可以了