Excel 过滤选择数据后，某个Cell显示其值，并自定义合计的VBA.

Private Sub Worksheet_Calculate()
 iFindFirstRow = 0
 For iRows = 1 To 65536
 If Rows(iRows).Hidden = False And iRows <> 1 Then
 iFindFirstRow = iRows
 Exit For
 End If
 Next iRows
 Sheet2.Cells(3, "C").Value = Sheet1.Cells(iFindFirstRow, 2).Value
 
  '计算海信电视费用。
 dSumHXDS = 0
  '计算海信科龙空调费用。
 dSumHXKT = 0
  '计算海信容声冰箱费用。
 dSumHXBX = 0
  '计算海信小家电费用。
 dSumHXJD = 0
  '计算海信洗衣机费用。
 dSUmHXXYJ = 0
 For iRows = 1 To 65536
 '这个操作是将隐藏的行和非1行去掉后的第一个条件。
 If Rows(iRows).Hidden = False And iRows <> 1 Then
    If Sheet1.Cells(iRows, 8).Value = "海信电视" Then
       dSumHXDS = dSumHXDS + Sheet1.Cells(iRows, 7).Value
    End If
    If Sheet1.Cells(iRows, 8).Value = "海信科龙空调" Then
       dSumHXKT = dSumHXKT + Sheet1.Cells(iRows, 7).Value
    End If
    If Sheet1.Cells(iRows, 8).Value = "海信小家电" Then
       dSumHXJD = dSumHXJD + Sheet1.Cells(iRows, 7).Value
    End If
     If Sheet1.Cells(iRows, 8).Value = "海信洗衣机" Then
       dSUmHXXYJ = dSUmHXXYJ + Sheet1.Cells(iRows, 7).Value
    End If
     If Sheet1.Cells(iRows, 8).Value = "海信容声冰箱" Then
       dSumHXBX = dSumHXBX + Sheet1.Cells(iRows, 7).Value
    End If
 End If
 Next iRows
 
 Sheet2.Cells(7, "D").Value = dSumHXDS

 Sheet2.Cells(8, "D").Value = dSumHXKT
 
 Sheet2.Cells(8, "D").Value = dSumHXBX
 
 Sheet2.Cells(10, "D").Value = dSumHXJD
 
 Sheet2.Cells(11, "D").Value = dSUmHXXYJ
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub