VBA中CurrentRegion函数复制范围问题：如何仅复制起始区域右侧数据？

问题1：CurrentRegion选中时会复制从左到右的所有内容吗？ #

是的，CurrentRegion的作用是选中包含起始单元格的连续数据区域——这个区域会向上下左右延伸，直到遇到空行/空列才停止，所以会包含起始单元格左侧、右侧、上方、下方的所有连续非空数据，这就是你的代码会复制冗余内容的原因。

问题2：如何仅复制起始区域右侧（F列及右侧）的数据？ #

你可以通过截取CurrentRegion中从F列开始的部分来实现，以下是几种可行的代码写法：

方法1：直接定位目标范围（直观易懂） #

先获取CurrentRegion的边界，再从F1延伸到该区域的右下角：

Dim lastRow As Long, lastCol As Long
' 获取CurrentRegion的最后一行和最后一列
With ActiveSheet.Range("F1").CurrentRegion
    lastRow = .Row + .Rows.Count - 1
    lastCol = .Column + .Columns.Count - 1
End With
' 复制F1到(lastRow, lastCol)的范围
ActiveSheet.Range("F1", Cells(lastRow, lastCol)).Copy wb.Worksheets(1).Range("A1")

方法2：通过Columns截取区域（代码更简洁） #

利用Columns属性直接选取F列及右侧的部分：

With ActiveSheet.Range("F1").CurrentRegion
    ' 计算F列相对于CurrentRegion起始列的位置，再选取到最后一列
    .Columns(Range("F1").Column - .Column + 1 To .Columns.Count).Copy wb.Worksheets(1).Range("A1")
End With

方法3：Offset + Resize 调整范围 #

通过偏移和调整大小来截取目标区域：

Dim sourceArea As Range
Set sourceArea = ActiveSheet.Range("F1").CurrentRegion
' 偏移到F列位置，再调整列数为剩余列数
sourceArea.Offset(0, Range("F1").Column - sourceArea.Column) _
          .Resize(sourceArea.Rows.Count, sourceArea.Columns.Count - (Range("F1").Column - sourceArea.Column)) _
          .Copy wb.Worksheets(1).Range("A1")

以上三种方法都能精准复制F列及右侧的有效数据，避免左侧冗余内容被复制。

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