Sayı Biçimini Özel Metne Çevirme

[blackakin]

Arkadaşlar Merhaba,

Benim şöyle bir sorunum var elimde yaklaşık A1 sütununda yaklaşık 2000 satırlık sayı biçimli 13haneli karakterler var örnek

9780470261989
9780470011546
9780470011881
9780470019467
.....
ben bunları metne çevirmek istiyorum benden istenen ise hücre içinde aşağıdaki gibi görünmesi

'9780470261989
'9780470011546
'9780470011881
'9780470019467

 

[lider22]

Merhaba,

="'"&A1

Sonra çift click

 

[Mahir64]

Merhaba,

Sub Özel_Metin()
For i = 1 To Range("a65536").End(3).Row
Cells(i, "a") = "'" & Cells(i, "a")
Next
End Sub

 

[Seyit Tiken]

...............

 

[blackakin]

Merhaba,

Sub Özel_Metin()
For i = 1 To Range("a65536").End(3).Row
Cells(i, "a") = "'" & Cells(i, "a")
Next
End Sub

Merhaba bilmediğim için soruyorum bunu nereye yapıştıracağım.

 

[blackakin]

Merhaba,

="'"&A1

Sonra çift click

Teşekkürler...