【精华】【Excel VBA】选中相同，并高亮显示，选区交集，移动选区，结果动态显示

参考：VBA 选择单元格的语句 http://blog.csdn.net/fenghome/article/details/10416743

效果：选中NN（相同内容）上的中文

代码：

1，动态高亮显示

2，选择高亮区域，计算交集处中文选区

3，结果动态显示到固定位置（未完成）

1，

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    Set rng = UsedRange
    If Target.Count > 1 Then
           Set Target = Target.Cells(1)
    End If
    If Application.Intersect(Target, rng) Is Nothing Or Target.Value = "" Then Exit Sub
    Dim C As Range
    For Each ws In Worksheets
        Set rng = ws.UsedRange
        rng.Interior.ColorIndex = xlNone
        For Each C In rng
            If C.Value = Target.Value Then
            ws.UsedRange.Columns(C.Column).Interior.ColorIndex = 36
            End If
        Next
    Next
End Sub

2，

Sub test()
    Dim rng As Range, cel As Range, A As Range, B As Range, C As Range
           
    For Each cel In ActiveSheet.UsedRange.Cells
        If cel.Interior.Color = 10092543 Then
        Set rng = cel
        Exit For
        End If
    Next
    For Each cel In ActiveSheet.UsedRange.Cells
        If cel.Interior.Color = 10092543 Then Set rng = Union(rng, cel)
    Next
    rng.Select

    
    EndRange = "A2"
    
    Set B = Range(EndRange, Range(EndRange).End(xlEnd))
    Intersect(rng, B).Select
    
End Sub

3，

Public Sub sss()
   
    Dim str As String, temp As String, CXrng As Range, XRrng As Range
   
    Set CXrng = Selection
   
    For Each XRrng In CXrng
   
        str = str & XRrng.Value
   
          
   
    Next
      
    [a14] = str
    
      
      
   
End Sub