如何将单个单元格分配到范围？

Question

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim TxtRng As Range
    Set TxtRng = ActiveCell

    If Not Intersect(Target, TxtRng) Is Nothing Then

------------Statements           

    End If

End Sub

我得到一个无限循环。我只想为该范围分配一个单元格地址（例如“B6”或“A5”，根据选择）

Answer 1

只需将其设置为目标：

Set TxtRang = Target

那你就是金色的。

干杯，LC