Ga naar inhoud

exel query


Opa-smedje
 Delen

Aanbevolen berichten

Ik heb een lijst van png afbeeldingen die ik met de Query funtie heb omgezet in een xl file, zie "geboorten" hierbij gevoegd, via bewerken heb die kunnen omwerken tot de bijgevoegde "geboorten bewerkt" nu wil ik de kolommen CDE samenvoegen tot 1 kolom alsook FGH maar dat lukt niet. Kan u mij hierbij helpen ?

 

Beste dank bij voorbaat.

Opa Smedje
 

Geboorten De Mulder bewerkt.xlsx Geboorten De Mulderxlsx.xlsx

Link naar reactie
Delen op andere sites



Probeer deze eens op je onbewerkte tekst.

 

Sub test()
    Dim a, i As Long, txt As String, m As Object
    With Range("a2", Range("a" & Rows.Count).End(xlUp))
        a = .Value
        With CreateObject("VBScript.RegExp")
            .Global = True
            .IgnoreCase = True
            .Pattern = "\d{1,2}\.\d{1,2}\.\d{4}|blz(\s)+\d+(\s)+\(\d+\)"
            For i = 1 To UBound(a, 1)
                For Each m In .Execute(a(i, 1))
                    txt = txt & IIf(txt <> "", ",", "") & m
                Next
                a(i, 1) = txt: txt = Empty
            Next
        End With
        .Columns(3).Value = a
    End With
    Range("c2", Range("c" & Rows.Count).End(xlUp)).TextToColumns Range("C2"), Comma:=True
End Sub

 

Link naar reactie
Delen op andere sites

 Delen

×
×
  • Nieuwe aanmaken...