如何有效地使用VBS删除空的Excel行？

我需要删除整行IF column A值是空的。 我一直在做这个方法，这种方法最适合我

.Columns("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

我需要使用vbs做同样的事情，但是我有问题将其转换为vbs

如何将上述行转换为vbs？

我用F2查找了xlCellTypeBlanks = 4 。 但是如何使用SpecialCells方法？

Answer 1

像这样的东西

 Const xlCellTypeBlanks = 4 Dim xlApp Dim xlwb Set xlApp = CreateObject("Excel.Application") Set xlwb = xlApp.workbooks.Open("C:\temp\test.xlsm") On Error Resume Next xlwb.Sheets(1).Columns("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete On Error GoTo 0 

Answer 2

你将需要有一个Excel应用程序，工作簿，工作表等对象

 Dim xlApp as Object Set xlApp = CreateObject("Excel.Application") Dim wb as object Set wb = xlApp.Open("YourWorbookName.xlsx") wb.Worksheets("NameOfWorksheet").Columns("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete