More than 5 years have passed since last update.

VBAでshapeをループで回して削除するときにはまったこと

Excel
VBA

Last updated at 2018-08-15Posted at 2018-08-15

デクリメントする

    For i = ActiveSheet.Shapes.Count To 1 Step -1 ' デクリメント重要
        If Not Shapes(i).Name Like "*kesuna*" Then
            Shapes(i).Delete
        End If
    Next i

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up