Описание с одного листа в комментарий к другому листу в Excel

Question

Что у меня есть Excel с входящими на одном листе и описаниями кодов на другом, я хотел бы автоматически создать комментарий, отображающий описание поступающих кодов или это возможно.

ех.

"sheet 1"                   -------------------
serial   | Symptom Code     |"Comment Box"    |
xx1234   | LX1, LC45 ------ |Machine Broken   | 
                            |Physical Damage  |   
                            -------------------    
"sheet 2"
Code     | Description
LX1      | Machine Broken
LC45     | Physical Damage

Надеюсь, это хороший пример того, что я ищу свою репутацию не достаточно высоко, чтобы вставить фотографии, если вы можете помочь мне, большое спасибо

Answer 1

Скажем, Sheet1 похож на:

и Sheet2 это как:

Затем следующий макрос будет искать описания и добавлять их в качестве комментариев к ячейкам столбца B в Sheet1.

Sub CommentMaker()
    Dim sh1 As Worksheet, sh2 As Worksheet, N1 As Long, N2 As Long
    Dim s1 As String, s2 As String
    Dim i1 As Long, i2 As Long
    Set sh1 = Sheets("Sheet1")
    Set sh2 = Sheets("Sheet2")
    N1 = sh1.Cells(Rows.Count, "A").End(xlUp).Row
    N2 = sh2.Cells(Rows.Count, "A").End(xlUp).Row

    For i1 = 2 To N1
        s1 = sh1.Cells(i1, "B").Text
        For i2 = 2 To N2
            s2 = sh2.Cells(i2, "A").Text
            If s1 = s2 Then
                sh1.Cells(i1, "B").ClearComments
                sh1.Cells(i1, "B").AddComment sh2.Cells(i2, "B").Text
            End If
        Next i2
    Next i1

End Sub