使用变量的单元格公式

Question

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

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

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

非常感谢，爱德华

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 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 列上输入日期数

使用变量的单元格公式

Cell formula using a variable

excel

vba

excel-r1c1-notation