Pertimbangkan alternatifnya:
Sub WithoutRegex()
For Each r In ActiveSheet.UsedRange
If Left(r.Value, 2) = ", " Then
r.Value = Mid(r.Value, 3)
End If
Next r
End Sub
karena polanya sederhana dan mudah dideteksi.
EDIT # 1:
Macro sangat mudah dipasang dan digunakan:
- ALT-F11 menampilkan jendela VBE
- ALT-I ALT-M membuka modul baru
- rekatkan barang-barang di dan tutup jendela VBE
Jika Anda menyimpan buku kerja, makro akan disimpan bersamanya. Jika Anda menggunakan versi Excel di atas 2003, Anda harus menyimpan file sebagai .xlsm daripada .xlsx
Untuk menghapus makro:
- buka jendela VBE seperti di atas
- hapus kode
- tutup jendela VBE
Untuk menggunakan makro dari Excel:
- ALT-F8
- Pilih makro
- Sentuh RUN
Untuk mempelajari lebih lanjut tentang makro secara umum, lihat:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
dan
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
Makro harus diaktifkan agar ini berfungsi!