【录制宏】按固定文本定位

WANGL2

Sub 文本定位()

Dim aa As Range

For Each a In ActiveSheet.UsedRange

If a Like "*合计*" Then

If aa Is Nothing Then

Set aa = a.Cells

Else

Set aa = Union(aa, a.Cells)

End If

End If

Next

aa.Select

End Sub

dyqp1999

谢谢了 学习了  哈哈 开心啊