高级功能研发区-关于VBS的EXCEL操作金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  关于VBS的EXCEL操作  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=160295)

--  作者：sdhookling
--  发布时间：2017/12/9 22:29:26
--  关于VBS的EXCEL操作
请问，VB中删除一个excel空列的代码如下：

Sub DeleteEmptyColumns()
Dim LastColumn As Long, c As Long
LastColumn = ActiveSheet.UsedRange.Columns.Count
LastColumn = LastColumn + ActiveSheet.UsedRange.Column
For c = LastColumn To 1 Step -1
If WorksheetFunction.CountA(Columns(c)) = 0 Then Columns(c).Delete
Next c
End Sub

怎么改写到VBS里面，能帮忙改一下吗，WorksheetFunction.CountA(Columns(c)) = 0这句判断出错，谢谢