How to delete hidden excel cells in through VBScript?

Asked Oct 25 '18 at 13:16

Active Oct 25 '18 at 19:09

Viewed 228 times

I'm having a problem with an excel dictionary that have hidden cells and it is giving me headches to clean it. So I got this code in VBA. But I want it in VBScript so I can execute it straight from Stata with no need of opening the sheet to delete the cells

the code in VBA:

Sub exclui_celulas_ocultas()

Dim lastRow
lastRow = 1000
    For iCntr = lastRow To 1 Step -1
        If Rows(iCntr).Hidden = True Then Rows(iCntr).EntireRow.Delete
    Next
End Sub

Also I'd like to make the "lastRow" generic, instead of specifying a constant.

Thanks

edited Oct 25 '18 at 19:09

asked Oct 25 '18 at 13:16

Apolo Reis

1

https://stackoverflow.com/a/11169920/62576 – Ken White Oct 25 '18 at 14:19
you should def post any VBScript you've tried so far – Kubie Oct 25 '18 at 15:25
Please make sure you actually pose a question – Geert Bellekens Oct 25 '18 at 17:31
Thanks Ken White I edited it now, Geert. Thanks – Apolo Reis Oct 25 '18 at 19:22

How to delete hidden excel cells in through VBScript?

0 Answers0