Excel 将值从一张图纸保存到另一张图纸

我在其他的工作手册中很顺利地编写了类似的代码

我得到了错误“400”

---

使用

选项Explicit

时，未定义get rw变量。

我替换了一些代码，如下所示：

Sub CommandButton1_Click()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Dim r1 As Range, r2 As Range
    Dim v1 As Variant, v2 As Variant
    Dim i, rw, Rows_Count As Integer 'you forgot some variables

    Rows_Count = 0 'This, obviously, is just an example. I have no idea what the value should be.

---

在修复了两件事之后，您的代码对我来说运行良好：声明

Dim i为Long

和设置

rw=sh2.Cells（sh2.Cells.Rows.Count，“C”）.End（xlUp）.Offset（1，0）.Row

。请注意行的

sh2.Cells.Rows.Count

值，它引用了工作表

sh2

。注意：在模块顶部添加

Option Explicit

。仅供参考-“not working”（不工作）对于运行代码时发生的情况不是很有用的描述。您是否遇到错误，或者您的代码出现了意外情况？总是有助于说明实际问题是什么。这样做之后，我遇到了一个不同的问题-以前它根本没有运行，现在它告诉我rw变量没有定义如果我删除“Option Explicit”，我会得到错误“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
    Dim i, rw, Rows_Count As Integer 'you forgot some variables

    Rows_Count = 0 'This, obviously, is just an example. I have no idea what the value should be.