こんばんは、ＶＢＡについて質問させてください(^O^) あるブックに３２個のシートが入っています。 ３２個のシートのうち、セルＡ２にデータの入っているシートとそうでない シートがあります。（毎回変動します。） これを踏まえて、セルＡ２にデータが入っていればそのまま、 入っていなければそのシートを削除。 という作業をＶＢＡでやろうと思って以下の通りＶＢＡを記述したのですが、 シートが削除されるとシートの数が変わってしまうので、これではだめだと 思ったのですが、どのように記述すればいいのか分かりません(T_T) どなたかご教授いただけないでしょうか、よろしくお願いいたします。 Sub Macro1() Application.DisplayAlerts = False Dim i As Integer For i = 1 To 32 Sheets(i).Select If Range("A2").Value = "" Then Sheets(i).Delete End If Next i End Sub
↧