Excel VBA中如何将获取的列号用于FormulaR1C1公式？

• 你的代码核心问题有两个：

  1. VBA不会解析双引号内的变量，直接把tDateCol写在公式字符串里会被当成普通文本，必须用&做字符串拼接。
  2. R1C1引用格式错误：要引用当前行、指定列号的单元格，应该用RC&列号的绝对引用格式，而不是RC[列号]（后者是相对当前列的偏移量）。

• 修正后的代码：

Dim tDateCol As Long
Dim foundCell As Range
' 先找到目标列号，加判断防止找不到表头报错
Set foundCell = Range("1:1").Find("Transaction Initiation Date")
If Not foundCell Is Nothing Then
    tDateCol = foundCell.Column
    ' 正确拼接变量到R1C1公式中
    Selection.FormulaR1C1 = "=DATE(RIGHT(RC" & tDateCol & ",4),LEFT(RC" & tDateCol & ",2),MID(RC" & tDateCol & ",4,2))"
Else
    MsgBox "未找到表头""Transaction Initiation Date"""
End If

• 补充说明：
  • 增加了foundCell的空值判断，避免找不到表头时触发运行时错误。
  • 公式里的RC" & tDateCol & ""会被解析成RCX（X是实际列号，比如找到的是第5列就变成RC5），表示当前行第X列的单元格，符合你要引用目标列的需求。

内容的提问来源于stack exchange，提问作者Robert