Excel VBA 修改教程：Q列有数据时调用Summary表H4值填充对应T列

修改后的VBA代码 #

你只需要把T列赋值语句里的固定字符串替换为Summary工作表H4单元格的引用即可，触发逻辑完全保留原有写法，调整后代码如下：

If Cells(i, 17).Value <> "" Then
    .Range("T" & i).Value = Worksheets("Summary").Range("H4").Value
    .Range("S" & i).Value = "0"
End If

说明 #

• 这里用Worksheets("Summary").Range("H4").Value明确指定读取Summary工作表的H4单元格内容，不会受你当前代码所处的工作表上下文（也就是外层的With块）影响，取值更稳定。
• 该写法是直接把H4的静态值写入目标单元格，后续Summary表H4内容修改不会联动更新已经写入的T列内容，符合你要求的「写入内容」的需求。

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