@אהרן אמר באיך מוחקים שורות ריקות באקסל:
מה הפונקציה (כנ"ל למחוק את כל השורה) התנאי שתא בטור מסוים ריק?
בדוגמא ש clickone הביא,
תביא ל range רק את העמודה הרצויה.
עריכה:
תצטרך לתת לו 2 טווחים, כי הוא מוחק רק את השורות של הטווח, לא את כל השורה.
Sub foo()
Dim r As Range, rb As Range, rows As Long, i As Long
Set r = ActiveSheet.Range("B1:B50")
Set rb = ActiveSheet.Range("a1:z50")
rows = r.rows.Count
For i = rows To 1 Step (-1)
If WorksheetFunction.CountA(r.rows(i)) = 0 Then rb.rows(i).Delete
Next
End Sub
או במקום 2 טווחים, לבחור את כל השורה
If WorksheetFunction.CountA(r.rows(i)) = 0 Then ' rb.rows(i).Delete
rb.rows(CStr(i) & ":" & CStr(i)).Select
Selection.Delete
End If
