Question

我需要删除整行IF column A值为空。我一直在excel中这样做，这种方法最适合我

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

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

如何将上述行转换为vbs？

我使用xlCellTypeBlanks = 4查找了F2。但是如何使用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

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

2 个答案: