如何在其他工作表中通过条件公式获取单元格地址

一、示例代码逻辑解析 #

你给出的VBA代码是给GNPA工作表的指定区域（TopCell到BottomCell）批量写入条件公式，核心逻辑是：

• 判断NPA-SUMMARY工作表的A1单元格（R1C1格式）是否等于字符串"NPA AS ON "加上当前单元格上一行同列的值
• 满足条件时，引用NPA-SUMMARY工作表中变量x对应的单元格地址
• 不满足时返回空字符串

二、核心实现要点 #

• 跨表引用规则：公式中引用其他工作表单元格，必须用'工作表名'!单元格地址格式；若工作表名含空格/特殊字符，单引号不可省略
• 引用样式选择：示例用了R1C1引用（R[-1]C代表当前单元格上一行同列），也可换成A1样式，两种格式在VBA中对应不同属性：
  • R1C1格式：用FormulaR1C1属性写入更规范
  • A1格式：用Formula属性写入
• 字符串转义：VBA中拼接公式时，双引号需用两个双引号转义（如""NPA AS ON ""实际输出为"NPA AS ON "）

三、优化后的代码示例 #

1. 用R1C1引用样式（规范写法）

' 假设x是R1C1格式的地址，比如"R2C3"
Sheets("GNPA").Range(TopCell, BottomCell).FormulaR1C1 = _
    "=IF('NPA-SUMMARY'!R1C1=""NPA AS ON ""&R[-1]C,'NPA-SUMMARY'!" & x & ","""")"

2. 用A1引用样式（更直观）

' 假设x是A1格式的地址，比如"$C$2"
Sheets("GNPA").Range(TopCell, BottomCell).Formula = _
    "=IF('NPA-SUMMARY'!$A$1=""NPA AS ON ""&INDIRECT(ADDRESS(ROW()-1,COLUMN())),'NPA-SUMMARY'!" & x & ","""")"

也可以用更简洁的相对引用替代INDIRECT(ADDRESS(...))：

Sheets("GNPA").Range(TopCell, BottomCell).Formula = _
    "=IF('NPA-SUMMARY'!$A$1=""NPA AS ON ""&OFFSET(INDIRECT(ADDRESS(ROW(),COLUMN())),-1,0),'NPA-SUMMARY'!" & x & ","""")"

四、常见问题排查 #

• 确认变量x的地址格式与公式引用样式匹配（A1对应A1，R1C1对应R1C1）
• 检查工作表名是否准确，若工作表重命名，公式会返回#REF!错误
• 验证相对引用的有效性：R[-1]C或ROW()-1需确保当前单元格上方有数据，否则会返回#REF!

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