1、excel中删除清空打印数据表中的内容，不包括标题栏（标题栏有1行） 2、根据K1单元格中的内容，筛选出数据源表中符合K1单元格内容的数据 3、将数据复制粘贴到打印数据表中的vba代码

1、以下是VBA代码实现在Excel中删除清空打印数据表中的内容，不包括标题栏（标题栏有1行）：

Sub ClearPrintData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("打印数据表")
    ws.Range("A2:Z" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row).ClearContents
End Sub

2、以下是VBA代码实现根据K1单元格中的内容，筛选出数据源表中符合K1单元格内容的数据：

Sub FilterData()
    Dim ws As Worksheet
    Dim filterValue As String
    Set ws = ThisWorkbook.Sheets("数据源表")
    filterValue = ThisWorkbook.Sheets("打印数据表").Range("K1").Value
    ws.Range("A1:Z" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row).AutoFilter Field:=1, Criteria1:=filterValue
End Sub

3、以下是VBA代码实现将数据复制粘贴到打印数据表中：

Sub CopyData()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Set wsSource = ThisWorkbook.Sheets("数据源表")
    Set wsDest = ThisWorkbook.Sheets("打印数据表")
    wsSource.Range("A1:Z" & wsSource.Range("A" & wsSource.Rows.Count).End(xlUp).Row).Copy wsDest.Range("A2")
End Sub