用公式中的相同列replace列

有什么办法在Excel中将公式粘贴到列上，以便接收公式的每个单元格在公式中作为input？ 例如，我想在一个范围内编写= Text（），而不必先将Text（A1）放在一个空列上，拖拽它，然后将结果粘贴到原始列中。 这可能吗？ 谢谢！

Answer 1

这是一个用一列公式replace一列值的例子：

Sub Formulate() Dim N As Long, i As Long, dq As String N = Cells(Rows.Count, "A").End(xlUp).Row dq = Chr(34) For i = 1 To N v = Cells(i, 1).Value Cells(i, 1).Formula = "=Text(" & v & "," & dq & "mm/dd/yyyy" & dq & ")" Next i End Sub