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

以下是详细解释各行代码：

1、删除清空打印数据表中的内容，不包括标题栏（标题栏有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

- `Sub ClearPrintData()`：声明一个子过程名称为 ClearPrintData。
- `Dim ws As Worksheet`：声明一个名为 ws 的工作表变量。
- `Set ws = ThisWorkbook.Sheets("打印数据表")`：将打印数据表的工作表对象赋值给 ws 变量。
- `ws.Range("A2:Z" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row).ClearContents`：选择打印数据表中 A2 到最后一行的 Z 列范围，并清空这个范围内的所有内容，不包括标题栏。

2、根据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:=3, Criteria1:=filterValue
End Sub

- `Sub FilterData()`：声明一个子过程名称为 FilterData。
- `Dim ws As Worksheet`：声明一个名为 ws 的工作表变量。
- `Dim filterValue As String`：声明一个名为 filterValue 的字符串变量。
- `Set ws = ThisWorkbook.Sheets("数据源表")`：将数据源表的工作表对象赋值给 ws 变量。
- `filterValue = ThisWorkbook.Sheets("打印数据表").Range("K1").Value`：将打印数据表中 K1 单元格的值赋值给 filterValue 变量。
- `ws.Range("A1:Z" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row).AutoFilter Field:=3, Criteria1:=filterValue`：在数据源表中，根据第三列（即圈舍号字段）筛选出与 filterValue 变量相等的数据，并自动添加筛选器。

3、将数据复制粘贴到打印数据表中：

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

- `Sub CopyData()`：声明一个子过程名称为 CopyData。
- `Dim wsSource As Worksheet`：声明一个名为 wsSource 的工作表变量。
- `Dim wsDest As Worksheet`：声明一个名为 wsDest 的工作表变量。
- `Set wsSource = ThisWorkbook.Sheets("数据源表")`：将数据源表的工作表对象赋值给 wsSource 变量。
- `Set wsDest = ThisWorkbook.Sheets("打印数据表")`：将打印数据表的工作表对象赋值给 wsDest 变量。
- `wsSource.Range("A1:Z" & wsSource.Range("A" & wsSource.Rows.Count).End(xlUp).Row).Copy wsDest.Range("A2")`：在数据源表中选择 A1 到最后一行的 Z 列范围，并将其复制到打印数据表的 A2 单元格中。