如何 在一个工作表中减去另外一个工作表制定的单元格

aellu

在一部分类  二部分类   设计分类  三个表中 合计  分别减去前面表的02 03 04 并填在 合计栏

减去.rar (31.97 KB, 下载次数: 1)

2018-9-9 11:00 上传

点击文件名下载附件

自己撸的不对啊

Sub 减去()
For Each sh In Worksheets
  For i = 4 To Range("B65536").End(xlUp).Row
      Select Case sh.Name
            Case Is = "一部分类"
                sh.Select
                With sh
                If Cells(i, 2) = "总计" Then
                .Cells(i, 5) = .Cells(i, 5) - [一部!O2]
                .Cells(i, 6) = .Cells(i, 6) - [一部!O3]
                .Cells(i, 7) = .Cells(i, 7) - [一部!O4]
                End If
                End With
            Case Is = "二部分类"
                sh.Select
                With sh
                If Cells(i, 2) = "总计" Then
                .Cells(i, 5) = .Cells(i, 5) - [二部!O2]
                .Cells(i, 6) = .Cells(i, 6) - [二部!O3]
                .Cells(i, 7) = .Cells(i, 7) - [二部!O4]
                End If
                End With
            Case Is = "设计分类"
                sh.Select
                With sh
                If Cells(i, 2) = "总计" Then
                .Cells(i, 5) = .Cells(i, 5) - [设计!O2]
                .Cells(i, 6) = .Cells(i, 6) - [设计!O3]
                .Cells(i, 7) = .Cells(i, 7) - [设计!O4]
                End If
                End With
    End Select
    Next
Next
End Sub


求帮助，谢谢啦

abc123281

Sub 减去()
For Each sh In Worksheets
  Select Case sh.Name
     Case Is = "一部分类"
        With sh
        For i = 4 To .Range("B65536").End(xlUp).Row
        If Cells(i, 2) = "合计" Then
          .Cells(i, 5) = .Cells(i, 5) - [一部!O2]
          .Cells(i, 6) = .Cells(i, 6) - [一部!O3]
          .Cells(i, 7) = .Cells(i, 7) - [一部!O4]
        End If
        Next
        End With
     Case Is = "二部分类"

abc123281

下面的自己修改一下   注意：是合计   而不是总计