Populate Rows & Columns by Comma Split

[airforceone]

Good day mate, need some advice here again
I would like to Populate Rows & Columns based on number of Comma Split
below code works for a single column, but would like to implement it to a couple of columns

Sub Split_Seller_and_Buyer()
'   =====================
'          working
'   =====================

    Dim lastrow As Integer, i As Integer
    Dim descriptions() As String
    Dim Item As Variant
    
    With Worksheets("sht01")
        lastrow = .Range("C1").End(xlDown).Row
        For i = lastrow To 2 Step -1
            If InStr(1, .Range("C" & i).Value, ",") <> 0 Then
                descriptions = Split(.Range("C" & i).Value, ",")
            End If
            For Each Item In descriptions
                .Range("C" & i).Value = Item
                .Rows(i).Copy
                .Rows(i).Insert
            Next Item
            .Rows(i).EntireRow.Delete
    
        Next i
    End With
    
End Sub '   Split_Seller_and_Buyer

DATA SOURCE

Code	Seller	Buyer	Seller	Buyer
A0002	Robert Smith (18/Male/Hospitalized/Alien/STUDENT), Maria Garcia (43/Female/Hospitalized/Alien/FARMER)	Mary Smith (2/Male/Hospitalized/Alien/JOBLESS)	2	1
A0001	Gerald Golbuno (22/Male/Hospitalized/Alien/STUDENT)	Maria Hernandez (34/Female/Hospitalized/Alien/JOBLESS), James Johnson (40/Male/Hospitalized/Alien/JOBLESS), Maria Martinez (37/Female/Hospitalized/Alien/JOBLESS)	1	3

EXPECTED

Code	Seller	Buyer	Seller	Buyer
A0002	Robert Smith (18/Male/Hospitalized/Alien/STUDENT)	Mary Smith (2/Male/Hospitalized/Alien/JOBLESS)	2	1
A0002	Maria Garcia (43/Female/Hospitalized/Alien/FARMER)	Mary Smith (2/Male/Hospitalized/Alien/JOBLESS)	2	1
A0001	Gerald Golbuno (22/Male/Hospitalized/Alien/STUDENT)	Maria Hernandez (34/Female/Hospitalized/Alien/JOBLESS)	1	3
A0001	Gerald Golbuno (22/Male/Hospitalized/Alien/STUDENT)	James Johnson (40/Male/Hospitalized/Alien/JOBLESS)	1	3
A0001	Gerald Golbuno (22/Male/Hospitalized/Alien/STUDENT)	Maria Martinez (37/Female/Hospitalized/Alien/JOBLESS)	1	3

 

[airforceone]

An alternative to VBA with Power Query

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Split Column by Delimiter" = Table.ExpandListColumn(Table.TransformColumns(Source, {{"Seller", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Seller"),
    #"Split Column by Delimiter1" = Table.ExpandListColumn(Table.TransformColumns(#"Split Column by Delimiter", {{"Buyer", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Buyer")
in
    #"Split Column by Delimiter1"

thanks for the time mate, but such code is a part of a bigger module.
also final report is a consolidated report from 4 sheets and don't know if its applicable to Office 2016, 2019 but thanks anyway mate

 

[alansidman]

Power Query is a free AddIn for Excel 2010 and 2013, and is built-in functionality from Excel 2016 onwards (where it is referred to as "Get & Transform Data").

It is a powerful yet simple way of getting, changing and using data from a broad variety of sources, creating steps which may be easily repeated and refreshed. I strongly recommend learning how to use Power Query - it's among the most powerful functionalities of Excel.

- Follow this link to learn how to install Power Query in Excel 2010 / 2013.

The Complete Guide to Installing Power Query - Excel Campus

Learn what version you need to get Power Query and instructions on how to install this free add-in from Microsoft.

www.excelcampus.com

- Follow this link for an introduction to Power Query functionality.

Power Query Overview: An Introduction to Excel's Most Powerful Data Tool - Excel Campus

Learn how this FREE Excel add-in from Microsoft called Power Query will help transform your data into a format that is ready for pivot tables, reports and more.

www.excelcampus.com

- Follow this link for a video which demonstrates how to use Power Query code provided.

Power Query - How To Paste Code (video) - Excel Solutions

Power Query is great at solving data transformation and consolidation issues. But there are still loads of Excel users who have never used Power Query yet – and sometimes when they’re given some Power Query code to answer their question, they don’t know what to do with it. Here’s a short video...

excel.solutions

 

[airforceone]

Power Query is a free AddIn for Excel 2010 and 2013, and is built-in functionality from Excel 2016 onwards (where it is referred to as "Get & Transform Data").

It is a powerful yet simple way of getting, changing and using data from a broad variety of sources, creating steps which may be easily repeated and refreshed. I strongly recommend learning how to use Power Query - it's among the most powerful functionalities of Excel.

- Follow this link to learn how to install Power Query in Excel 2010 / 2013.

The Complete Guide to Installing Power Query - Excel Campus

Learn what version you need to get Power Query and instructions on how to install this free add-in from Microsoft.

www.excelcampus.com

- Follow this link for an introduction to Power Query functionality.

Power Query Overview: An Introduction to Excel's Most Powerful Data Tool - Excel Campus

Learn how this FREE Excel add-in from Microsoft called Power Query will help transform your data into a format that is ready for pivot tables, reports and more.

www.excelcampus.com

- Follow this link for a video which demonstrates how to use Power Query code provided.

Power Query - How To Paste Code (video) - Excel Solutions

Power Query is great at solving data transformation and consolidation issues. But there are still loads of Excel users who have never used Power Query yet – and sometimes when they’re given some Power Query code to answer their question, they don’t know what to do with it. Here’s a short video...

excel.solutions

thanks mate will do, just need to find some free time