求VBA批量添加和删除尾行合计代码;

ruhong18

求VBA批量添加和删除所有工作表有内容的尾行合计代码;

hfwufanhf2006

代码放在第一个表中，且第一个表不能移动位置：
1、添加合计

For i = 2 To Worksheets.Count
    If Worksheets(i).Cells(Worksheets(i).[a10000].End(3).Row, 1) <> "合计" Then
       Worksheets(i).Cells(Worksheets(i).[a10000].End(3).Row + 1, 1) = "合计"
       Worksheets(i).Cells(Worksheets(i).[a10000].End(3).Row, 5) = "=sum(e2:e" & Worksheets(i).[a10000].End(3).Row - 1 & ")"
       Worksheets(i).Cells(Worksheets(i).[a10000].End(3).Row, 6) = "=sum(f2:f" & Worksheets(i).[a10000].End(3).Row - 1 & ")"
       Worksheets(i).Cells(Worksheets(i).[a10000].End(3).Row, 7) = Worksheets(i).Cells(Worksheets(i).[a10000].End(3).Row, 6) - Worksheets(i).Cells(Worksheets(i).[a10000].End(3).Row, 5)
       If Worksheets(i).Cells(Worksheets(i).[a10000].End(3).Row, 5) <> 0 Then
          Worksheets(i).Cells(Worksheets(i).[a10000].End(3).Row, 8) = Worksheets(i).Cells(Worksheets(i).[a10000].End(3).Row, 7) / Worksheets(i).Cells(Worksheets(i).[a10000].End(3).Row, 5)
       Else
          Worksheets(i).Cells(Worksheets(i).[a10000].End(3).Row, 8) = 0
       End If
     End If
Next i

2、删除合计
    For i = 2 To Worksheets.Count
         If Worksheets(i).Cells(Worksheets(i).[a10000].End(3).Row, 1) = "合计" Then
            Worksheets(i).Rows(Worksheets(i).[a10000].End(3).Row).Delete
         End If
    Next i


e、f 列汇总是sum函数，g、h列的公式是按照第一个表的公式套过来的；

ruhong18

hfwufanhf2006 发表于 2019-12-22 09:03
代码放在第一个表中，且第一个表不能移动位置：
1、添加合计

谢谢，可以了~