Cùng với việc là một ứng dụng bảng tính mạnh mẽ cho phép bạn thực hiện các tính toán phức tạp, Excel cũng là một công cụ nhập dữ liệu hiệu quả cho doanh nghiệp nhỏ của bạn. Chẳng hạn, nếu bạn muốn điền vào các ô trong bảng tính của mình bằng các từ trùng lặp, bạn có thể làm như vậy với một vài hành động. Bạn có thể điền vào các ô liền kề theo một hàng hoặc cột với cùng một từ hoặc bạn có thể tạo một chuỗi điền tùy chỉnh để nhân đôi nhiều từ cùng một lúc.
Sử dụng tay cầm điền
Nhập một từ vào một ô liền kề với các ô mà bạn muốn nhân đôi nó.
Chỉ vào góc dưới bên phải của ô đó để con trỏ trở thành một chữ thập rắn hoặc dấu cộng.
Nhấp vào góc của ô và kéo tay cầm điền theo hướng của các ô bạn muốn chứa đầy các từ trùng lặp. Bạn có thể di chuyển lên, xuống, phải hoặc trái. Excel lấp đầy các ô mà bạn kéo chuột.
Tạo một chuỗi điền tùy chỉnh
Chuyển đến tab "Tệp" và nhấp vào "tùy chọn". Nhấp vào "Nâng cao" ở khung bên trái và nhấp vào nút "Chỉnh sửa danh sách tùy chỉnh" trong General.
Chọn "Danh sách mới" trong hộp danh sách tùy chỉnh. Nhập danh sách các từ bạn muốn sao chép trong hộp các mục nhập danh sách, nhấn "Enter" sau mỗi từ.
Nhấp vào nút "Thêm" để thêm danh sách tùy chỉnh của bạn vào các tùy chọn chuỗi điền của Excel. Nhấp vào "OK" hai lần để đóng hộp thoại Danh sách tùy chỉnh và các tùy chọn Excel.
Nhập từ đầu tiên của danh sách của bạn vào bất kỳ ô nào trên bảng tính của bạn. Nhấp vào góc dưới bên phải của ô và kéo lên, xuống, trái hoặc phải. Excel nhân đôi danh sách của bạn nhiều lần để điền vào các ô mà bạn chọn.
Microsoft Excel 2010 có thể xử lý các bảng tính lớn có chứa hàng trăm ô được định dạng khác nhau. Nếu bạn cố gắng tìm kiếm các từ lặp lại trong một tài liệu excel lớn theo cách thủ công, bạn sẽ dành nhiều thời gian và thậm chí có thể bỏ lỡ một vài trường hợp của các từ. Cách dễ nhất để kiểm tra các từ lặp lại là sử dụng tính năng tìm và thay thế của Excel. Bằng cách sử dụng tính năng này, bạn cũng có thể tự động thay thế các từ bằng một thứ khác.
Launch Excel 2010 trên máy tính của bạn và mở bảng tính bạn muốn chỉnh sửa.
Nhấp vào tab "Trang chủ" ở đầu cửa sổ Excel 2010.
Nhấp vào đầu mũi tên nhỏ bên cạnh "Tìm và chọn" trong phần chỉnh sửa ở trên cùng.
Chọn "Tìm" từ menu kết quả để mở cửa sổ Tìm và thay thế.
Nhập từ bạn muốn tra cứu trong hộp tìm kiếm. Chọn tùy chọn "Trường hợp khớp" và "khớp toàn bộ nội dung ô" để tùy chỉnh tìm kiếm của bạn.
Nhấp vào "Tìm tất cả" để tìm từ trong tất cả các ô. Tất cả các phiên bản của từ được hiển thị dưới nút "Tìm tất cả" trong một phần mới.
Nhấp vào bất kỳ kết quả nào để làm nổi bật ô chứa từ.
Hướng dẫn chỉ ra cách làm nổi bật các từ trùng lặp hoặc chuỗi văn bản trong ô bằng VBA.
Định dạng có điều kiện Excel giúp làm nổi bật các bản sao theo mọi cách có thể bạn có thể nghĩ đến: có hoặc không có lần xuất hiện thứ nhất, trong một cột hoặc nhiều cột, các ô trùng lặp liên tiếp và toàn bộ các hàng dựa trên các giá trị giống hệt nhau trong một cột chính. Nhưng, như thường lệ, có một "nhưng". Các quy tắc định dạng có điều kiện hoạt động ở cấp độ ô trong khi bạn có thể muốn làm nổi bật văn bản trùng lặp hơn là toàn bộ ô. Điều này chỉ có thể được thực hiện với macro. Ngay cả khi bạn không có bất kỳ kinh nghiệm nào với VBA, xin vui lòng không vội vàng đóng trang này. Tại đây, bạn sẽ tìm thấy các ví dụ mã sẵn sàng sử dụng và các hướng dẫn chi tiết về cách sử dụng chúng trong bảng tính của bạn.
Đánh dấu các từ trùng lặp trong một ô bỏ qua trường hợp văn bản
Ví dụ này cho thấy cách che bóng các từ hoặc chuỗi văn bản trong một ô có màu phông chữ màu đỏ như được hiển thị trong hình dưới đây. Xin lưu ý rằng các chữ cái chữ thường và chữ hoa được coi là cùng một ký tự. Ví dụ, cam, cam và cam được coi là cùng một từ.
Mã của macro như sau:
Publicsub nổi bậtDupesCaseInsensitive [] dim ô dưới dạng phạm vi phân định dimer asstringDelimiter = inputBox ["Nhập dấu phân cách phân tách các giá trị trong ô", "Delimiter", ","] Tế bào foreach trong ứng dụng. Điểm nổi bậtDupewordSincell [ô như phạm vi, phân định tùy chọn asstring = "" . matchCount = matchCount + 1 endifnext nextIde Index if matchCount> 0 thì text = "" cho index = lbound [từ] toubound [từ] text = text & amp; từ [index] if [từ [index] = word] sau đó cell.characters [len [văn bản] - len [từ] + 1, len [từ]]. font.color = vbre endif text = text & amp; DELIMITER NEXTENDIFNEXT WordIndex Endsub Sub HighlightDupesCaseInsensitive[] Dim Cell As Range Dim Delimiter As StringDelimiter = InputBox["Enter the delimiter that separates values in a cell", "Delimiter", ", "]For Each Cell In Application.Selection Call HighlightDupeWordsInCell[Cell, Delimiter, False] Next End Sub Sub HighlightDupeWordsInCell[Cell As Range, Optional Delimiter As String = " ", Optional CaseSensitive As Boolean = True] Dim text As String Dim words[] As String Dim word As String Dim wordIndex, matchCount, positionInText As Integer If CaseSensitive Then words = Split[Cell.Value, Delimiter] Else words = Split[LCase[Cell.Value], Delimiter] End If For wordIndex = LBound[words] To UBound[words] - 1 word = words[wordIndex] matchCount = 0 For nextWordIndex = wordIndex + 1 To UBound[words] If word = words[nextWordIndex] Then matchCount = matchCount + 1 End If Next nextWordIndex If matchCount > 0 Then text = "" For Index = LBound[words] To UBound[words] text = text & words[Index] If [words[Index] = word] Then Cell.Characters[Len[text] - Len[word] + 1, Len[word]].Font.Color = vbRed End If text = text & Delimiter Next End If Next wordIndex End Sub
Đánh dấu văn bản trùng lặp trong một trường hợp phân biệt tế bào
Trong hầu hết các tình huống, chúng ta có xu hướng bỏ qua trường hợp thư khi làm việc với các mục văn bản trong Excel. Trong một số trường hợp nhất định, tuy nhiên, trường hợp văn bản không quan trọng. Chẳng hạn, nếu bạn đang xử lý ID, mật khẩu hoặc các bản ghi khác thuộc loại đó, các chuỗi như 1-AA, 1-AA và 1-AA không phải là trùng lặp và không nên được tô sáng:
Trong trường hợp này, hãy sử dụng phiên bản sau của mã:
Publicsub nổi bậtDupesCaseSensitive [] dimer ô như phạm vi phân định Dim asstringDelimiter = inputBox ["Nhập phân cách phân tách các giá trị trong ô", "Delimiter", ","] Tế bào foreach trong ứng dụng. Điểm nổi bậtDupewordSincell [ô như phạm vi, phân định tùy chọn asstring = "" . matchCount = matchCount + 1 endifnext nextIde Index if matchCount> 0 thì text = "" cho index = lbound [từ] toubound [từ] text = text & amp; từ [index] if [từ [index] = word] sau đó cell.characters [len [văn bản] - len [từ] + 1, len [từ]]. font.color = vbre endif text = text & amp; DELIMITER NEXTENDIFNEXT WordIndex Endsub Sub HighlightDupesCaseSensitive[] Dim Cell As Range Dim Delimiter As StringDelimiter = InputBox["Enter the delimiter that separates values in a cell", "Delimiter", ", "]For Each Cell In Application.Selection Call HighlightDupeWordsInCell[Cell, Delimiter, True] Next End Sub Sub HighlightDupeWordsInCell[Cell As Range, Optional Delimiter As String = " ", Optional CaseSensitive As Boolean = True] Dim text As String Dim words[] As String Dim word As String Dim wordIndex, matchCount, positionInText As Integer If CaseSensitive Then words = Split[Cell.Value, Delimiter] Else words = Split[LCase[Cell.Value], Delimiter] End If For wordIndex = LBound[words] To UBound[words] - 1 word = words[wordIndex] matchCount = 0 For nextWordIndex = wordIndex + 1 To UBound[words] If word = words[nextWordIndex] Then matchCount = matchCount + 1 End If Next nextWordIndex If matchCount > 0 Then text = "" For Index = LBound[words] To UBound[words] text = text & words[Index] If [words[Index] = word] Then Cell.Characters[Len[text] - Len[word] + 1, Len[word]].Font.Color = vbRed End If text = text & Delimiter Next End If Next wordIndex End Sub
Cách sử dụng các macro để làm nổi bật các từ sao chép trong Excel
Nếu bạn là người mới bắt đầu sử dụng VBA, các hướng dẫn từng bước dưới đây sẽ thoải mái hướng dẫn bạn qua. Người dùng có kinh nghiệm có thể chỉ chọn liên kết tải xuống và bỏ qua phần còn lại :]
Thêm mã vào sổ làm việc của bạn
Bạn bắt đầu với việc chèn mã macro vào sổ làm việc Excel của bạn. Đây là cách:
- Mở sổ làm việc nơi bạn muốn làm nổi bật các bản sao.
- Nhấn Alt + F11 để mở Trình chỉnh sửa Visual Basic.Alt + F11 to open the Visual Basic Editor.
- Ở khung bên trái, nhấp chuột phải vào Workworkbook và chọn Chèn> Mô-đun từ menu ngữ cảnh.
- Dán mã trong cửa sổ mã.
- Để giữ cho macro sử dụng trong tương lai, hãy chắc chắn lưu sổ làm việc của bạn dưới dạng tệp .xlsm hỗ trợ macro.
Ngoài ra, bạn có thể tải xuống sổ làm việc mẫu của chúng tôi và chạy macro từ đó. Sổ làm việc mẫu chứa các macro sau:
- Điểm nổi bậtDupescaseInsensitive - Sắc thái trùng lặp trong một ô bỏ qua trường hợp chữ cái.
- Điểm nổi bậtDupesCaseSensitive - Nổi bật các bản sao trong một ô xem xét trường hợp chữ cái.
Để biết thêm thông tin, vui lòng xem cách chèn mã VBA vào Excel.
Chạy macro
Với mã được thêm vào sổ làm việc riêng hoặc tệp mẫu của chúng tôi được tải xuống và mở, chạy macro theo cách này:
- Trong bảng tính của bạn, chọn các ô nơi bạn muốn làm nổi bật văn bản trùng lặp. Đây có thể là một phạm vi hoặc nhiều phạm vi không liên kết.
- Nhấn Alt + F8.Alt + F8.
- Chọn macro của mối quan tâm và nhấp vào chạy.Run.
- Macro sẽ yêu cầu bạn chỉ định dấu phân cách phân tách các giá trị trong các ô đã chọn. Delimiter đặt trước [dấu phẩy và không gian trong trường hợp của chúng tôi] sẽ tự động xuất hiện trong hộp đầu vào. Tùy thuộc vào nhu cầu của bạn, bạn có thể để lại dấu phân cách mặc định hoặc nhập một loại khác, sau đó nhấp vào OK.
Một lúc sau, tất cả các chuỗi trùng lặp trong các ô đã chọn sẽ được tô màu màu đỏ [hoặc bất kỳ màu phông chữ nào được đặt trong mã của bạn].
Mẹo. Để nhanh chóng loại bỏ các bản sao trong một ô, bạn có thể sử dụng loại bỏ các chuỗi con trùng lặp, một trong nhiều công cụ tiết kiệm thời gian có trong bộ cuối cùng của chúng tôi. To quickly remove duplicates within a cell, you can utilize Remove Duplicate Substrings, one of many timesaving tools included in our Ultimate Suite.
Cách điều chỉnh mã cho nhu cầu của bạn
Với các ghi chú sử dụng này và kiến thức rất cơ bản về VBA [hoặc chỉ theo sát các hướng dẫn dưới đây], bạn có thể dễ dàng sửa đổi các mã theo chính xác nhu cầu của bạn.
Đặt trên cùng một mô -đun
Như bạn có thể nhận thấy, cả hai macro [nổi bậtDupesCaseSensitive và nổi bậtDupesCaseInsensitive] đều gọi chức năng nổi bậtDupewordSincell. Sự khác biệt giữa hai macro trên chỉ trong tham số thứ 3 [trường hợp nhạy cảm] được truyền cho hàm nói trên.
Đối với tìm kiếm nhạy cảm trường hợp, nó được đặt thành đúng:
Call HighlightDupeWordsInCell[Cell, Delimiter, True]
Đối với tìm kiếm không nhạy cảm trường hợp, nó được đặt thành sai:
Call HighlightDupeWordsInCell[Cell, Delimiter, False]
Để các macro hoạt động, mã của chức năng nổi bậtDupewordSincell phải được đặt vào cùng một mô -đun với các macro.
Phân định
Khi chạy, macro sẽ yêu cầu bạn chỉ định dấu phân cách phân tách các từ/chuỗi trong các ô đã chọn. DELIMITER mặc định là dấu phẩy và không gian [","] và nó được đặt trước trong InputBox:
Delimiter = InputBox["Specify the delimiter that separates values in a cell", "Delimiter", ", "]
Trong mã của bạn, bạn có thể tự do sử dụng [các] ký tự nào khác làm dấu phân cách được xác định trước.
Màu sắc
Theo mặc định, chức năng nổi bậtDupewordSincell nhân đôi màu đỏ phông chữ.Màu sắc được xác định trong dòng này:
Cell.Characters[positionInText, Len[word]].Font.Color = vbRed
Ở đây, VBRED là một loại hằng số màu VBA.Để hiển thị các dấu hiệu với một màu khác, bạn có thể thay thế VBRED bằng một hằng số khác như VBGreen, Vbyellow, Vbblue, v.v ... Danh sách các hằng số màu được hỗ trợ có thể được tìm thấy ở đây.vbBlue, etc. The list of supported color constants can be found here.
Đó là cách làm nổi bật các từ trùng lặp trong các ô Excel.Tôi cảm ơn bạn đã đọc và hy vọng sẽ gặp bạn trên blog của chúng tôi vào tuần tới!
Tải xuống có sẵn
Mã ví dụ để làm nổi bật các bản sao trong một ô [tệp .xlsm] Ultimate Suite phiên bản đầy đủ chức năng 14 ngày [tệp .exe]
Ultimate Suite 14-day fully-functional version [.exe file]