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

Question

如果 column A 值为空，我需要删除整行。我在 excel 一直在做，这个方法最适合我

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

我需要使用 vbs 做同样的事情，但是，我在将它转换为 vbs

时遇到了问题

如何将上面的行转换成vbs？

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

Answer 1

您需要为 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

Answer 2

像这样

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

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

How to efficiently remove empty Excel rows using VBS?

vbscript

excel