过滤后，将单元格的值添加到最大值单元格（Excel VBA）

Question

我尝试使用Excel VBA，但无法完成编写代码。

首先，我想用字母“A”和“D”和D列用字母“S”和“A”过滤B列。

之后，在H列中，我想找到最大值的单元格并添加该单元格的特定单元格的值（如Sheet2！C2）。

如果这样做会很有帮助。提前致谢。如果您需要更多信息，请告诉我。

谢谢。

注意：我想在添加Sheet2！C2后覆盖最大单元格。我不想将这些细胞加到另一个细胞中。

Answer 1

考虑：

=SUBTOTAL(104,H:H)+Sheet2!C2 

编辑＃1：

相反，如果我们想扫描下来列^h，该列中找到最大可见值，然后添加一些东西给它，我们会用这个VBA宏：

Sub FixTheMax() 
    Dim r As Range, v As Variant, rr As Range 
    v = Sheets("Sheet2").Range("C1").Value 
    Set r = Intersect(ActiveSheet.UsedRange, Range("H:H").Cells.SpecialCells(xlCellTypeVisible)) 
    mx = Application.WorksheetFunction.Max(r) 

    For Each rr In r 
     If rr.Value = mx Then 
      rr.Value = rr.Value + v 
      Exit Sub 
     End If 
    Next rr 
End Sub