엑셀 VBA : 복사하고 나는이처럼 보이는 Excel 형식이

Question

글꼴 형식을 기반으로 중복 값을 붙여 넣습니다

내가 필요로하는 모든 데이터를 읽어 Excel에서 VBA 코드입니다 A 열과 기울임 꼴 형식의 텍스트를 찾은 다음 동일한 열에 중복 데이터가 있는지 확인하십시오.

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