Excel Vba Açıklama

[omerfatii]

Excel de makroda bir satırın açıklamasını bir değişkene atabilir miyim? yani 1.sütündaki açıklamaları 2.sütüna hücreye yazdırmak istiyorum yardımcı olabilen çıkarsa çok sevinirim

 

[veyselemre]

Sub test()
    Dim cell As Range
    
    With Sheets("Sheet1")
        On Error GoTo cik
        Set Rng = .Range("A2:A" & .Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlCellTypeComments)
        For Each cell In Rng
            cell.Offset(, 1).Value = cell.Comment.Text
        Next cell
    End With
    Exit Sub
cik:
    MsgBox "Açıklama bulunamadı.."
End Sub