将VBA代码转换为Vbscript

Question

我在宏中使用以下代码删除excel中的空白行。你可以帮我把它转换成Vbscript吗？

Columns("A:A").Select
   Selection.SpecialCells(xlCellTypeBlanks).Select
   Selection.EntireRow.Delete

等待您的宝贵回应。

Answer 1

VBScript不像VBA运行时环境那样提供隐式父对象，因此您需要将所有内容都显式化：

Set xl = CreateObject("Excel.Application")
Set wb = xl.Workbooks.Add
Set ws = wb.Sheets(1)

ws.Columns("A:A").Select
...

此外，VBScript不识别VBA命名常量，因此您需要使用数值：

...
xl.Selection.SpecialCells(4).Select
...

或在脚本中定义常量：

Const xlCellTypeBlanks = 4
...
xl.Selection.SpecialCells(xlCellTypeBlanks).Select
...

有关将VBA转换为VBScript的详细信息，请参阅here。