Vba，excel有很多个工作表，每个工作表D5可能相同可能不同，选择D5均为"COVAR“的工作表另存为一个名为“COVAR"的PDF

可以使用VBA编写一个宏来实现这个功能。下面是一个示例代码：

Sub ExportCOVARWorksheetsToPDF()

    ' 定义变量
    Dim ws As Worksheet
    Dim fileName As String
    
    ' 循环遍历每个工作表
    For Each ws In ThisWorkbook.Worksheets
        
        ' 如果D5单元格的值为"COVAR"，则将此工作表另存为PDF
        If ws.Range("D5").Value = "COVAR" Then
            
            ' 创建文件名
            fileName = ThisWorkbook.Path & "\" & ws.Name & ".pdf"
            
            ' 另存为PDF
            ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileName
            
        End If
        
    Next ws

End Sub

将此代码复制粘贴到Excel的VBA编辑器中，然后运行此宏即可。宏将遍历所有工作表，如果D5单元格的值为"COVAR"，则将此工作表另存为PDF，并将其保存在与Excel文件相同的目录中，文件名将为工作表名称加上".pdf"的后缀。