Excel VBA中如何将字符串变量赋值为B以正确拼接R1C1公式？

问题原因 #

1. 写a = B时，VBA会把B识别为当前活动工作表B列当前行的单元格引用，而非字符串，所以单元格为空时a的值也为空。
2. 你误以为a = "B"会拼接出"B"6，实际是调试器显示字符串时自带引号，VBA变量a的真实值是B（不带引号），问题出在原代码的公式引号转义错误和缺少右括号。

正确代码示例 #

Dim ws_fe As Worksheet
Set ws_fe = ActiveWorkbook.Worksheets("xx")

Dim ws_de As Worksheet
Set ws_de = ActiveWorkbook.Worksheets("xxx")

Dim a As String
a = "B" ' 直接赋值为纯字符串"B"，无多余引号

' 修正引号转义（两个双引号代表公式里的一个双引号），补充公式右括号
ws_fe.Cells(5, 10).FormulaR1C1 = "=IF(RC[-4]="""","""",RC[-5]-" & a & "6)"

关键说明 #

• 赋值a = "B"后，变量内容就是纯字符B，拼接& a & "6"会直接得到B6，不会出现引号。
• VBA中要在公式字符串里表示一个双引号，需用两个双引号转义，比如公式里的RC[-4]=""，在VBA字符串里要写成RC[-4]=""""。
• 补充公式末尾的右括号，避免语法错误。

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