用vba宏对excel中每一列非零的数值的和进行重新分配回每一个单元格中的方法

要使用VBA宏对Excel中每一列非零数值的和进行重新分配回每一个单元格，可以通过编写一个宏来实现。这个过程基本上包括以下步骤：

1. 遍历工作表中的每一列。
2. 在每一列中，查找所有非零数值，并将这些数值相加得到该列的和。
3. 将得到的和平均分配到该列中的每一个非零单元格中。

以下是一个简单的VBA宏示例，用于执行上述功能：

Sub DistributeSumToCells()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 使用当前活动工作表

    Dim rng As Range
    Dim col As Range
    Dim sumNonZero As Double
    Dim cellCount As Integer
    Dim row As Range
    Dim i As Long

    ' 遍历每一列
    For Each col In ws.UsedRange.Columns
        ' 初始化总和和单元格计数
        sumNonZero = 0
        cellCount = 0
        
        ' 遍历该列的每一个单元格
        For Each cell In col.Cells
            ' 检查单元格是否非零且不是空的
            If cell.Value <> 0 And Not IsEmpty(cell.Value) Then
                sumNonZero = sumNonZero + cell.Value
                cellCount = cellCount + 1
            End If
        Next cell

        ' 如果列中有非零数值，则重新分配
        If cellCount > 0 Then
            sumNonZero = sumNonZero / cellCount ' 计算平均值

            ' 将平均值重新分配给每一个非零单元格
            For i = 1 To col.Cells.Count
                Set rng = col.Cells(i)
                If rng.Value <> 0 And Not IsEmpty(rng.Value) Then
                    rng.Value = sumNonZero
                End If
            Next i
        End If
    Next col
End Sub

这个宏将会对当前活动工作表的每一列进行处理，找到非零数值，计算它们的总和，并将这个总和平均分配给每个非零单元格。