VBa实现自动分摊

在 VBA 中，可以使用循环语句和条件语句来实现自动分摊。以下是一个示例代码：

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
    
    ' 计算分摊金额
    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
End Sub

在这个示例代码中，我们假设总金额为 1000 元，部门信息存储在 `departments` 数组中，分摊比例存储在 `ratios` 数组中。`amounts` 数组用于存储计算得到的分摊金额。然后使用循环语句计算分摊金额，并使用 `Range` 对象输出到 Excel 表格中。需要注意的是，`Range` 对象的第一个参数是单元格的编号，例如第一行第一列的单元格为 A1，第二行第一列的单元格为 A2。

当你运行这个宏时，会自动计算分摊金额并输出到表格中。这样就实现了自动分摊。