使用variables的单元格公式

我正在使用Excel VBA编辑器（我有Excel 2007和Excel 2016）。 我有一个可变的参数i ，所有其他的都是固定的。 你能说我怎么能把一个公式放入一个细胞Cells(i, 2)吗？

1. 使用我的macros（ j1 ， j2 ， i1 ）
2. 使用我工作表中的variables（单元格J1，J2， C[-1] ）

C[-1]是Cells(i, 2)左边的Cells(i, 2)例如。 Cells(i, 1) ？

Thans很多，Eduard

Answer 1

部分答案。 说单元格A1包含值2 。 运行这个：

 Sub eddie() Dim i As Long, s As String i = Range("A1").Value s = "=DATE(20,20,20)" Cells(i, 2).Formula = s End Sub 

将公式放在单元格B2中

Answer 2

尝试这个：

 Sub date_add() Dim i As Integer Dim dt As Worksheet Set dt = ThisWorkbook.Worksheets("Date") lastRow = Range("C900").End(xlUp).Row For i = 1 To lastRow dt.Cells(i, 2).Formula = "=DATE(J1,J2,C" & i & ")" Next i End Sub 

您在哪里inputJ1上的年份，J2上的月份以及C列上的date数量

PS：如果您有超过900个date，您应该将C900更改为C65536，其中65536是旧的Excel中最后一行