Làm thế nào để đảo ngược vùng chọn trong excel ạ?

[skytuck123]

Có cách nào để đảo ngược vùng đã chọn để chọn những ô xung quanh ạ?

 

[befaint]

. . . .

Hàm trừ vùng. Ứng dụng - Addin bỏ chọn vùng đã chọn

Hàm trừ hai vùng. Tôi nhớ hình như diễn đàn từng có code cho việc này nhưng dùng phương pháp duyệt từng ô không hiệu quả lắm. Nay tôi viết lại, kèm một tiện ích nho nhỏ là bỏ chọn vùng đã chọn. Cách dùng: Khi chọn nhiều vùng không liên tục ta giữ phím Ctrl. Nếu vùng vừa quét có vùng giao với...

www.giaiphapexcel.com

 

[cantl]

Thêm 1 cách khác nè:

Sub DaoVungChon()
On Error GoTo Thoat
    Dim Vung1 As Range, Vung2 As Range, O As Range, VungDao As Range
    ActiveCell.CurrentRegion.Font.Color = xlNone
        Set Vung1 = Selection
        Set Vung2 = ActiveCell.CurrentRegion
        For Each O In Vung2
            If Intersect(O, Vung1) Is Nothing Then
                If VungDao Is Nothing Then Set VungDao = O
                Set VungDao = Union(VungDao, O)
            End If
        Next
        VungDao.Font.Color = vbRed
        VungDao.Select
Thoat:
End Sub