在VBA宏中简化单元格范围指定的方法咨询

针对你不想逐个罗列单元格的需求，这里提供几种实用的简化方法，同时优化原代码的逻辑：

方案1：利用Union合并连续规律的单元格区间 #

如果你的目标单元格是D列中18-34的偶数行和61-85的奇数行，可以直接用Union合并两个步长区间，不用逐个写单元格地址：

Sub Removetext()
    Dim targetRange As Range
    ' 合并两个规律区间：D18:D34的偶数行 + D61:D85的奇数行
    Set targetRange = Union( _
        Range("D18:D34").SpecialCells(xlCellTypeConstants), _
        Range("D61:D85").SpecialCells(xlCellTypeConstants) _
    )
    ' 遍历处理每个单元格
    For Each c In targetRange
        ' 先处理{，再处理*，逻辑和原代码一致
        If InStr(c.Value, "{") > 0 Then
            c.Value = Left(c.Value, InStr(c.Value, "{") - 1)
        End If
        If InStr(c.Value, "*") > 0 Then
            c.Value = Left(c.Value, InStr(c.Value, "*") - 1)
        End If
    Next c
End Sub

注：SpecialCells(xlCellTypeConstants)可以只筛选有内容的单元格，减少遍历次数，提升效率。

方案2：处理手动选中的单元格 #

如果每次处理的单元格不固定，可直接让代码处理你手动选中的区域，无需提前写范围：

Sub Removetext_Selection()
    If TypeName(Selection) <> "Range" Then Exit Sub ' 判断是否选中单元格
    For Each c In Selection
        If InStr(c.Value, "{") > 0 Then
            c.Value = Left(c.Value, InStr(c.Value, "{") - 1)
        End If
        If InStr(c.Value, "*") > 0 Then
            c.Value = Left(c.Value, InStr(c.Value, "*") - 1)
        End If
    Next c
End Sub

使用时先选中要处理的单元格，再运行宏即可。

方案3：按条件筛选目标单元格 #

如果目标单元格有统一特征（比如D列中包含{或*的单元格），可以用条件筛选定位：

Sub Removetext_Conditional()
    Dim targetRange As Range
    ' 筛选D列中包含{或*的单元格
    On Error Resume Next ' 防止没有符合条件的单元格报错
    Set targetRange = Range("D:D").SpecialCells(xlCellTypeConstants, xlTextValues) _
        .FindAll(What:="*[{*}]*", LookIn:=xlValues, LookAt:=xlPart)
    On Error GoTo 0
    
    If Not targetRange Is Nothing Then
        For Each c In targetRange
            If InStr(c.Value, "{") > 0 Then
                c.Value = Left(c.Value, InStr(c.Value, "{") - 1)
            End If
            If InStr(c.Value, "*") > 0 Then
                c.Value = Left(c.Value, InStr(c.Value, "*") - 1)
            End If
        Next c
    End If
End Sub

额外优化：合并文本处理逻辑 #

原代码的两次判断可以合并，减少重复操作：

' 替换原代码中的判断部分
Dim pos As Integer
pos = InStr(c.Value, "{")
If pos = 0 Then pos = InStr(c.Value, "*")
If pos > 0 Then c.Value = Left(c.Value, pos - 1)

这样会优先处理{，如果没有再处理*，逻辑和原代码一致，但更简洁。

内容的提问来源于stack exchange，提问作者BrentJohn