宏看不到工作表-“运行时错误9”

Question

我有2张纸和1个宏，它们将值从一个粘贴到另一个。宏正在工作。我复制并更改了一下。但它无法运行-

“运行时错误9”

这是可见性问题。

所有工作表都在相同的excel文件中。

原始宏代码，它可以正常工作：

Sub original()

For j = 18 To 28
        Worksheets("Express_vnzp").Select
        srok = Cells(26, j).Value
        stav = Cells(31, j).Value
        komis = Cells(28, j).Value
        stavka_privlech = Cells(29, j).Value

        For i = 10 To 12

            PD = Cells(i, 17).Value
            Worksheets("Ðàñ÷åòû").Select
            Cells(3, 2).Value = stav
            Cells(4, 2).Value = srok
            Cells(5, 2).Value = komis
            Cells(7, 2).Value = stavka_privlech
            Cells(15, 2).Value = PD
            marzha2 = Cells(23, 2).Value

            Worksheets("Express_vnzp").Select
            Cells(i, j).Value = marzha2

        Next
Next
End Sub

我复制并更改了i，j-不起作用。

Sub erj()

    For j = 3 To 4
            Worksheets("creditcard").Select
            srok = Cells(26, j).Value
            stav = Cells(31, j).Value
            komis = Cells(28, j).Value
            stavka_privlech = Cells(29, j).Value

            For i = 5 To 6

                PD = Cells(i, 17).Value
                Worksheets("ras").Select
                Cells(3, 2).Value = stav
                Cells(4, 2).Value = srok
                Cells(5, 2).Value = komis
                Cells(7, 2).Value = stavka_privlech
                Cells(15, 2).Value = PD
                marzha2 = Cells(23, 2).Value

                Worksheets("creditcard").Select
                Cells(i, j).Value = marzha2

            Next
    Next
    End Sub

给出了“运行时错误”，即可见性问题。