使用变量的单元格公式

Question

我正在使用 Excel VBA 编辑器（我有 Excel 2007 和 Excel 2016）。我有一个可变参数i，其他的都是固定的。 你能告诉我如何在单元格Cells(i, 2) 中输入公式吗？

1. 使用我的宏中的变量（j1、j2、i1）
2. 使用我的工作表中的变量（单元格 J1、J2、C[-1]）

C[-1] 是Cells(i, 2) 左侧的单元格，例如。 Cells(i, 1)?

比很多， 爱德华

Answer 1

试试这个：

Sub date_add()
Dim i As Long
Dim dt As Worksheet

 Set dt = ThisWorkbook.Worksheets("Date")
 With dt
 lastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
 For i = 1 To lastRow
     .Cells(i, 2).Formula = "=DATE(J1,J2,C" & i & ")"
 Next i
End With
End Sub

J1 输入年份，J2 输入月份，C 列输入日期数

Answer 2

部分答案。假设单元格 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