如果复制的范围是单元格包含当前日期的列再加一列

如果你想复制的范围是包含当前日期的列再加一列，可以使用 `Range` 对象的 `AutoFilter` 方法来筛选出包含当前日期的行。然后，可以使用 `Resize` 方法将筛选后的范围扩展到包含原始范围中的两列。最后，可以将这个扩展后的范围复制到目标区域。

以下是一个示例代码，演示对包含当前日期的列再加一列进行复制：

Sub CopyRange()
    Dim ws As Worksheet
    Dim copyRange As Range, targetRange As Range
    Dim currentDate As Date, filterRange As Range, filteredRange As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") '指定工作表
    
    '指定要复制的范围，这里假设包含当前日期的列为第二列
    Set copyRange = ws.Range("B1:C10")
    
    '获取当前日期
    currentDate = Date
    
    '使用 AutoFilter 方法筛选出包含当前日期的行
    Set filterRange = copyRange.Resize(, 1) '筛选范围为包含当前日期的列
    filterRange.AutoFilter Field:=1, Criteria1:="=" & currentDate '筛选出包含当前日期的行
    Set filteredRange = filterRange.Offset(1).Resize(filterRange.Rows.Count - 1).SpecialCells(xlCellTypeVisible) '去掉标题行，并获取筛选后的范围
    
    '将筛选后的范围扩展到包含原始范围中的两列
    Set filteredRange = filteredRange.Resize(filteredRange.Rows.Count, copyRange.Columns.Count)
    
    '指定要复制到的目标区域
    Set targetRange = ws.Range("E1:F10")
    
    '复制范围到目标区域
    filteredRange.Copy targetRange
    
    '去掉筛选
    filterRange.AutoFilter
    
End Sub

在上面的代码中，首先指定了要复制的范围 `copyRange`。然后，使用 `Date` 函数获取当前日期，并使用 `AutoFilter` 方法筛选出包含当前日期的行。筛选后，使用 `Resize` 方法将筛选后的范围扩展到包含原始范围中的两列，并将其复制到目标区域 `targetRange`。最后，去掉筛选。