![excel split cells mid column excel split cells mid column](https://img-aws.ehowcdn.com/600x600/photos.demandstudios.com/getty/article/202/48/E000124_XS.jpg)
Ws.Range("A2:E" & LastRow).VerticalAlignment = xlTop Ws.Range("A2:E" & LastRow).RowHeight = 100
![excel split cells mid column excel split cells mid column](https://d295c5dn8dhwru.cloudfront.net/wp-content/uploads/2018/10/02091713/Figure-4.-of-the-Mid-Function-in-Excel..png)
Ws.Range("A2:E" & LastRow).ColumnWidth = 100 STxt = Split(Ws.Cells(Rw, Col + 1).Text, Chr(10)) LastRow = Ws.Range("A" & Rows.Count).End(xlUp).Row '' Change to your requirementįor Rw = 2 To LastRow '' May Change to your requirementįor Col = 0 To 3 '' May Change to your requirement Set Ws = ActiveSheet ' Change to your requirement |15gh | 778899 | 68C | ZOZO | 15gh 778899 68C ZOZO |Īnother alternative approach with 2D Array with out error handler Sub test()ĭim LastRow As Long, Rw As Long, Col As Long, MaxLine As Integer, Ln As Integerĭim sTxt As Variant, TTxt As String, Tln As String |afge | dddddd | TR1TR1 | uiuiui | afge dddddd TR1TR1 uiuiui | |COLUMN A|COLUMN B|COLUMN C|COLUMN D| COLUMN E |