偏移/调整先前定义的范围
偏移/调整先前定义的范围
提问于 2017-02-03 02:26:24
我试图清除从表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回答 2
Stack Overflow用户
发布于 2017-02-03 02:32:13
尝试下面的代码：
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 SubStack Overflow用户
发布于 2017-02-03 02:52:19
编辑为使用工作表名称而不是其索引
您可以使用Sheets集合的Sheets(array)风格：
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/42009651
复制相关文章
相似问题
腾讯云开发者
