请教一段代码里的错误解决办法

天地一相

感谢帮助，写了一段代码，但运行错误1004，提示说里面“.Range("H3").Select”这一句无效。我写这一句是想每一张目标表里的光标要点击在这里，看着整齐舒服。

For i = 3 To 8

    With ThisWorkbook.Worksheets(i)
        .Range("O4:O1084").Copy
        .Range("F4:F1084").PasteSpecial xlPasteValues
        .Range("F4").ClearContents
        .Range("H3").Select
    End With
    Next i

liulang0808

激活表格

天地一相

liulang0808 发表于 2023-3-17 13:37
激活表格

谢谢！原代码是让chatGPT写的，发现问题后反复沟通未能如意，给的答案我不喜欢。还是本站来的精彩精准。