VBA中如何指定复制范围而非使用.EntireRow方法？

很简单！你现在的代码是复制整行，要指定特定范围的话，只需要把EntireRow替换成你需要的具体单元格区域就行，我给你几个常用场景的代码示例：

1. 固定连续列范围复制 #

比如你想复制第i行的C列到E列，两种写法都可以：

' 写法1：直接用地址字符串
Sheets("MasterSheet").Range("C" & i & ":E" & i).Copy

' 写法2：用Cells对象定位（更灵活，适合变量列号）
Sheets("MasterSheet").Range(Sheets("MasterSheet").Cells(i, "C"), Sheets("MasterSheet").Cells(i, "E")).Copy

2. 从指定列到行尾的动态范围 #

如果要复制从C列开始到该行最后一个有数据的列，可以用End(xlToRight)动态定位，推荐用With语句简化代码：

With Sheets("MasterSheet")
    .Range(.Cells(i, "C"), .Cells(i, .Cells(i, Columns.Count).End(xlToLeft).Column)).Copy
End With

3. 非连续列范围复制 #

要是需要复制不连续的列（比如C列和E列），直接用逗号分隔范围即可：

Sheets("MasterSheet").Range("C" & i & ",E" & i).Copy

小提示：粘贴的时候要确保目标区域的大小和复制的范围匹配，避免出现粘贴区域不兼容的错误哦~

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