如何在VBA宏中用变量全局定义单元格位置？

方案一：全局常量+通用函数（最简洁高效） #

直接在标准模块顶部定义单元格地址的全局常量，再写一个通用函数获取对应单元格的值，所有宏都能直接调用，修改位置仅需改一处。

• 实现步骤：
  1. 在标准模块的最顶部（所有宏代码之前）定义全局常量：

     Public Const SUBJECT_CELL As String = "E3"
     

  2. 编写全局函数获取当前工作表的主题值：

     Public Function GetSheetSubject() As String
         GetSheetSubject = ActiveSheet.Range(SUBJECT_CELL).Value
     End Function
     

  3. 在任意宏中直接调用：

     Sub ProcessData()
         Dim sheetTopic As String
         sheetTopic = GetSheetSubject()
         ' 后续用sheetTopic处理逻辑即可
     End Sub
     

  优势：如果后续主题单元格从E3移到E67，只需要修改SUBJECT_CELL常量的值，所有调用GetSheetSubject()的宏都会自动读取新位置，完全不用逐个修改宏代码。

为什么不直接用全局变量？ #

全局变量需要每次切换工作表时重新赋值，很容易出现值不更新的问题（比如切换工作表后全局变量还是旧工作表的主题），而函数每次调用都会读取当前活动工作表的对应单元格，逻辑更可靠。

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