Engage with tech pros in our community with native advertising, as a Vendor Expert, and more.
Sub HTH() Dim SiteCol As Range, Cell As Object Dim vArray As Variant Dim numCells As Integer Set SiteCol = Range("D:D") For Each Cell In SiteCol vArray = Split(Range(Cell).Value, ",") numCells = UBound(vArray) If numCells >= 1 Then For i = 1 To numCells ActiveCell.Offset(1).EntireRow.Insert Next i ActiveCell.Offset(1, 0).Select Range(Cell).Resize(UBound(vArray, 1) + 1).Value = WorksheetFunction.Transpose(vArray) End If Next End Sub
|Need Excel Index/Match Formula to Dynamically Change Graph||6||26|
|VBA to delete range of cells in row NOT entire row||11||29|
|excel - employee availability remaining after scheduled||7||34|
|Revise Excel macro to include missing information||4||19|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!