求段代码 vba表达工作薄有多个工作表，清空工作内容后，回到每个工作表的a4单元格

mkm-_7605

每个工作表清空a5到e100的内容，每个工作表都回到a4 ，并最终回到第一个工作表.不知道我表达的清楚不？请大佬帮忙，我用宏提出来的当时能用，关闭表格再打开都不能用了 除了那个回到第一个工作表那串能用，其他的都失效了

ykcbf1100

上个附件呗

小凡、、、

liuyu5863016

1. Sub numdark()
   
2. 
   
3.     Dim ws1 As Worksheet, ws As Worksheet
   
4.     Dim ws_name As String
   
5.    
   
6.     ' 赋值第一个工作表
   
7.     ws_name = "表1"
   
8.     Set ws1 = Worksheets(ws_name)
   
9.    
   
10.     ' 循环删除A5:E100的内容
    
11.     For Each ws In Worksheets
    
12.         ws.Activate
    
13.         ws.Range("A5:E100").ClearContents
    
14.         ws.Range("A4").Select
    
15.     Next ws
    
16.    
    
17.     ' 激活第一个工作表
    
18.     ws1.Activate
    
19. End Sub
    

复制代码

扇扇扇

sub sss()
for i=sheets.count to 1 step -1
sheets(i).range("a5:e100").clearcontents
sheets(i).range("a4").select
next
end sub

mkm-_7605

小凡、、、 发表于 2024-8-30 16:31

就是这段代码，非常感谢