在VBA（Excel）中计数，并在Excel单元格中定义值

我想在我的Excel VBA宏中计算一次，所以单元格正在更改+1开始单元格：Sheet2$A1-->下一个单元格表2$A2

在我的工作表1中，我有一个以1开头的单元格，单击按钮以1开始计数（工作表1中的单元格A1）

我的想法是：

Sheets("Sheet2").Range("Sheet2!A Sheets("Sheet1").Range(Sheet1!A1).Value = "MY Input"

应该是这样的：

Sheets("Sheet2").Range("Sheet2!A Sheet1!A1).Value = "MY Input"

但它不起作用。有什么想法吗

Sheets("Sheet2").Range("A" & Sheets("Sheet1").Range("A1").Value).Value = "My Input"

或者先定义值，然后使用：

Dim r as long

r = Sheets("Sheet1").Range("A1").Value

Sheets("Sheet2").Range("A" & r).value = "My Input"

我想这就是你的意思，如果不是，请提供一个更清楚的解释，我会相应地编辑答案

或者先定义值，然后使用：

Dim r as long

r = Sheets("Sheet1").Range("A1").Value

Sheets("Sheet2").Range("A" & r).value = "My Input"

---

我想这就是你的意思，如果不是，那么请提供更清楚的解释，我将相应地编辑答案。

使用双引号时，你将字符串传递给函数（在本例中是范围函数），但是范围函数只显式接受“A1”和R1C1/[R]1[C]1类似符号形式的地址

Sheets("Sheet2").Range("A1").Value = Sheets("Sheet1").Range("A1").Value

不确定您是否希望通过按钮实现，但为什么不尝试：

Sheets("Sheet1").Range("A1").Value = Sheets("Sheet1").Range("A1").Value + 1

---

这会在每次执行此行时将单元格A1中的值增加1。

当使用双引号时，您会将字符串传递给函数（在本例中为范围函数），但是范围函数仅显式接受“A1”和R1C1/[R]1[C]1类似符号形式的地址

Sheets("Sheet2").Range("A1").Value = Sheets("Sheet1").Range("A1").Value

不确定您是否希望通过按钮实现，但为什么不尝试：

Sheets("Sheet1").Range("A1").Value = Sheets("Sheet1").Range("A1").Value + 1

---

这会在每次执行此行时将单元格A1中的值增加1。

另一种方法是使用

Offset（）

：

---

Sheets（“Sheet2”）.Range（“A1”）.Offset（Sheets（“Sheet1”）.Range（“A1”）.Value=“我的输入”

，还有一种方法是使用

Offset（）

：

Sheets（“Sheet2”）.Range（“A1”）.Offset（Sheets（“Sheet1”）.Range（“A1”）.Value=“我的输入”