將單元格的位置添加到SUM公式中

Question

是否有任何方法將單元格的位置添加到SUM公式中？

我有以下For Each ... Next循環，而不是隻計算包含值爲1的單元格的數量，我想將這種單元格的特定位置添加到SUM公式中。

Dim rng As Range, cell As Range 
Set rng = Range("I3:DC70") 

For Each cell In rng 
    If cell.Value = 1 Then Range("DF4").Value = Range("DF4").Value + 1 
Next cell 

這可能嗎？

Answer 1

您將不得不使用.Find和.FindNext。你可以閱讀關於它Here。這種方法比擁有大型數據集時循環要快得多。

這是我寫得很快的東西。請修改它以適應您的需求。

Sub Find_Cells_Which_Has_My_Damn_String() 
    Dim WhatToFind As String 
    Dim aCell As Range, bCell As Range 
    Dim SearchRange As Range, rng As Range 
    Dim ws As Worksheet 

    '~~> Set this to the relevant worksheet 
    Set ws = ThisWorkbook.Sheets("Sheet1") 

    '~~> Set here what to find 
    WhatToFind = "1" 

    '~~> Set this to the relevant range 
    Set SearchRange = ws.Cells 

    Set aCell = SearchRange.Find(What:=WhatToFind, LookIn:=xlValues, _ 
       LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
       MatchCase:=False, SearchFormat:=False) 

    If Not aCell Is Nothing Then 
     Set bCell = aCell 
     Set rng = aCell 
     Do 
      Set aCell = SearchRange.FindNext(After:=aCell) 

      If Not aCell Is Nothing Then 
       If aCell.Address = bCell.Address Then Exit Do 
       Set rng = Union(rng, aCell) 
      Else 
       Exit Do 
      End If 
     Loop 
    End If 

    If Not rng Is Nothing Then MsgBox rng.Address Else _ 
    MsgBox "No cells were found containing " & WhatToFind 
End Sub 

截圖