Tanggalin ng VBA ang Mga Doble | Paano Tanggalin ang Mga Doble na Halaga sa Excel VBA?

Alisin angDuplicates sa VBA Excel

Ang mga duplicate na halaga ay madalas na hindi kinakailangan sa excel lalo na kung nais mong magkaroon ng bilang ng mga natatanging halaga. Karaniwan kaming may iba't ibang hanay ng data upang gumana at nakikita namin ang isang pangkat ng mga duplicate na halaga dito.

Inaasahan kong pamilyar ka sa pag-aalis ng mga duplicate sa excel worksheet, kung hindi man mag-alala magpapakita kami sa iyo ng isang simpleng halimbawa para sa iyo. Sa VBA din maaari nating gampanan ang alisin ang pamamaraan ng mga duplicate.

Kaya, Inalis nito ang lahat ng mga duplicate na halaga ng heading na "Rehiyon". Katulad nito, magagawa natin ang gawaing ito sa tulong ng VBA code.

Paano Tanggalin ang Mga Doble na Halaga sa VBA Coding?

Upang maalis muna ang mga duplicate na halaga, kailangan naming banggitin ang saklaw na tinutukoy namin, pagkatapos ay maaari naming ma-access ang pamamaraang "Tanggalin ang Mga Dobleng". Kaya ang syntax ay ang mga sumusunod.

[Haligi]: Aling haligi ng pagpipilian na kailangan namin upang alisin ang mga duplicate? Kailangan naming banggitin ang numero ng haligi ng napiling saklaw.

[Header]: Ang saklaw na iyong napili ay may mga header o hindi. Mayroon kaming tatlong mga pagpipilian upang gumana dito.

  • xlOo: Kung ang data ay may mga header maaari mo itong piliin.
  • xlHindi: Kung walang mga header ang data maaari mo itong mapili.
  • xlGuess: Papayagan ng pagpipiliang ito ang excel na hulaan ang mga header ng data.

Kaya't sa paggamit ng mga parameter na ito maaari naming alisin ang mga duplicate sa isang pag-click lamang ng isang pindutan nang hindi binabali ang aming pawis.

Sa seksyon sa ibaba ay ipapakita ko sa iyo ang ilan sa mga halimbawa upang alisin ang mga duplicate ng VBA. Sundin nang maingat ang mga hakbang upang isulat ang code sa iyong sarili.

Mga halimbawa ng Alisin ang Mga Dobleng Halaga sa VBA Coding

Nasa ibaba ang mga halimbawa ng Alisin ang Duplicate sa Values ​​VBA.

Inalis ang VBA - Mga Halimbawa # 1

Isaalang-alang din ang data sa ibaba para sa halimbawang ito.

Mula sa data sa itaas, kailangan naming alisin ang mga duplicate ng haligi na "Rehiyon" kaya sundin ang mga hakbang sa ibaba upang isulat ang code.

Hakbang 1: Simulan ang subprocedure sa pamamagitan ng pagbibigay ng isang pangalan ng isang macro code.

Hakbang 2: Nabanggit ang saklaw ng data sa pamamagitan ng paggamit ng VBA Saklaw na bagay.

Code:

 Sub Alisin_Duplicates_Example1 () Saklaw ("A1: C9"). Wakas Sub 

Hakbang 3: Matapos banggitin ang saklaw na pag-access sa VBA "Alisin ang Mga Dobleng”Paraan.

Code:

 Sub Delete_Duplicates_Example1 () Saklaw ("A1: C9"). Tangalin angDuplicates End Sub 

Hakbang 4: Unang argumento sa aling haligi na kailangan naming alisin ang mga duplicate na halaga. Sa halimbawang ito mula sa unang haligi, kailangan naming alisin ang mga duplicate.

Code:

 Sub Remove_Duplicates_Example1 () Saklaw ("A1: C9"). Mga Column ng Tangal angDuplicates: = 1, End Sub 

Hakbang 5: Susunod na bagay ay kung ang data ay may mga header o wala. Sa kasong ito, mayroon kaming mga header kaya pumili "XlYes".

Code:

 Sub Remove_Duplicates_Example1 () Saklaw ("A1: C9"). Mga Column ng Tangal angDuplicates: = 1, Header: = xlYes End Sub 

Patakbuhin ang code na ito ay aalisin ng VBA ang mga duplicate mula sa napiling rehiyon.

Ito ay isang malinaw na paraan ng pag-refer sa saklaw ng mga cell. Kung nais mong piliin ang saklaw sa aming sarili at pagkatapos ay alisin ang mga duplicate kung gayon kailangan naming gamitin ang variable upang gumana. Sa halimbawa sa ibaba ay ipapakita ko sa iyo kung paano gumamit ng mga variable sa VBA.

Inalis ang VBA - Mga Halimbawa # 2

Sa halimbawa sa itaas, partikular naming naibigay ang saklaw ng mga cell. Ngayon ay makikita natin kung paano gumana sa pagpili ng sariling mga cell.

Halimbawa, mayroon akong ilang mga hanay ng data tulad ng ipinakita sa larawan sa ibaba.

Sa tuwing hindi ko matukoy ang saklaw ng mga cell nang malinaw, kaya itatalaga namin ang pagpipilian bilang saklaw.

Hakbang 1: Ipahayag ang variable bilang Saklaw.

Code:

 Sub Delete_Duplicates_Example2 () Dim Rng As Range End Sub 

Hakbang 2: Ang saklaw ay isang bagay na gagawin namin itakda ang saklaw bilang aming pagpipilian.

Code:

 Sub Delete_Duplicates_Example2 () Dim Rng As Range Set Rng = Selection End Sub 

Hakbang 3: Ngayon sa halip na isang hanay ng mga cell maaari naming gamitin ang variable na "rng”.

Code:

 Sub Remov_Duplicates_Example2 () Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns: = 1, Header: = xlYes End Sub 

Bago namin patakbuhin ang code kailangan naming piliin muna ang saklaw ng mga cell pagkatapos ay maaari naming alisin ang mga duplicate mula sa napiling saklaw ng mga cell.

Tanggalin ng VBA ang Mga Duplicate mula sa Maramihang Mga Haligi - Halimbawa # 3

Maaari din naming gamitin ang VBA upang alisin ang mga duplicate na halaga mula sa mga haligi ng excel. Upang maalis ang maraming mga haligi, kailangan naming gumamit ng Array at banggitin ang mga numero ng haligi.

Halimbawa, tingnan ang halimbawa ng imahe ng data.

Mayroon kaming mga dobleng halaga sa unang haligi at ika-apat na haligi. Kaya aalisin namin mula sa mga haligi na ito. Gamitin ang code sa ibaba sa VBA upang alisin ang mga duplicate.

Code:

 Sub Delete_Duplicates_Example3 () Dim Rng Bilang Saklaw na Itakda Rng = Saklaw ("A1: D9") Rng.RemoveDuplicates Columns: = Array (1, 4), Header: = xlYes End Sub 

Maaari mong i-download ang VBA na Tanggalin ang Duplicates Excel dito. Alisin ng VBA ang Duplicates Excel Template