Delete empty rows if Column range B to n is empty

[SteveP1962]

I apologise if this topic has been covered before but I just could not find exactly what I require when I searched the message board.

I have a Matrix consisting of 20 Columns and 1000's of Rows.
I am looking for a Macro that will remove all Rows that do not have Data in Columns B through to the nth Column (20 would be enough).

I do have Data in Column A for every row but if there isn't any data across the row in any other column then it is to be deleted.

SP

 

[ravishankar]

Hi
Paste the following codes in the macro window ( Alt F11)

Sub rrr()
x = Cells(Rows.Count, 1).End(xlUp).Row
For a = x To 1 Step -1
c = 0
For b = 2 To 20
If Cells(a, b) = "" Then
c = c + 1
If c = 19 Then
Rows(a).EntireRow.Delete
End If
Else
Exit For
End If
Next b
Next a
End Sub

Run the macro. It will delete rows if col B to N are blank
(test it on a sample data)
ravi

 

[SteveP1962]

Transpose Horizontal to Vertical

Ravi

Thanks just what I needed, one more question

Is possible using a macro to Transpose data from the Horizontal to Vertical?
Repeating the Column A data for every new Row of Data that was Previously in Column B,C,D............. and output to a new worksheet?

---A-----------B--------C----------D
1 Entry_1| EGGS | FISH | POTATOES

to
----A-------------B
1 ENTRY_1 |EGGS|
2 ENTRY_1 |FISH|
3 ENTRY_1 |POTATOES|