あらかじめ定義された範囲のオフセット/サイズ変更

Question

シート4〜9、次に12と13のセルからすべての画像（画像を含む）を消去しようとしています。次のコードがありますが、シート3-9 12-15で、私は理由を知らない。

どのような考えですか？

Sub ClearContents() 
Dim i As Integer 
For i = 4 To 9 And 12 And 13 
Sheets(i).Cells.Clear 
Sheets(i).Pictures.Delete 

Next i 

Answer 1

以下のコードを試してみてください。

Option Explicit 

Sub ClearContents() 

    Dim i As Long 
    Dim Sht As Worksheet 
    Dim PicObj As Object 

    ' loop through all worksheets in your workbook 
    For Each Sht In ThisWorkbook.Sheets 
     Select Case Sht.Index 
      Case 4 To 9, 12, 13 
       Sht.Cells.Clear 

       ' loop through all shapes in your worksheet and delete them all 
       For Each PicObj In Sht.Shapes 
        PicObj.Delete 
       Next PicObj 

      Case Else '<-- for future cases, if you'll need 
       'do nothing 
     End Select 
    Next Sht 

End Sub 

Answer 2

代わりにそのインデックスのシート名を使用するように編集

あなたはSheets(array)味Sheetsのコレクションを使用することができます

Option Explicit 

Sub ClearContents() 
    Dim ws As Worksheet 

    For Each ws In ThisWorkbook.Sheets(Array("Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8", "Sheet9", "Sheet12", "Sheet13")) ' loop through wanted worksheets 
     ws.Cells.Clear 
     ws.Pictures.Delete 
    Next 
End Sub