VBA使用For循环选中多列特定行、复制对应分段公式问题求助

核心错误原因 #

• 动态区域拼接语法错误：原代码中Range("T" & i : "CV" & i)的写法不符合VBA语法规范，正确的拼接方式是用&连接所有字符串部分，即Range("T" & i & ":CV" & i)
• 冗余的Select/Copy/Paste操作：这类操作会大幅降低代码运行效率，且容易出现屏幕闪烁问题，完全可以通过直接赋值公式的方式替代

优化后可直接运行的代码 #

Sub mastersheet()
    Dim i As Integer
    Dim templateRow As Integer ' 匹配到对应分段后对应的模板行号
    ' 直接指定工作表，不需要选中
    With Sheets("Master")
        For i = 13 To 400
            ' 根据O列的值匹配对应的模板行，A对应1，B对应2...以此类推
            Select Case UCase(.Range("O" & i).Value)
                Case "A": templateRow = 1
                Case "B": templateRow = 2
                Case "C": templateRow = 3
                Case "D": templateRow = 4
                Case "E": templateRow = 5
                Case "F": templateRow = 6
                Case "G": templateRow = 7
                Case "H": templateRow = 8
                Case "I": templateRow = 9
                Case Else: GoTo NextRow ' 不匹配的行直接跳过
            End Select
            ' 直接赋值P列公式，不需要复制粘贴
            .Range("P" & i).Formula = .Range("P" & templateRow).Formula
            ' 直接赋值T到CV列的公式，隐藏列不影响该操作
            .Range("T" & i & ":CV" & i).Formula = .Range("T" & templateRow & ":CV" & templateRow).Formula
NextRow:
        Next i
    End With
End Sub

补充说明 #

• 代码中用Select Case替代了多层ElseIf，可读性更高，后续需要新增分段也更容易修改
• 所有操作都通过With语句绑定Master工作表，不需要频繁切换选中状态，运行更稳定
• 如果原来的复制粘贴需要保留单元格格式，可以把赋值公式的代码换成带格式的复制写法：

  .Range("P" & templateRow).Copy Destination:=.Range("P" & i)
  .Range("T" & templateRow & ":CV" & templateRow).Copy Destination:=.Range("T" & i & ":CV" & i)
  

• 隐藏列确实不会影响区域复制/赋值的结果，不需要额外处理

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