求一个判定指定内容操作的宏，求指点，感激不尽

只看楼主
收藏
回复

吃肉的白鸽
学前班
2

求大神指点一个可以根据表格内容实现判定删除多余的子表格以及指定表格的行列。
例如：工作簿中有10个工作表分别是sheet1-10，sheet1工作表A2-10，分别对应工作表sheet2-10。当工作表sheet1的单元格A2=1，A3-10=/时，自动删除工作表sheet3-10，只保留工作表sheet2。
当sheet1 B1=1时，删除sheet2，B3：H5内容。
大致是这个判定的内容，求大神指点一二

湘喑
WPS7年级
11

A3-10=/ 没看懂这个，我就当成是A3=10吧
Sub 测试()
Dim i%
With Worksheets(1)
If .[a2] = 1 And .[a3] = 10 Then
For i = 10 To 3 Step -1
Worksheets(i).Delete
Next
End If
If .[b1] = 1 Then
Worksheets(2).[b3:h5].ClearContents
End If
End With
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示

1回复贴，共1页

<<返回wps吧

分享到:

日	一	二	三	四	五	六