求大神帮忙看看这段代码要怎么修改才能正常运行

Kllies

有一份数据，D列是数值，E列是空值，F列中有些行中有值为a。我想实现当F列某一行值为a时，则在E列该行及上下两行中输入公式将D列的数值进行平均。比如F13值为a,则在E列E11:E15中的填入D列的平均值，E11=sum(D9:D13)/5，E12=sum(D10:D14)/5，E13=sum(D11:D15)/5，E14=sum(D12:D16)/5，E15=sum(D13:D17)/5

Kllies

Sub AutoFillAverage()  
    Dim lastRow As Long  
    Dim lastCol As Long  
    Dim i As Long  
    Dim F As Range  
    Dim E As Range  
      
    ' 设置 F 列和 E 列的范围  
    Set F = Range("F1:F" & Range("F" & Rows.Count).End(xlUp).Row)  
    Set E = Range("E1:E" & Range("E" & Rows.Count).End(xlUp).Row)  
      
    ' 检查 F 列中是否有值为 "a" 的行  
    For i = 1 To UBound(F)  
        If F(i, 1) = "a" Then  
            ' 在 E 列中查找第一个大于 0 的单元格  
            For j = 1 To E.Cells(1, 1).End(xlUp).Row  
                If E(j, 1) > 0 Then  
                    ' 更新 E(j+1, 1) 和 E(j+2, 1) 的值  
                    E(j+1, 1) = E(j, 1)  
                    E(j+2, 1) = E(j, 1)  
                    ' 将 E(j+1, 1) 到 E(j+2, 1) 之间的单元格公式设置为 SUM(R[-2]C[-1]:R[2]C[-1])/5  
                    E(j+1, 2) = "=SUM(R[-2]C[-1]:R[2]C[-1])/5"  
                    ' 更新 E(j+3, 1) 的值  
                    E(j+3, 1) = Application.Average(Range("D1:D" & LastRow))  
                End If  
            Next j  
        End If  
    Next i  
      
    ' 更新整个表格的 E 列  
    E.EntireColumn.AutoFill Destination:=E.Offset(1, 0), Type:=xlFillDefault  
      
    ' 隐藏公式  
    Application.DisplayFormulas = False  
End Sub  

ovxyz

这样的话，abc列的数据干嘛用的？

Kllies

ovxyz 发表于 2023-5-17 14:24
这样的话，abc列的数据干嘛用的？

a列是序号bc列是一个是x坐标一个是y坐标

Kllies

ovxyz 发表于 2023-5-17 14:24
这样的话，abc列的数据干嘛用的？

Sub AutoFillAverage()  
    Dim lastRow As Long  
    Dim lastCol As Long  
    Dim i As Long  
    Dim F As Range  
    Dim E As Range  
      
    ' 设置 F 列和 E 列的范围  
    Set F = Range("F1:F" & Range("F" & Rows.Count).End(xlUp).Row)  
    Set E = Range("E1:E" & Range("E" & Rows.Count).End(xlUp).Row)  
      
    ' 检查 F 列中是否有值为 "a" 的行  
    For i = 1 To UBound(F)  
        If F(i, 1) = "a" Then  
            ' 在 E 列中查找第一个大于 0 的单元格  
            For j = 1 To E.Cells(1, 1).End(xlUp).Row  
                If E(j, 1) > 0 Then  
                    ' 更新 E(j+1, 1) 和 E(j+2, 1) 的值  
                    E(j+1, 1) = E(j, 1)  
                    E(j+2, 1) = E(j, 1)  
                    ' 将 E(j+1, 1) 到 E(j+2, 1) 之间的单元格公式设置为 SUM(R[-2]C[-1]:R[2]C[-1])/5  
                    E(j+1, 2) = "=SUM(R[-2]C[-1]:R[2]C[-1])/5"  
                    ' 更新 E(j+3, 1) 的值  
                    E(j+3, 1) = Application.Average(Range("D1:D" & LastRow))  
                End If  
            Next j  
        End If  
    Next i  
      
    ' 更新整个表格的 E 列  
    E.EntireColumn.AutoFill Destination:=E.Offset(1, 0), Type:=xlFillDefault  
      
    ' 隐藏公式  
    Application.DisplayFormulas = False  
End Sub  

sdytsxd991122

参与一下

ovxyz

边缘码农

指定数据平均.rar (19.19 KB, 下载次数: 2)

2023-5-17 14:50 上传

点击文件名下载附件

Kllies

sdytsxd991122 发表于 2023-5-17 14:41
参与一下

可以了，谢谢