非表示セルの削除について

非表示セルの削除を行うvbsを実現したいのですが、うまく行かず、こちらに投稿しました。
お手数ですが、アドバイスをよろしくお願いします。
以下は、現在の記述です

Sub test()
With Rows(1)
.SpecialCells(12).EntireColumn.Select
.Cells.EntireColumn.Hidden = False
.Selection.Hidden = True
.SpecialCells(12).EntireColumn.Delete
.Cells.EntireColumn.Hidden = False
End With
With Columns(1)
.SpecialCells(12).EntireRow.Select
.Cells.EntireRow.Hidden = False
.Selection.Hidden = True
.SpecialCells(12).EntireRow.Delete
.Cells.EntireRow.Hidden = False
End With
End Sub

torisan

2019/08/01 06:19

確認します。 VBAではなくVBSですね？

guhi

2019/08/01 06:22

質問ありがとうございます VBSでの実現を目指しています

torisan

2019/08/01 06:24

了解しました。板汚し失礼しました。

ttyp03

2019/08/01 06:24

いきなりRows(1)とかやってますが、ExcelVBAではなくVBSなんですよね？

ttyp03

2019/08/01 06:26

あともう少し具体的な仕様を書いてください。非表示セルって？非表示行か列ならわかります。固定位置の非表示セルを削除したいんでしょうか？セルを削除？行を削除？列を削除？？？？が多すぎる。

guhi

2019/08/01 06:28

VBAは少し齧ったことがあるのですが、VBSでの実現に取り組んでいます

guhi

2019/08/01 06:34

情報不足で申し訳ありません。非表示行の削除になります EXCELでフィルタをかけなかった非表示行だけを削除したいと考えています

行動規範の内容に同意します

回答1件

ベストアンサー

ざっと書くとこんな感じになるかと思います。
Excelファイル名とシート名は適宜修正してください。
データがある列を１列目と仮定しているので、適宜修正してください。
（Cellsの第2パラメータのところ）
VBSの場合、Excelオブジェクトの準備と後片付けでステップ数がかさみますね。

VBS
1Set xls = CreateObject("Excel.Application")
2Set bk = xls.Workbooks.Open("Excelファイル名")
3Set sh = bk.Worksheets("シート名")
4
5lastrow = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row
6For r = lastrow To 1 Step -1
7    If sh.Rows(r).Hidden Then
8        sh.Rows(r).Delete
9    End If
10Next
11
12bk.Save
13bk.Close
14xls.Quit
15Set xls = Nothing
16