Satırların başına ve sonuna karakter ekleme

[adrescec]

Merhaba, iki ayrı makro lazım bana çünkü bazı sütunların sadece başına bazı sütunların hem başına hem sonuna .,; vb. karakterler eklemem gerekiyor. Bir makro ile Ör. A Sütunundaki verilerin hepsinin başına . bir makro ile de A sütunundaki verilerin sonuna . ekleyerek örnek verirseniz ben sütun ismini ve . işaretini değiştirebilirim. Şimdiden teşekkür ederim.

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub ekle_1()
For i = 1 To Range("a65536").End(3).Row
Cells(i, "a") = "(metin ekle) " & Cells(i, "a")
Next
End Sub
Sub ekle_2()
For i = 1 To Range("b65536").End(3).Row
Cells(i, "b") = Cells(i, "b") & " (metin ekle)"
Next
End Sub

 

[adrescec]

Tamamdır çok teşekkür ederim.