要按单元格值筛选数据模型数据透视表，可以使用VBA代码来实现。以下是一个示例代码：

Sub FilterPivotTableByCellValue()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pf As PivotField
    Dim pi As PivotItem
    Dim filterValue As String
    
    ' 设置要筛选的单元格的值
    filterValue = Sheet1.Range("A1").Value
    
    ' 指定要筛选的透视表工作表和透视表
    Set ws = ThisWorkbook.Worksheets("透视表")
    Set pt = ws.PivotTables("数据透视表")
    
    ' 指定要筛选的透视表字段
    Set pf = pt.PivotFields("字段名")
    
    ' 清除所有筛选
    pf.ClearAllFilters
    
    ' 遍历透视表字段的所有项，并根据单元格值筛选
    For Each pi In pf.PivotItems
        If pi.Value <> filterValue Then
            pi.Visible = False
        End If
    Next pi
End Sub

在上面的代码中，你需要将以下部分进行相应的修改：

• 将Sheet1修改为包含筛选值的单元格所在的工作表。
• 将A1修改为包含筛选值的单元格的位置。
• 将透视表修改为包含数据透视表的工作表名称。
• 将数据透视表修改为你要筛选的数据透视表的名称。
• 将字段名修改为你要筛选的透视表字段的名称。

通过运行上述代码，它将根据指定的单元格值筛选透视表字段的项，并隐藏不符合条件的项。