VBA语法求助：如何用声明变量指定自定义范围完成复制粘贴

你的代码问题出在复制区域的语法上，具体修正和优化如下：

错误原因 #

Range(BM & i ":" BM & i + 10) 存在两个核心问题：

1. 字符串拼接时缺少&连接符，":"前后都需要用&和变量完成拼接
2. BM是数字类型的列号，直接和行号拼接无法生成有效的A1样式单元格地址，需要通过Cells或地址转换来生成合法引用

修正后的代码 #

Dim M As Long  '...Prior Mat'l Column
Dim BM As Long '...BID Mat'l Column
Dim i As Long
Dim c As Range '...Range to search in
Dim rng As Range: Set rng = Sheets("BID").Range("B8:L9")
Dim findResult As Range ' 接收Find结果，防止找不到内容报错
    
'...Find Prior Mat'l Column
For Each c In Sheets("BID").Rows("8").Cells ' 明确指定工作表，避免歧义
    If c.Value = "Prior" And Sheets("BID").Cells(9, c.Column).Value = "Lumber" Then
        M = c.Column
    End If
Next c

' 先判断是否找到目标列，避免运行时错误
Set findResult = rng.Find(What:="Mat'l", LookAt:=xlPart, MatchCase:=False)
If Not findResult Is Nothing Then
    BM = findResult.Column
    
    For i = 11 To 749 Step 82
        ' 方法1：用Cells指定区域，语法更直观
        Sheets("BID").Range(Sheets("BID").Cells(i, BM), Sheets("BID").Cells(i + 10, BM)).Copy
        Sheets("BID").Cells(i, M).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        
        ' 方法2：直接赋值，比复制粘贴高效（推荐使用）
        ' Sheets("BID").Cells(i, M).Resize(11, 1).Value = Sheets("BID").Cells(i, BM).Resize(11, 1).Value
    Next i
Else
    MsgBox "未找到Mat'l列"
End If

实用技巧 #

• 明确工作表对象：所有Cells、Range操作都指定具体工作表（比如Sheets("BID")），避免当前工作表切换导致的引用错误
• 替代复制粘贴：直接通过目标区域.Value = 源区域.Value赋值，比复制粘贴速度更快，还能避免占用剪贴板
• 处理Find空结果：Find找不到内容时会返回Nothing，直接读取Column会触发运行时错误，必须先判断是否找到
• 优化变量命名：可以给变量起更具语义的名字，比如priorLumberCol代替M，bidMatCol代替BM，后期维护更清晰

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