If you want to split the text of a cell into multiple cells. Snapshot below-
Here is the code-
Dim i As Long, j As Long, k As Long
j = 2
' last filled row of a col a
For i = 2 To Range("a65356").End(xlUp).Row
' chnage "b" as pe the column name of data
' comma sign replace "," as pe ur the seperator used by you
splt = Split(Application.WorksheetFunction.Trim(Range("b" & i).Value), ",")
For k = LBound(splt) To UBound(splt)
Sheets(1).Range("f" & j).Value = Range("a" & i).Value
Sheets(1).Range("g" & j).Value = splt(k)
j = j + 1
Download Sample Workbook
Saturday, October 8, 2011
Split the data of a cell into multiple cells
Subscribe to: Post Comments (Atom)
Import data from SQL
Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...
If you want to add a new menu on mouse right click "Workbook Navigation showing you the list of all open workbooks and worksheets in ea...
Macro to Export Range in Json Format Option Explicit Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoex...
Post a Comment