VBA ile açıklama metinlerini hücreye alma

[ccuneyt13]

Merhaba,
Bir excel tablosunda A sütununda yer alan hücrelere açıklama olarak bazı veriler girilmiş.
(20 bin satır)
A hücresinde açıklama var ise bunu B hücresine metin olarak almasını sağlama imkanı olabilir mi?
Teşekkür ederim.
Saygılar.

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub açıklama()
On Error Resume Next
For i = 1 To Range("A1048576").End(3).Row
Cells(i, "B") = Cells(i, "A").Comment.Text
Next
End Sub

 

[ccuneyt13]

Çok teşekkür ederim,
Elinize sağlık. Tam olarak istediğim.
Hızlı cevabınız için ayrıca teşekkür ederim.
Saygılar.