VBa筛选某个条件实现一键分摊

在 VBA 中，可以使用 `AutoFilter` 方法来筛选某个条件，然后对筛选结果进行计算和分摊。以下是一个示例代码：

Sub 分摊费用()
    Dim totalAmount As Double
    Dim departments(1 To 4) As String
    Dim ratios(1 To 4) As Double
    Dim amounts(1 To 4) As Double
    Dim i As Integer
    
    ' 设置总金额和部门信息
    totalAmount = 1000
    departments(1) = "A"
    departments(2) = "B"
    departments(3) = "C"
    departments(4) = "D"
    
    ' 设置分摊比例
    ratios(1) = 0.3
    ratios(2) = 0.2
    ratios(3) = 0.15
    ratios(4) = 0.35
    
    ' 筛选部门信息
    Range("A1:C5").AutoFilter Field:=1, Criteria1:="A"
    
    ' 计算分摊金额
    For i = 1 To 4
        amounts(i) = totalAmount * ratios(i)
    Next i
    
    ' 输出分摊金额
    For i = 1 To 4
        Range("C" & i + 1).Value = amounts(i)
    Next i
    
    ' 清除筛选
    Range("A1:C5").AutoFilter
End Sub

在这个示例代码中，我们假设总金额为 1000 元，部门信息存储在 `departments` 数组中，分摊比例存储在 `ratios` 数组中。首先使用 `AutoFilter` 方法筛选部门信息为 A 的记录，然后计算分摊金额并输出到表格中。最后使用 `AutoFilter` 方法清除筛选结果。

当你运行这个宏时，会自动筛选部门信息为 A 的记录，并计算分摊金额并输出到表格中。这样就实现了一键分摊。你可以根据需要修改部门信息、分摊比例和筛选条件。