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

谢谢，鲍尔泰克

Answer 1

使用Union将单元格添加到找到的范围内。

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

根据条件选择非连续单元格

1 个答案: