一、实现功能：
'通过VBA实现表格内表头的筛选，同时实现部分单元格内数据的更改，同时将更改好的信息保存到另外一个工作薄
'实现逻辑与步骤：
'（1）打开目标工作表;
'（2）对工作表内容进行筛选和更改;
'（3）将筛选好的内容进行复制到新工作薄同时进行保存和关闭.

二、案例展示：

三、代码部分：

Sub text()
'实现表格内表头的筛选 同时实现部分单元格内数据的更改，同时将更改好的信息进行保存到另外一个工作薄
'实现逻辑与步骤：
'（1）打开目标工作表，创建新的工作薄
'（2）对工作表内容进行筛选和更改
'（3）将筛选好的内容进行复制到新工作薄同时进行保存和关闭
    Dim a As Integer
    Dim sh As Worksheet
    For Each sh In Sheets
        sh.Select
        For i = 100 To 2 Step -1
            If sh.Range("F" & i) = "男" Then
                sh.Range("F" & i) = "先生"
            ElseIf sh.Range("F" & i) = "女" Then
                   sh.Range("F" & i) = "女士"
            End If
            
            If sh.Range("B" & i) = "" Then
               sh.Range("B" & i).Select
               Selection.EntireRow.Delete
            End If
            If sh.Range("C" & i) = "" Then
               sh.Range("C" & i).Select
               Selection.EntireRow.Delete
            End If
        Next
        '复制筛选出来的表格数据
        sh.Copy
        '将复制好的数据保存新工作薄且保存到指定位置
        ActiveWorkbook.SaveAs Filename:="D:\桌面\SF\数据源\测试\" & sh.Name & ".XLSX"
        ActiveWorkbook.Close
      Next
End Sub

四、结果呈现：