如何通过VBA依据单元格指定列字母批量替换所有工作表整列内容？

直接修改代码，从指定单元格读取列字母并动态应用到所有工作表的整列查找替换，完整代码如下：

Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant
Dim targetCol As String

' 直接读取参数，避免使用Select
fnd = Sheets("Sheet1").Range("B1").Value
rplc = Sheets("Sheet1").Range("B2").Value
targetCol = Sheets("Sheet1").Range("B5").Value

' 检查目标列字母是否为空
If targetCol = "" Then
    MsgBox "Sheet1的B5单元格未填写目标列字母！"
    Exit Sub
End If

' 遍历所有工作表执行替换
For Each sht In ActiveWorkbook.Worksheets
    sht.Columns(targetCol).Replace What:=fnd, Replacement:=rplc, _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
        SearchFormat:=False, ReplaceFormat:=False
Next sht

关键修改点说明： #

• 去掉Sheets("Sheet1").Select，直接通过工作表名称引用单元格，避免激活工作表带来的性能问题和潜在错误。
• 新增targetCol变量存储Sheet1 B5的列字母，VBA的Columns对象支持直接传入列字母（比如Columns("I")等价于Columns("I:I")），直接用它定位整列。
• 增加空值检查，防止因B5未填写内容导致代码报错。
• 补充循环结束的Next sht，修复原代码的语法错误。

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