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

tanglf188

Sub 宏1()
'
' 宏1 宏
'
' 快捷键: Ctrl+q
'
    Dim i As Integer
    For i = 1 To 3
        Sheets(i).Columns("p:p").SpecialCells(2, 23).FormulaR1C1 = "A2" '如果是A2单元格的值则为："=A2"
    Next
End Sub

homextt

tanglf188 发表于 2023-5-25 14:37
Sub 宏1()
'
' 宏1 宏

谢谢呐老师

吴中泉

homextt 发表于 2023-5-25 14:23
谢谢，加所有页面的活动单元格有什么好处呢（ws.activate）。

因为不激活为活动工作表,这一句ws.Columns("p:p").Select做选择为报错.

tangdeng520

homextt 发表于 2023-5-25 14:23
谢谢，加所有页面的活动单元格有什么好处呢（ws.activate）。

因为你不加的话，系统不知道columns（）.select是针对哪个表，默认对当前激活的表有效。