将值从一张纸保存到另一张纸>>

Question

我在其他工作簿中也编写了类似的代码，而没有遇到麻烦。

我收到错误“ 400”。

Sub CommandButton1_Click()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Dim r1 As Range, r2 As Range
    Dim v1 As Variant, v2 As Variant

    Set sh1 = Worksheets("Tool")
    Set sh2 = Worksheets("SaveFile")

    v1 = Array("D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11", "D12", "D13", "H4", "H5", "H8", "H9", "H10", "H11", "H12", "H13", "E17")
    v2 = Array("C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V")
    rw = sh2.Cells(Rows_Count, "C").End(xlUp).Offset(1, 0).Row

    For i = LBound(v1) To UBound(v1)
        Set r1 = sh1.Range(v1(i))
        Set r2 = sh2.Cells(rw, v2(i))
        r2.Value = r1.Value
    Next i
End Sub
使用Option Explicit我得到的rw变量未定义。

我在其他工作簿中编写了类似的代码，没有遇到麻烦。我收到错误“ 400”。 Sub CommandButton1_Click（）Dim sh1作为工作表，sh2作为工作表Dim r1作为范围，r2作为范围Dim v1作为...

Answer 1

我替换了以下代码：