Excel VBA: копировать и вставлять повторяющиеся значения в зависимости от формата шрифта

Question

У меня есть формат Excel, который выглядит так:

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

Это то, что я до сих пор:

 Sub FillDuplicates()
    Dim lastrow As Long
    lastrow = Cells(Rows.Count, "A").End(xlUp).Row 'find last row in column A

    For x = 1 To lastrow
        If Cells(x, 2).Value <> "" Then 'Check if cell in column B is empty
            For y = 1 To lastrow
                If Cells(y, 1).Value = Cells(x, 1).Value Then 'Compares cell against each value in column A
                    Cells(y, 2).Value = Cells(x, 2).Value 'If matches, add value in column B
                End If
            Next y
        End If
    Next x
 End Sub

Answer 1

Пытаться

If Cells(x, 2).Value <> "" and Cells(x, 2).Font.Italic = true then