Question

说我们有这个代码

Dim runningTotal As Range

reference = Range("A4").Value

ThisWorkbook.Sheets(7).Range("A:JL").FormatConditions.Delete ' Delete current scales

For Each c In Worksheets("PVP Calculator").Range("A7:JL1506").Cells
 '   If c.Interior.colorIndex <> 0 Then
  '      c.Interior.colorIndex = 0
   ' End If
    If c.Value = reference Then
'       c.Interior.colorIndex = 6
        If runningTotal Is Nothing Then
            Set runningTotal = c
        Else
            Set runningTotal = Union(runningTotal, c)
        End If
    End If
Next

如何使单元格B4在runningTotal范围内显示最大值？做诸如Range("B4").Value = MAX(runningTotal)之类的操作不起作用。

（这些单元格最初是相等的，但是随后我更改了另一个单元格，以使图纸的其余部分具有不同的值。此外，我打算将c.Value = reference Then更改为公差，我认为是这样吗？{{ 1}}）

先谢谢了。我花了半天的时间未能使用正确的关键字搜索并浏览MSDN来弄清楚如何做我想做的事。

Answer 1

我得到了答案，因为我在提交问题后继续搜索。是Range("B4").Formula = "=MAX(" & runningTotal.Address & ")"。我一开始在＆串联中失败了，直到现在都忽略了Address属性

如何将动态/ VBA生成的范围放入单元格公式中？

1 个答案: