Excel VBA - 删除空行 [英] Excel VBA - Delete empty rows

问题描述

我想删除我的 ERP 报价单生成的空行.我正在尝试浏览文档 (A1:Z50) 和单元格中没有数据的每一行 (A1-B1...Z1 = empty, A5-B5...Z5 = empty) 我想删除它们.

I would like to delete the empty rows my ERP Quotation generates. I'm trying to go through the document (A1:Z50) and for each row where there is no data in the cells (A1-B1...Z1 = empty, A5-B5...Z5 = empty) I want to delete them.

我找到了这个，但似乎无法为我配置它.

I found this, but can't seem to configure it for me.

On Error Resume Next
Worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

推荐答案

怎么样

sub foo()
  dim r As Range, rows As Long, i As Long
  Set r = ActiveSheet.Range("A1:Z50")
  rows = r.rows.Count
  For i = rows To 1 Step (-1)
    If WorksheetFunction.CountA(r.rows(i)) = 0 Then r.rows(i).Delete
  Next
End Sub

这篇关于Excel VBA - 删除空行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！