Parsing data teks yang diformat secara tidak konsisten menggunakan Excel

Saya mengalami kesulitan memilah teks dari spreadsheet. Saya memiliki spreadsheet dengan ratusan catatan yang terlihat mirip dengan contoh di bawah ini (ini semua dalam satu sel):

7431340 03 POOLS E TECHNOLOGIES INC 90 NEW ENGLAND DRIVE 16 0.00 6,900 7,060

Saya perlu menguraikan masing-masing berikut ini ke dalam sel yang terpisah:

[7431340] [03 POOLS E TECHNOLOGIES INC] [90 NEW ENGLAND DRIVE] [7,060]

atau seperti yang akan muncul di lembar Excel

Masalah yang saya alami adalah bahwa data tidak konsisten untuk setiap catatan. Lebih banyak contoh:

7170258 111 HARBOR POINT OWNER LLC 115 TOWNE STREET 16 0.00 189,200 196,730
4469000 4 KIDZ INC 62 SOUTHFIELD AVENUE 16 0.00 3,000 9,500
6369875 3 HERMANOS LLC 912 EAST MAIN STREET 16 0.00 4,640 4 640

Saya ingin menghindari manipulasi manual sebanyak mungkin, tetapi saya khawatir saya kurang beruntung.

Bagaimana saya mengurai data ketika formatnya tidak konsisten?

Jika contoh Anda benar-benar representatif, maka ada pola yang dapat menerima ekstraksi dengan menggunakan Ekspresi Reguler. Ini bisa diimplementasikan dalam Excel menggunakan VBA.

Pola:

• Mulai dari string
• Seri digit diikuti oleh spasi
• Substring yang dimulai dengan satu digit atau lebih, dan tidak mengandung digit lainnya
• Substring kedua yang dimulai dengan satu atau lebih digit, dan tidak mengandung digit lainnya
• beberapa grup koma digit yang dipisahkan spasi, dengan koma opsional (kembalikan yang terakhir)

Semua contoh Anda menunjukkan pola itu. Berikut adalah fungsi yang ditentukan pengguna yang akan menangani itu:

Option Explicit
Function extrAddressPart(sAddr As String, lPart As Long)
    Dim RE As Object, MC As Object
    Const sPat As String = "^(\d+)\s+(\d+\D+)\s+(\d+\D+)\s+.*\s+([\d,]+)$"

Set RE = CreateObject("vbscript.regexp")
With RE
    .Pattern = sPat
    .MultiLine = True
    .Global = False
    If .Test(sAddr) = True Then
        Set MC = .Execute(sAddr)
        extrAddressPart = MC(0).submatches(lPart - 1)
    End If
End With
End Function

Tentu saja, jika contoh Anda tidak benar-benar representatif, maka solusi ini tidak akan berfungsi.

Karena Anda berurusan dengan Pembatas Berganda maka dalam hal ini saya ingin menyarankan Anda dua solusi yang mungkin.

Solusi 1 (VBA Macro):

Function ReplaceAndSplit(ByRef Text As String, ByRef DelimChars As String) As String()
    Dim DelimLen As Long, Delim As Long
    Dim strTemp As String, Delim1 As String, Arr() As String, ThisDelim As String
    strTemp = Text
    Delim1 = Left$(DelimChars, 1)
    DelimLen = Len(DelimChars)
    For Delim = 2 To DelimLen
        ThisDelim = Mid$(DelimChars, Delim, 1)
        If InStr(strTemp, ThisDelim) <> 0 Then _
            strTemp = Replace(strTemp, ThisDelim, Delim1)
    Next
    ReplaceAndSplit = Split(strTemp, Delim1)
End Function

Bagaimana itu bekerja:

1. Masukkan kode ini sebagai Modul bersama Lembar.

2. Tulis Formula ini di sel keinginan lalu isi sampai tepat sampai dibutuhkan, tekan F2dan selesaikan Ctrl+Shift+Enter.

   {=ReplaceAndSplit(A2,",")}

catatan:

1. ","adalah Commasebagai Pembatas.
2. Itu seharusnya " "untuk Space.
3. "[ ]"untuk Brackets.

Solusi 2 (Formula Excel):

=SUBSTITUTE(TRIM(MID(SUBSTITUTE($A1,",",REPT(" ",256)),(COLUMNS($A:A)-1)*255+1,255)),"]","")

catatan:

Anda perlu mengedit bagian Formula ini sesuai dengan Pembatas sebelum Anda menjalankannya, misalnya,

1. SUBSTITUTE($A1,","untuk Commasebagai Pembatas.
2. SUBSTITUTE($A1," "untuk Spacesebagai Pembatas.
3. SUBSTITUTE($A1,"["untuk Bracketsebagai Pembatas.