ສາລະບານ
ມີສາມວິທີທີ່ຈະຊອກຫາ ແລະລຶບສິ່ງທີ່ຊໍ້າກັນພາຍໃນຕາລາງໃນ Excel. ພຽງແຕ່ເລືອກເອົາອັນທີ່ເຫມາະສົມທີ່ສຸດສໍາລັບທ່ານ.
ເມື່ອມັນກ່ຽວຂ້ອງກັບການລົບຄ່າທີ່ຊ້ໍາກັນຫຼືແຖວ, Microsoft Excel ສະເຫນີໃຫ້ array ຂອງທາງເລືອກທີ່ແຕກຕ່າງກັນ. ແຕ່ໃນເວລາທີ່ມັນມາກັບການເອົາຂໍ້ຄວາມທີ່ຄືກັນພາຍໃນຫ້ອງທີ່ໃຫ້, Excel ໃຫ້ ... ບໍ່ມີຫຍັງ. ບໍ່ມີເຄື່ອງມື, ບໍ່ມີຄຸນສົມບັດ, ບໍ່ມີສູດ, ບໍ່ມີຫຍັງ. ມັນຈະຢຸດພວກເຮົາຈາກການບັນລຸເປົ້າຫມາຍຂອງພວກເຮົາບໍ? ໃນກໍລະນີບໍ່ມີ. ຖ້າ Excel ບໍ່ມີຟັງຊັນທີ່ພວກເຮົາຕ້ອງການ, ໃຫ້ໄປຂຽນຕົວເຮົາເອງ :)
ວິທີລຶບຄໍາທີ່ຊ້ໍາກັນໃນ Excel cell
ບັນຫາ : ທ່ານມີຄຳສັບດຽວກັນ ຫຼືສະຕຣິງຂໍ້ຄວາມຢູ່ໃນຕາລາງໃດໜຶ່ງ ແລະຕ້ອງການລຶບການຊໍ້າຄືນເທື່ອທີສອງ ແລະທັງໝົດຕໍ່ໄປ. 3>
ຟັງຊັນທີ່ຜູ້ໃຊ້ກຳນົດເອງເພື່ອລຶບສິ່ງທີ່ຊໍ້າກັນພາຍໃນເຊລ
ເພື່ອລົບລ້າງຂໍ້ຄວາມທີ່ຊໍ້າກັນຢູ່ໃນຕາລາງ, ທ່ານສາມາດໃຊ້ຟັງຊັນທີ່ຜູ້ໃຊ້ກຳນົດເອງ (UDF) ຕໍ່ໄປນີ້. , ທີ່ມີຊື່ວ່າ RemoveDupeWords :
Function RemoveDupeWords(text As String , Optional delimiter As String = " " ) As String Dim dictionary As Object Dim x, part Set dictionary = CreateObject ( "Scripting.Dictionary" ) dictionary .CompareMode = vbTextCompare ສໍາລັບແຕ່ລະ x In Split(text, delimiter) part = Trim(x) If part "" And Not dictionary.Exists(part) then dictionary.Add part, Nothing End If Next If dictionary.Count > 0 ຫຼັງຈາກນັ້ນ, RemoveDupeWords = ເຂົ້າຮ່ວມ(dictionary.keys,delimiter) Else RemoveDupeWords = "" End If Set Dictionary = Nothing End Functionວິທີໃສ່ລະຫັດຂອງຟັງຊັນໃນປຶ້ມວຽກຂອງເຈົ້າ
ເພື່ອເພີ່ມລະຫັດຂ້າງເທິງໃສ່ Excel ຂອງທ່ານ, ນີ້ແມ່ນສິ່ງທີ່ທ່ານຕ້ອງເຮັດ:
- ກົດ Alt + F11 ເພື່ອເປີດ Visual Basic Editor.
- ໃນແຖບດ້ານຊ້າຍ, ຄລິກຂວາ ThisWorkbook ແລະເລືອກ Insert > Module .
- ວາງລະຫັດຂ້າງເທິງໃສ່ໃນປ່ອງຢ້ຽມ Code .
ສຳລັບຂໍ້ມູນເພີ່ມເຕີມ, ກະລຸນາເບິ່ງວິທີໃສ່ VBA ລະຫັດໃນ Excel.
RemoveDupeWords ຟັງຊັນ syntax
ຟັງຊັນທີ່ສ້າງຂື້ນໃຫມ່ຂອງພວກເຮົາສໍາລັບການຖອນຂໍ້ຄວາມທີ່ຊ້ໍາກັນຢູ່ໃນຕາລາງມີ syntax ຕໍ່ໄປນີ້:
RemoveDupeWords(ຂໍ້ຄວາມ, [delimiter])ຢູ່ໃສ :
- ຂໍ້ຄວາມ (ຕ້ອງການ) - ສະຕຣິງ ຫຼືຕາລາງທີ່ທ່ານຕ້ອງການລຶບຂໍ້ຄວາມຊ້ຳໆ.
- ຕົວຂັ້ນ (ທາງເລືອກ) - ຕົວຂັ້ນທີ່ຂໍ້ຄວາມຊ້ຳໆຖືກແຍກອອກ. ຖ້າຖືກລະເວັ້ນ, ຊ່ອງຫວ່າງຈະຖືກໃຊ້ສຳລັບຕົວຂັ້ນ.
ຟັງຊັນແມ່ນ ບໍ່ແມ່ນຕົວພິມນ້ອຍໃຫຍ່ , ຊຶ່ງໝາຍຄວາມວ່າຕົວພິມນ້ອຍ ແລະ ໂຕພິມໃຫຍ່ຖືກປະຕິບັດເປັນຕົວອັກສອນດຽວກັນ.
ວິທີໃຊ້ຟັງຊັນ RemoveDupeWords
ເມື່ອລະຫັດຂອງຟັງຊັນຖືກເພີ່ມໃສ່ປຶ້ມວຽກຂອງເຈົ້າ, ທ່ານສາມາດໃຊ້ມັນໃນສູດຂອງເຈົ້າໄດ້ແບບດຽວກັນກັບເຈົ້າໃຊ້ຟັງຊັນໃນຕົວຂອງ Excel.
ພຽງແຕ່ເລີ່ມຕົ້ນການພິມຊື່ຂອງຫນ້າທີ່ຫຼັງຈາກເຄື່ອງຫມາຍເທົ່າທຽມກັນ, ແລະມັນຈະປາກົດຢູ່ໃນສູດ intellisense. Double ໃຫ້ຄລິກໃສ່ຫນ້າທີ່, ແລະທ່ານຈະມີມັນໃສ່ໃນຕາລາງ. ກຳນົດອາກິວເມັນ, ພິມວົງເລັບປິດ, ກົດ Enter , ແລະສູດຄຳນວນຂອງທ່ານສຳເລັດແລ້ວ.
ຕົວຢ່າງ, ເພື່ອລຶບຄຳທີ່ຊໍ້າກັນທີ່ແຍກດ້ວຍເຄື່ອງໝາຍຈຸດ ແລະຍະຫວ່າງຈາກ A2, ໃສ່ສູດລຸ່ມນີ້ໃນ B2, ແລະຫຼັງຈາກນັ້ນລາກມັນລົງຜ່ານເຊລຫຼາຍເທົ່າທີ່ຕ້ອງການ:
=RemoveDupeWords(A2, ", ")
ດັ່ງນີ້, ເຈົ້າຈະມີລາຍການຄໍາທີ່ບໍ່ຊໍ້າກັນ ຫຼືສະຕຣິງຍ່ອຍທີ່ແຍກອອກດ້ວຍ ເຄື່ອງໝາຍຈຸດ ແລະຍະຫວ່າງ :
ຖ້າເຈົ້າຢາກໄດ້ລາຍຊື່ທີ່ຂັ້ນດ້ວຍເຄື່ອງໝາຍຈຸດ, ຈາກນັ້ນໃຊ້ ພຽງແຕ່ເຄື່ອງໝາຍຈຸດ ສຳລັບຕົວຂັ້ນ :
=RemoveDupeWords(A2, ",")
ຖ້າຂໍ້ມູນແຫຼ່ງຂໍ້ມູນຂອງທ່ານຖືກແຍກອອກດ້ວຍ space , ອາກິວເມັນທີສອງຄວນຈະເປັນ " " ຫຼືຍົກເວັ້ນ:
=RemoveDupeWords(A2)
ເຊັ່ນດຽວກັນກັບຟັງຊັນ Excel ອື່ນໆ, UDF ຂອງພວກເຮົາຈະຄິດໄລ່ຄືນໃຫມ່ໂດຍອັດຕະໂນມັດເມື່ອຂໍ້ມູນແຫຼ່ງມີການປ່ຽນແປງ, ດັ່ງນັ້ນຜົນໄດ້ຮັບຂອງທ່ານຈະອັບເດດຕະຫຼອດເວລາ.
VBA macro ເພື່ອລຶບຂໍ້ຄວາມທີ່ຊໍ້າກັນອອກຈາກຫຼາຍເຊລພ້ອມກັນ
ຫາກເຈົ້າກໍາລັງຊອກຫາທີ່ຈະລຶບຂໍ້ຄວາມຊ້ຳໆຈາກຫຼາຍເຊລໃນຄັ້ງດຽວ, ທ່ານສາມາດໂທຫາຟັງຊັນ RemoveDupeWords ໄດ້. m ພາຍໃນມະຫາພາກ. ໃນກໍລະນີນີ້, ຕົວຂັ້ນແມ່ນ hardcoded, ແລະທ່ານຈະຕ້ອງປັບປຸງລະຫັດຂອງ macro ທຸກໆຄັ້ງທີ່ຕົວຂັ້ນມີການປ່ຽນແປງ. ອີກທາງເລືອກ, ທ່ານສາມາດຂຽນການປ່ຽນແປງລະຫັດຈໍານວນຫນ້ອຍສໍາລັບຕົວກໍານົດທີ່ພົບເລື້ອຍທີ່ສຸດ, ເວົ້າ, ຍະຫວ່າງ, ເຄື່ອງໝາຍຈຸດ, ຫຼືເຄື່ອງໝາຍຈຸດ ແລະຍະຫວ່າງ, ແລະໃຫ້ຊື່ທີ່ມີຄວາມຫມາຍ macros ຂອງທ່ານ, ຕົວຢ່າງເຊັ່ນ. RemoveDupesDelimSpace .
ລະຫັດຂອງມະຫາພາກມີດັ່ງນີ້:
Public Sub RemoveDupeWords2() Dim cell as range for each cell in Application.Selection cell.Value = RemoveDupeWords(cell.Value, ", " ) Next End Subໃນລະຫັດຂ້າງເທິງ, ຕົວຂັ້ນແມ່ນ ເຄື່ອງໝາຍຈຸດ ແລະ space . ເພື່ອໃຊ້ຕົວຂັ້ນອື່ນ, ແທນ ", " ດ້ວຍຕົວອັກສອນອື່ນໃນແຖວລະຫັດນີ້:
cell.Value = RemoveDupeWords(cell.Value, ", ")
ໝາຍເຫດ. ເພື່ອໃຫ້ມະຫາພາກເຮັດວຽກ, ລະຫັດຂອງມັນ ແລະລະຫັດຂອງຟັງຊັນ RemoveDupeWords ຕ້ອງຖືກວາງໃສ່ໃນໂມດູນດຽວກັນ.
ວິທີໃຊ້ macro
ໃສ່ລະຫັດຂອງ macro ໃນປຶ້ມວຽກຂອງເຈົ້າເອງ ຫຼືເປີດປຶ້ມວຽກຂອງພວກເຮົາດ້ວຍລະຫັດ, ແລະຈາກນັ້ນເຮັດຂັ້ນຕອນຕໍ່ໄປນີ້ເພື່ອແລ່ນ macro.
- ເລືອກຊ່ວງຂອງຕາລາງທີ່ເຈົ້າຕ້ອງການລຶບຂໍ້ຄວາມຊ້ຳໆອອກ.
- ກົດ Alt + F8 ເພື່ອເປີດກ່ອງໂຕ້ຕອບ Macro .
- ໃນລາຍຊື່ຂອງມາໂຄຣ, ເລືອກ RemoveDupeWords2 .
- ຄລິກ Run .
ສຳລັບລາຍລະອຽດເພີ່ມເຕີມ, ກະລຸນາເບິ່ງວິທີການ ແລ່ນ macro ໃນ Excel.
ໝາຍເຫດ. ເນື່ອງຈາກການກະທຳຂອງມະຫາພາກ ບໍ່ສາມາດຍົກເລີກໄດ້ , ພວກເຮົາແນະນຳຢ່າງຍິ່ງວ່າໃຫ້ບັນທຶກປຶ້ມວຽກຂອງເຈົ້າທັນທີກ່ອນທີ່ຈະໃຊ້ macro. ດ້ວຍວິທີນີ້, ຖ້າມີບາງຢ່າງຜິດພາດ, ທ່ານພຽງແຕ່ສາມາດປິດແລະເປີດປື້ມວຽກຄືນ ໃໝ່, ແລະທ່ານຈະກັບຄືນໄປຫາບ່ອນທີ່ທ່ານຕ້ອງການ. ຫຼືທ່ານພຽງແຕ່ສາມາດເຮັດສໍາເນົາຂອງແຜ່ນວຽກທີ່ອາດຈະໄດ້ຮັບຜົນກະທົບຈາກມະຫາພາກ.
ວິທີລຶບຕົວອັກສອນທີ່ຊ້ຳກັນຢູ່ໃນເຊັລ
ບັນຫາ : ທ່ານມີຕົວລະຄອນທີ່ຊ້ຳກັນຫຼາຍເທື່ອໃນຕາລາງ, ໃນຂະນະທີ່ແຕ່ລະເຊລຄວນຈະມີພຽງການປະກົດຕົວອັນດຽວຂອງຕົວອັກສອນທີ່ລະບຸ.
ການແກ້ໄຂ : ຟັງຊັນທີ່ຜູ້ໃຊ້ກຳນົດເອງ ຫຼື VBA macro.
ຟັງຊັນທີ່ຜູ້ໃຊ້ກຳນົດເອງເພື່ອລຶບຕົວອັກສອນຊ້ຳໆ
ເພື່ອລຶບຕົວອັກສອນທີ່ຊ້ຳກັນພາຍໃນເຊລທີ່ຮັກສາພຽງແຕ່ການປະກົດຕົວທຳອິດ, ທ່ານສາມາດໃຊ້ຟັງຊັນທີ່ຜູ້ໃຊ້ກຳນົດໄວ້ຕໍ່ໄປນີ້, ຊື່ວ່າ RemoveDupeChars :
Function RemoveDupeChars(text As String ) As String Dim dictionary As Object Dim char As String Dim result As String Set dictionary = CreateObject ( "Scripting.Dictionary" ) For i = 1 To Len(text) char = Mid(text, i, 1 ) ຖ້າບໍ່ແມ່ນວັດຈະນານຸກົມ.Exists(char) ຫຼັງຈາກນັ້ນຈະນານຸກົມ.Add char, Nothing results = ຜົນໄດ້ຮັບ & char End ຖ້າຕໍ່ໄປ RemoveDupeChars = ຜົນໄດ້ຮັບ ຕັ້ງຄ່າວັດຈະນານຸກົມ = ບໍ່ມີຫຍັງສິ້ນສຸດຟັງຊັນເພື່ອໃສ່ລະຫັດຂອງຟັງຊັນເຂົ້າໄປໃນປຶ້ມວຽກຂອງເຈົ້າ, ຂັ້ນຕອນແມ່ນຄືກັນກັບໃນຕົວຢ່າງທີ່ຜ່ານມາ.
ການທໍາງານຂອງ syntax RemoveDupeChars
ໄວຍະກອນຂອງຟັງຊັນແບບກຳນົດເອງນີ້ແມ່ນງ່າຍດາຍເທົ່າທີ່ມັນເປັນໄປໄດ້ - ຕ້ອງການພຽງແຕ່ໜຶ່ງອາກິວເມັນ:
RemoveDupeChars(ຂໍ້ຄວາມ)ບ່ອນທີ່ ຂໍ້ຄວາມ ເປັນສະຕຣິງ ຫຼືຕາລາງທີ່ທ່ານຕ້ອງການ. ເພື່ອລຶບຕົວອັກສອນທີ່ຊໍ້າກັນອອກ.
ຟັງຊັນແມ່ນ ຕົວພິມນ້ອຍໃຫຍ່ ແລະປະຕິບັດຕົວພິມນ້ອຍ ແລະຕົວພິມໃຫຍ່ເປັນຕົວອັກສອນທີ່ແຕກຕ່າງກັນ.
ວິທີໃຊ້ຟັງຊັນ RemoveDupeChars
ທຸກສິ່ງທຸກຢ່າງທີ່ພວກເຮົາໄດ້ກ່າວກ່ຽວກັບການນໍາໃຊ້ RemoveDupeWords ເປັນຄວາມຈິງສໍາລັບ RemoveDupeChars . ດັ່ງນັ້ນ, ໂດຍບໍ່ມີການໄປໃນທາງທິດສະດີຫຼາຍເກີນໄປ, ໃຫ້ໄປຫາຕົວຢ່າງໂດຍກົງ.
ເພື່ອລຶບຕົວອັກສອນທີ່ຊໍ້າກັນຈາກຖັນ A ເລີ່ມຕົ້ນໃນ A2, ໃສ່ສູດນີ້ໃນ B2 ແລະຄັດລອກມັນລົງ:
=RemoveDupeChars(A2)
ຕາມທີ່ເຈົ້າເຫັນໃນຮູບຂ້າງລຸ່ມນີ້, ຟັງຊັນຈະຈັດການປະເພດຕົວອັກສອນຕ່າງໆໄດ້ຢ່າງສຳເລັດຜົນ ລວມທັງຕົວອັກສອນ, ຕົວເລກ ແລະ ສັນຍາລັກພິເສດ:
ເຄັດລັບ. ຖ້າຕົວອັກສອນຂອງທ່ານຖືກແຍກອອກຈາກກັນໂດຍບາງ ຕົວຂັ້ນ ເຊັ່ນ: ຍະຫວ່າງ, ເຄື່ອງໝາຍຈຸດ ຫຼືຂີດໝາຍ, ຈາກນັ້ນໃຊ້ຟັງຊັນ RemoveDupeWords ດັ່ງທີ່ສະແດງໃນຕົວຢ່າງທີ່ຜ່ານມາ.
VBA macro ເພື່ອເອົາຕົວອັກສອນດຽວກັນອອກຈາກເຊລ
ເຊັ່ນດຽວກັບ RemoveDupeWords , ຟັງຊັນ RemoveDupeChars ຍັງສາມາດຖືກເອີ້ນຈາກພາຍໃນ macro:
ສາທາລະນະ Sub RemoveDupeChars2() Dim cell As Range ສໍາລັບແຕ່ລະ cell ໃນ Application.Selection cell.Value = RemoveDupeChars(cell.Value) Next End Subເນື່ອງຈາກວ່າ UDF ນີ້ບໍ່ໄດ້ໃຊ້ຕົວຂັ້ນໃດໆ, ທ່ານຈະບໍ່ຕ້ອງເຮັດການປັບປ່ຽນໃດໆໃນ ລະຫັດ.
ໝາຍເຫດ. ເພື່ອໃຫ້ມະຫາພາກເຮັດວຽກ, ລະຫັດຂອງມັນແລະລະຫັດຂອງ RemoveDupeChars UDF ຕ້ອງຖືກວາງໃສ່ໃນໂມດູນດຽວກັນໃນບັນນາທິການ VBA.
ວິທີການໃຊ້ macro
ສົມມຸດວ່າທ່ານໄດ້ໃສ່ລະຫັດຂອງ macro ໃນປຶ້ມວຽກຂອງທ່ານແລ້ວ ຫຼືເປີດປຶ້ມວຽກຂອງພວກເຮົາທີ່ມີລະຫັດ, ເປີດ macro ດ້ວຍວິທີນີ້.
- ເລືອກຊ່ວງຂອງຕາລາງທີ່ເຈົ້າຕ້ອງການເອົາຕົວອັກສອນຊ້ຳໆອອກ.
- ກົດ Alt + F8 ເພື່ອເປີດກ່ອງໂຕ້ຕອບ Macro ກ່ອງ.
- ໃນລາຍຊື່ຂອງມາໂຄ, ເລືອກ RemoveDupeChars2 .
- ຄລິກ Run .
ລຶບສະຕຣິງຍ່ອຍທີ່ຊ້ຳກັນອອກດ້ວຍ Ultimate Suite
ໃນຕອນຕົ້ນຂອງບົດເຝິກຫັດນີ້, ມັນໄດ້ຖືກກ່າວເຖິງວ່າ Microsoft Excel ບໍ່ມີຄຸນສົມບັດທີ່ສ້າງຂຶ້ນມາສຳລັບການລຶບສິ່ງທີ່ຊໍ້າກັນພາຍໃນຕາລາງໃດໜຶ່ງ. ແຕ່ Ultimate Suite ຂອງພວກເຮົາເຮັດໄດ້!
ເຈົ້າສາມາດຊອກຫາມັນໄດ້ໃນເມນູເລື່ອນລົງ Duplicate Remover ໃນແຖບ Ablebits Data , ໃນ Dedupe ກຸ່ມ. ຖ້າຕົວເລືອກ ເອົາຕົວຍ່ອຍທີ່ຊ້ຳກັນອອກ ບໍ່ປາກົດຢູ່ໃນ Excel ຂອງທ່ານ, ໃຫ້ແນ່ໃຈວ່າທ່ານໄດ້ຕິດຕັ້ງ Ultimate Suite ເວີຊັນຫຼ້າສຸດແລ້ວ (ສາມາດດາວໂຫຼດທົດລອງໃຊ້ຟຣີໄດ້ທີ່ນີ້).
ເພື່ອລຶບຄຳສັບ ຫຼືຂໍ້ຄວາມຊ້ຳໆຈາກຫຼາຍເຊລພາຍໃນ 5 ວິນາທີ (ວິນາທີຕໍ່ຂັ້ນຕອນ :), ນີ້ແມ່ນສິ່ງທີ່ທ່ານຕ້ອງເຮັດ:
- ເລືອກຂໍ້ມູນແຫຼ່ງຂອງເຈົ້າ ແລະເປີດໂຕ ເອົາເຄື່ອງມືຍ່ອຍທີ່ຊໍ້າກັນ .
- ລະບຸຕົວຂັ້ນ ຕົວຂັ້ນ .
- ກຳນົດວ່າຈະປະຕິບັດຕໍ່ ຕົວຂັ້ນຕິດຕໍ່ກັນ ເປັນອັນໜຶ່ງຫຼືບໍ່ (ຄ່າເລີ່ມຕົ້ນ).
- ເລືອກວ່າຈະດໍາເນີນການຊອກຫາ ຕົວພິມນ້ອຍໃຫຍ່ ຫຼື ຕົວພິມນ້ອຍໃຫຍ່ .
- ຄລິກ ເອົາອອກ .
ແລ້ວໆ! ບໍ່ມີການລົບກວນກັບ VBA ຫຼືສູດ, ພຽງແຕ່ຜົນໄດ້ຮັບໄວແລະຖືກຕ້ອງ.
ເພື່ອຮຽນຮູ້ເພີ່ມເຕີມກ່ຽວກັບ add-in ທີ່ດີເລີດນີ້, ກະລຸນາໄປຢ້ຽມຢາມຫນ້າທໍາອິດຂອງມັນ. ຫຼືດີກວ່າ, ດາວໂຫລດເວີຊັນການປະເມີນຢູ່ລຸ່ມນີ້ ແລະລອງໃຊ້ເບິ່ງ!
ນັ້ນຄືວິທີລຶບຂໍ້ຄວາມທີ່ຊໍ້າກັນຢູ່ໃນຕາລາງ.ຂ້ອຍຂໍຂອບໃຈສຳລັບການອ່ານ ແລະຫວັງວ່າຈະພົບເຈົ້າໃນບລັອກຂອງພວກເຮົາໃນອາທິດໜ້າ!
ມີໃຫ້ດາວໂຫຼດ
ຕົວຢ່າງເພື່ອລຶບຂໍ້ມູນທີ່ຊ້ຳກັນໃນເຊລ (ໄຟລ໌ .xlsm)
Ultimate Suite 14 -day ສະບັບທີ່ເຮັດວຽກເຕັມຮູບແບບ (ໄຟລ໌ .exe)