Ekstrak semua URL dari file CSV / Excel dan letakkan di kolom terpisah

0

Saya punya file csv. Ketika saya membuka file csv di Microsoft excel, saya memiliki kolom.

Setiap sel dalam kolom memiliki jumlah paragraf. setiap paragraf memiliki banyak URL.

Saya mencari untuk mengekstrak semua URL di setiap sel kolom dan menempatkan setiap URL di sel terpisah di kolom terpisah baru.

Semua URL dimulai dengan http: // dan diakhiri dengan .jpg

Bagaimana saya bisa melakukan ini di Excel atau Notepad ++

Terima kasih sebelumnya

Ali_2017
sumber
Seperti yang saya tanyakan dalam pertanyaan terakhir Anda, silakan edit dan berikan sebelum dan sesudah data.
DavidPostill

Jawaban:

0

Berikut adalah kode yang akan membagi sel dengan umpan baris menjadi kolom. Anda harus dapat mengubahnya tergantung pada seperti apa paragraf Anda.

Sub SplitCellsAndExtend_New()
'takes cells with inside line feeds and creates new row for each.
'reverses merge into top cell.

'turn off updates to speed up code execution
With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
End With


Dim strCell As String, lastRow As Long, lRowLoop As Long, j As Long, arSplit
Application.ScreenUpdating = False

Const lColSplit As Long = 4
Const sFirstCell As String = "A1"
Dim sSplitOn As String
sSplitOn = Chr(10)

lastRow = Cells(Rows.Count, lColSplit).End(xlUp).Row

    For lRowLoop = lastRow To 1 Step -1

        arSplit = Split(Cells(lRowLoop, lColSplit), sSplitOn)

        If UBound(arSplit) > 0 Then
            Rows(lRowLoop + 1).Resize(UBound(arSplit) + 1).Insert

            Cells(lRowLoop, lColSplit).Resize(, UBound(arSplit) + 1).Value = arSplit
            Cells(lRowLoop, lColSplit).Resize(, UBound(arSplit) + 1).Copy
            Cells(lRowLoop + 1, lColSplit).PasteSpecial Transpose:=True

            Cells(lRowLoop, 1).Resize(, lColSplit - 1).Copy Cells(lRowLoop + 1, 1).Resize(UBound(arSplit) + 1)

            Rows(lRowLoop).Delete
        End If

        Set arSplit = Nothing
    Next


With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
End With


End Sub
gila
sumber
Saya menemukan situs web ini convertcsv.com/url-extractor.htm yang membantu saya mengekstrak URL. Saya harap ini akan membantu seseorang.
Ali_2017