首先直接说结论：VBA里没法把单个整数变量f直接赋值为4 to 9这种范围——to关键字是用来给循环（比如For...Next）定义迭代区间的，不能直接用来给变量赋值。不过完全有更简洁的方式实现你的需求，下面一步步拆解：

一、核心需求的直接实现方案 #

你的核心逻辑是：遍历所有列，先判断列号i是否在4-9之间，再检查该列第1行的表头是否是"Voltage"、"Power"、"Time"之一，然后调用子程序。这里先修正你代码里的两个小问题，再给出完整示例：

1. 修正判断逻辑 #

你原来的表头判断条件sht.Cells(1,f).Value = "Voltage" And sht.Cells(1,f).Value= "Power" and sht.Cells(1,f).Value= "Time"是错误的——一个单元格不可能同时等于三个不同的值，应该用Or来判断是否是其中某一个，或者如果你需要同时找到这三个列再调用子程序，那逻辑要调整。

2. 完整代码示例 #

Sub ProcessColumns()
    Dim sht As Worksheet
    Dim LastColumn As Integer
    Dim i As Integer
    Dim targetHeaders As Variant
    ' 定义目标表头数组
    targetHeaders = Array("Voltage", "Power", "Time")
    
    Set sht = ThisWorkbook.ActiveSheet ' 或者指定具体工作表，比如Sheets("Data")
    LastColumn = sht.Cells(1, sht.Columns.Count).End(xlToLeft).Column
    
    ' 遍历所有列
    For i = 1 To LastColumn
        ' 先判断i是否在4-9范围内
        If i >= 4 And i <= 9 Then
            ' 检查当前列第1行是否是目标表头之一
            If IsError(Application.Match(sht.Cells(1, i).Value, targetHeaders, 0)) = False Then
                ' 调用私有子程序，这里可以把列号i传进去作为参数
                Call voltagepowertime(i)
            End If
        End If
    Next i
End Sub

' 示例私有子程序，接收列号参数
Private Sub voltagepowertime(targetCol As Integer)
    ' 这里写你的数据透视表创建逻辑，比如基于targetCol列的数据
    Debug.Print "处理表头所在列：" & targetCol
End Sub

二、更高效的替代方案 #

如果你的目标只是处理4-9列里的目标表头，没必要遍历所有列，下面几个方案更高效：

1. 直接遍历4-9列 #

跳过其他列，只循环目标范围，减少迭代次数：

Sub DirectLoopTargetRange()
    Dim sht As Worksheet
    Dim i As Integer
    Dim targetHeaders As Variant
    
    targetHeaders = Array("Voltage", "Power", "Time")
    Set sht = ThisWorkbook.ActiveSheet
    
    ' 直接循环4到9列
    For i = 4 To 9
        If IsError(Application.Match(sht.Cells(1, i).Value, targetHeaders, 0)) = False Then
            Call voltagepowertime(i)
        End If
    Next i
End Sub

2. 用Find方法定位目标表头 #

如果表头位置不确定，但你需要确认它们是否在4-9列内，可以用Range.Find快速定位：

Sub UseFindMethod()
    Dim sht As Worksheet
    Dim targetHeaders As Variant
    Dim header As Variant
    Dim foundCell As Range
    
    targetHeaders = Array("Voltage", "Power", "Time")
    Set sht = ThisWorkbook.ActiveSheet
    
    For Each header In targetHeaders
        Set foundCell = sht.Rows(1).Find(What:=header, LookIn:=xlValues, LookAt:=xlWhole)
        ' 检查找到的单元格是否在4-9列之间
        If Not foundCell Is Nothing And foundCell.Column >=4 And foundCell.Column <=9 Then
            Call voltagepowertime(foundCell.Column)
        End If
    Next header
End Sub

3. 用数组存储目标列范围 #

如果你需要复用4-9这个范围，可以把它存成一个数组，然后遍历数组里的列号：

Sub UseColumnArray()
    Dim sht As Worksheet
    Dim targetCols As Variant
    Dim col As Variant
    Dim targetHeaders As Variant
    
    targetCols = Array(4,5,6,7,8,9) ' 定义目标列数组
    targetHeaders = Array("Voltage", "Power", "Time")
    Set sht = ThisWorkbook.ActiveSheet
    
    For Each col In targetCols
        If IsError(Application.Match(sht.Cells(1, col).Value, targetHeaders, 0)) = False Then
            Call voltagepowertime(col)
        End If
    Next col
End Sub

三、补充说明 #

• 如果你需要的是同时找到Voltage、Power、Time这三个列都在4-9范围内才调用子程序，那逻辑要调整：先收集这三个列的位置，再判断它们是否都在4-9之间，再调用。
• 注意LastColumn的获取方式，用sht.Cells(1, sht.Columns.Count).End(xlToLeft).Column比用UsedRange更可靠，避免空列干扰。

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