berhubung vocabulary rumus terbatas, solusi yang bisa saya tawarkan dengan memanfaatkan fitur find and replace satu per satu (daripada substitute bertingkat banyak)..
beginilah kira-kira newbie kalo memaksakan diri bikin makro dari referensi hasil record find and replace: Sub edit() Dim Ganti As Long For Ganti = 0 To 9 Selection.Replace What:=Ganti, Replacement:="", _ LookAt:=xlPart, SearchOrder:=xlByRows, _ MatchCase:=False Next Ganti Selection.Replace What:="/", Replacement:="", _ LookAt:=xlPart, SearchOrder:=xlByRows, _ MatchCase:=False Selection.Replace What:="-", Replacement:="", _ LookAt:=xlPart, SearchOrder:=xlByRows, _ MatchCase:=False End Sub Pakai shortcut biar lebih gampang. blessings, tomz From: J L Sent: Wednesday, January 09, 2013 6:44 PM To: [email protected] Subject: ]] XL-mania [[ ekstrak hurufnya
