求助贴关于遍历循环，被折磨好几天了

homextt

Sub 宏1()
'
' 宏1 宏
'
' 快捷键: Ctrl+q
'
    Dim ws As Worksheet
    Dim lastRow As Long
   
    Dim i As Integer
    i = 1 '从第1张工作表开始遍历
   
    For Each ws In ThisWorkbook.Worksheets
    If i <= 3 Then '只遍历前3张工作表
    Columns("p:p").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.ClearContents
    Selection.FormulaR1C1 = "A2"
    End If
    i = i + 1 '递增i的值，指向下一张工作表
    Next ws
End Sub


红色是用系统生成的，其他是我加上去的。   代码我是想用来把工作表的P列所有的常量删除并重新填上"A2"的字符(也可以是其他各种常量)，，然后在吧这个操作循环到指定的工作表去。但是上表的代码只会在当页执行，不会遍历循环到每一页，我已经试了1天了都没解决，本人只学了2个星期，只能看个半懂，自己写的可能语法什么都不对，有大神指点下么。ps精通财务，可以相互交流的

蓝桥玄霜

ws.Columns("p:p").Select

homextt

自己先顶一下

边缘码农

边缘码农

边缘码农

1. Sub 宏1()
   
2. '
   
3. ' 宏1 宏
   
4. '
   
5. ' 快捷键: Ctrl+q
   
6. '
   
7.     Dim ws As Worksheet
   
8.     Dim lastRow As Long
   
9.    
   
10.     Dim i As Integer
    
11.     i = 1 '从第1张工作表开始遍历
    
12.    
    
13.     For Each ws In ThisWorkbook.Worksheets
    
14.     If i <= 3 Then '只遍历前3张工作表
    
15.     With ws
    
16.         .Select
    
17.         With .Columns("p:p")
    
18.             .Select
    
19.             .SpecialCells(xlCellTypeConstants, 23).Select
    
20.             .ClearContents
    
21.             .FormulaR1C1 = "A2"
    
22.         End With
    
23.     End With
    
24.     End If
    
25.     i = i + 1 '递增i的值，指向下一张工作表
    
26.     Next ws
    
27. End Sub
    
28. 
    

复制代码

吴中泉

homextt 发表于 2023-5-25 12:16
自己先顶一下

homextt

吴中泉 发表于 2023-5-25 12:40

谢谢，加所有页面的活动单元格有什么好处呢（ws.activate）。

homextt

蓝桥玄霜 发表于 2023-5-25 11:49
ws.Columns("p:p").Select

十分感谢呀老师，初学语句还没掌握全

homextt

边缘码农 发表于 2023-5-25 12:26

加了with，我又要深入学习了，哈哈哈，谢谢呐