Pisahkan Teks dan Angka di Excel

.:infoalya.com:. ~ Assalamu'alaikum ... kali ini kita akan membahas tentang cara memisahkan Teks dan Angka di Excel.
Angka dan teks di Excel bisa dipisah dengan memanfaatkan kombinasi fungsi Excel seperti LEFT, RIGHT, MID, FIND dan lain-lain, berikut ini langkah-langkah pembuatannya

1. Buka Aplikasi VBA Excel dengan menekan alt  +  F11
2. Tambah module baru, klik menu → Insert → Module
3. Masukan script dibawah ini

Option Explicit

Function AmbilAngka(Str As String) As String
Dim X As Object
Set X = CreateObject("VBScript.RegExp")
With X
    .Global = True
    .Pattern = "[\D]"
AmbilAngka = .Replace(Str, vbNullString)
End With
End Function


Function AmbilTeks(Str As String) As String
Dim X As Object
Set X = CreateObject("VBScript.RegExp")
With X
    .Global = True
    .Pattern = "[0-9]"
AmbilTeks = .Replace(Str, vbNullString)
End With
End Function

Sedangkan untuk fungsinya gunakan kode dibawah ini :

=AmbilTeks(A1)

=AmbilAngka(A1)

sementara hanya itu dulu yaaa, jika ada kesempatan kita sambung lagi 😁