Here is a quick way to delete all empty rows on a worksheet:
Below it is code to delete empty rows and columns on a worksheet.
Hope it helps.
Sub DeleteEmptyRowsOnly()
Application.ScreenUpdating = False
Dim r1 As Long, c1 As Integer, rr As Long, cc As Integer, ii As Integer
rr =...
This will work really fast (I timed it - 0.6 seconds). This presumes that there is a header row. If not then create one. Also that your data starts from row 2 (header being row 1).
Sub DeleteRows()
Application.ScreenUpdating = False
Dim r As Long
r = [a1].CurrentRegion.Rows.Count...
I am trying to nest series within series in a column chart. It obviously works with 2 series by plotting them against 2 axes, but unable to figure out how to extend this to >2 series. The link below is to a dummy file showing what I mean – no macros -(the columns are text boxes formatted to...