Assalamu'alaikum Pak Haris
Coba pake vba, copy scrip ini ke module.
Option Explicit
Public Function Result_text(change_data As String) As String
On Error GoTo err
Dim partText As Variant
Dim changeText As String
Dim i As Integer
Dim r As Integer
Dim chrFind As String
Dim joinText As String
partText = Split(change_data, ",")
i = 0
Do Until partText(i) = ""
changeText = partText(i)
joinText = ""
For r = 2 To Len(changeText)
chrFind = Mid(changeText, r, 1)
If chrFind = " " Then GoTo bawah
joinText = joinText & chrFind
Next
bawah:
Result_text = Result_text & "AP " & joinText & ", "
i = i + 1
Loop
Exit Function
err:
Result_text = Left(Result_text, Len(Result_text) - 2)
End Function
Cara menggunakan formulanya:
=Result_text(A1)
Note :
Data yang akan dirubah didepannya harus diberi spasi.
Salam
Suyono
From: [email protected] [mailto:[email protected]]
Sent: Wednesday, August 19, 2015 11:41 AM
To: BeExcel
Subject: [belajar-excel] Menghapus text dengan Subtitude data dinamis
Assalamu'alaikum para master semua
Mohon bantuannya. Bagaimana formulanya untuk mendapatkan data seperti pada
Hasil dibawah ini
Data : 14119 tb707, 93237 tb506, 9395 tb168, 93135, 93163 tb489
Hasil : AP 14119, AP 93237, AP 9395, AP 93135, AP 93163
Terima kasih atas bantuannya.
Salam
Haris
