怎样实现除第一个工作表中数据不清除外，其它工作表指定区域中数据消除，请大神们指教

129192

下面这段代码是把工作簿中所有工作表指定单元格数据清除了，我想保留第一个工作表中的数据不清除，请大神们指教，


Sub 按钮3_Click()
a = Application.InputBox("请输入密码！")
If a <> 2021 Then
MsgBox "密码不正确！"
Exit Sub
Else
MsgBox "密码正确，点击确定运行清除程序！！"
End If
For i = 1 To Worksheets.Count
With Sheets(i)
.Range("c15:C23").ClearContents
End With
Next
End Sub

魚。。

把 i 循环的初始值 1 改成 2

129192

魚。。 发表于 2021-12-13 20:43
把 i 循环的初始值 1 改成 2

真的好奇怪，我之前有将i改成2，但并不可以。现在按你的方法一试又可以了。再追问下，如果不是要保留第一个工作表数据，而是其它没规律的某一个表又该怎样表述，谢谢

魚。。

129192 发表于 2021-12-13 20:53
真的好奇怪，我之前有将i改成2，但并不可以。现在按你的方法一试又可以了。再追问下，如果不是要保留第一 ...

if 判断工作表名，不等于指定的工作表名，就执行

yujxgood

For i = 2 To Worksheets.Count
With Sheets(i)
.Range("c15:C23").ClearContents
End With
Next

yujxgood

若是有具体要保留的工作表名称，则加一个判断，工作表名称不等于指定的表名称则清除数据

yujxgood

For i = 2 To Worksheets.Count

yujxgood

把for I=1，改为 FOR I=2

129192

谢谢各位大神的回复，我重新修改了下，将我最终想要达到的效果表述了下，但执行过程中报错，麻烦帮我看看是什么原因，或者有没有更好更简单的方法达到我所想要的效果。谢谢！！ 是不是第一个工作表第38行有合并单元格的原因，还是没绕开第一个工作表不清除吗？

魚。。

因为有一大堆隐藏表，是其他样子的，存在合并单元格删除部分内容，所以不可以操作