使用VBA实现一键粘贴，粘贴的范围行范围固定，列范围一列固定，一列自动粘贴单元格包含今日日期的一列

您好，使用VBA实现一键粘贴，粘贴的范围行范围固定，列范围一列固定，一列自动粘贴单元格包含今日日期的一列的代码如下：

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

在上述代码中，我们首先定义了一个变量ws，用于指定工作表。然后获取当前日期，并使用Find方法找到包含当前日期的那一列，并将其整列复制。最后将其粘贴到指定单元格中，并弹出提示框说明粘贴成功。

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