Excel VBA的variables和公式

我需要一些关于VBA的帮助。 我有一个Excel工作簿2张。 在表1中，J1单元格的值有所不同。 在工作表2中我运行以下代码将值添加到单元格。

Dim wb As Workbook Dim nws, ws As Worksheet Set wb = ActiveWorkbook Set ws = wb.Sheets("Sheet1") Set nws = wb.Sheets("Sheet2") ws.Unprotect With nws .Cells(1, 2).Value2 = "0" For i = 1 To cnt1 .Cells(j, 2).Value2 = "=.Cells(i, 2).Value2+1" Next i End With 

我在这个部分失败了

 =.Cells(i, 2).Value2+1 

我知道我写错了。 但是这就是我想要代码工作的方式。

请原谅，如果我没有正确地提出这个问题。 请帮助。

Answer 1

 .Cells(j, 2).Value2 = "=.Cells(i, 2).Value2+1" 

删除双引号和多余的等于。 这使得它成为一个string，而不是评估expression式。