复制日期所在单元格那一列和AL列

您可以使用Excel中的复制功能来复制日期所在单元格那一列和AL列。具体步骤如下：

1. 选中日期所在单元格那一列和AL列；
2. 右键点击选中区域，选择“复制”或使用快捷键Ctrl+C；
3. 将复制的内容粘贴到您需要的位置，右键点击目标单元格，选择“粘贴”或使用快捷键Ctrl+V。

这样就可以将所选列复制到其他位置了。希望这能帮到您！

相关问题

复制范围不仅是今天日期那一列 是B列至今日日期所在的那一列

非常抱歉，之前理解有误。如果需要复制的是B列至今日日期所在的那一列，可以使用以下代码实现：

Sub PasteSpecial()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim today As Date
    
    '获取当前日期
    today = Date
    
    '指定工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    '获取今天日期所在的列号
    Dim todayCol As Long
    todayCol = ws.Cells.Find(What:=today, LookIn:=xlValues, LookAt:=xlWhole).Column
    
    '复制B列至今天日期所在的那一列
    ws.Range(ws.Cells(1, 2), ws.Cells(lastRow, todayCol)).Copy
    
    '粘贴到指定单元格
    ws.Range("D2:D" & lastRow).PasteSpecial xlPasteValues
    
    '清除剪贴板
    Application.CutCopyMode = False
    
    '弹出提示框
    MsgBox "粘贴成功！"
End Sub

在上述代码中，我们首先获取今天日期所在的列号，然后根据该列号和B列的列号来确定需要复制的范围。最后将其粘贴到指定单元格中，并弹出提示框说明粘贴成功。

同样，您可以将此代码复制到Excel的VBA编辑器中，然后将其关联到一个按钮上，这样就可以实现一键粘贴了。

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

如果你想复制的范围是包含当前日期的列再加一列，可以使用 `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`。最后，去掉筛选。