Xin chào, Cenk,
Tên macro là mã macro bạn đã chèn vào tệp Excel và bạn chỉ cần thay đổi Macro1 trong mã trên thành mã của riêng bạn.
Ví dụ: tôi chèn một mã ở đây và tên macro là: ColorCompanyDuplicates

Màu phụCompanyDuplicates ()
'Cập nhật bởi Extendoffice 20160704
Dim xRg theo phạm vi
Làm mờ xTxt dưới dạng chuỗi
Dim xCell As Range
Làm mờ xChar thành chuỗi
Dim xCellPre As Range
Dim xCIndex miễn là
Bộ sưu tập Dim xCol As
Dim I As Long
On Error Resume Next
Nếu ActiveWindow.RangeSelection.Count> 1 Thì
xTxt = ActiveWindow.RangeSelection.AddressLocal
Khác
xTxt = ActiveSheet.UsedRange.AddressLocal
Cuối Nếu
Đặt xRg = Application.InputBox ("vui lòng chọn dải dữ liệu:", "Kutools cho Excel", xTxt,,,,, 8)
Nếu xRg không có gì thì thoát Sub
xC Index = 2
Đặt xCol = Bộ sưu tập mới
Đối với mỗi xCell Trong xRg
On Error Resume Next
xCol.Add xCell, xCell.Text
Nếu Err.Number = 457 thì
xC Index = xC Index + 1
Đặt xCellPre = xCol (xCell.Text)
Nếu xCellPre.Interior.ColorIndex = xlNone Thì xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Sau đó
MsgBox "Quá nhiều công ty trùng lặp!", VbCritical, "Kutools cho Excel"
Thoát Sub
Cuối Nếu
Về lỗi GoTo 0
Sau
End Sub

Này các cậu,
Tôi đã sử dụng mã sau cho vấn đề này, hy vọng nó sẽ giúp ai đó:

Private Sub Worksheet_Calculate ()
Giá trị cũ tĩnh
Nếu Phạm vi ("MyNamedRange") <> oldValue Thì
Code Here
oldValue = Range ("MyNamedRange"). Giá trị
Cuối Nếu
End Sub