基準に基づいて非連続セルを選択する

Question

文字「D」のスプレッドシートがあり、ランダムなセルには何も入れません。どのコードを使用して選択/コピーするか、範囲としてよりよく消えるかは、これらすべてのセルですか？

これまでのところ、私は次があります：

Sub SelectD() 

Dim AllD As Range 

For Each cell In ActiveSheet.UsedRange.Cells 
    If cell = "D" Then 
     Set AllD = '??? 
    End If 
Next cell 

End Sub 

おかげで、 Bartek

Answer 1

使用連合それらが発見されたとして範囲にセルを追加します。

Sub SelectD() 

Dim AllD As Range 

For Each cell In ActiveSheet.UsedRange.Cells 
    If cell = "D" Then 
     If AllD Is Nothing then 
      Set AllD = cell 
     Else 
      Set AllD = Union(cell,AllD) 
     End If 
    End If 
Next cell 

'Do something with AllD 
Debug.Print AllD.Address 
End Sub