求助：VBA中如何结合列标与变量行数指定复制范围？

我来帮你搞定这个动态范围复制的问题！你现在的核心难点是没法直接把变量行数和列标识结合起来指定Range，其实有两种很可靠的方法可以解决，而且能让代码更规范。

先梳理下你的需求：要复制Sheet1里H2到I(N6数值+1)的区域，然后粘贴到其他位置（比如你代码里的V2开始的区域）。我们来修正你的代码，同时优化写法：

方法一：字符串拼接构建范围 #

这种方法最直观，把列标识和变量行号用&连接起来组成Range地址：

Sub Copycells()
    Dim wb As Workbook
    Dim wsSource As Worksheet
    Dim lastRow As Long
    
    Set wb = ThisWorkbook
    Set wsSource = wb.Sheets("Sheet1")
    
    ' 获取最后一行：N6的数值+1
    lastRow = wsSource.Cells(6, "N").Value + 1
    
    ' 复制H2:I[lastRow]到V2开始的区域（不用写结束行，Excel会自动匹配范围）
    wsSource.Range("H2:I" & lastRow).Copy wsSource.Range("V2")
End Sub

方法二：用Cells和Resize构建范围（更推荐） #

这种方法避免了字符串拼接，对VBA来说更安全，尤其是处理复杂范围的时候：

Sub Copycells()
    Dim wb As Workbook
    Dim wsSource As Worksheet
    Dim lastRow As Long
    Dim copyRange As Range
    
    Set wb = ThisWorkbook
    Set wsSource = wb.Sheets("Sheet1")
    
    lastRow = wsSource.Cells(6, "N").Value + 1
    
    ' 从H2开始，扩展到lastRow行，2列（H和I）
    Set copyRange = wsSource.Cells(2, "H").Resize(lastRow - 1, 2)
    
    ' 复制到V2开始的位置
    copyRange.Copy wsSource.Cells(2, "V")
End Sub

关键说明： #

• 我把wb1改名为wsSource是为了让代码更易读，你可以改回自己习惯的命名
• 复制目标只需要指定起始单元格（比如Range("V2")），Excel会自动根据复制源的大小匹配粘贴范围，不用手动写结束行，省掉很多麻烦
• 如果后续要复制到其他工作表，只需要把粘贴目标的Sheet引用换掉就行，比如wb.Sheets("目标工作表").Range("V2")

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