අන්තර්ගත වගුව
Excel හි ඇති වැදගත්ම ක්‍රියාකාරකම්වලින් එකක් වන්නේ දී ඇති දත්ත කට්ටලයකින් අනුපිටපත් ඉවත් කිරීමයි . අද මම පෙන්වන්නම් VBA පමණක් භාවිතයෙන් Excel හි අනුපිටපත් ඉවත් කරන ආකාරය.
ප්‍රායෝගික වැඩපොත බාගන්න
VBA.xlsm සමඟ Excel හි අනුපිටපත් ඉවත් කරන්න
3 අනුපිටපත් ඉවත් කිරීමට Excel හි VBA භාවිතා කිරීමට ඉක්මන් ක්රම
මෙහි අපට නම්, හැඳුනුම්පත්,<සමඟ දත්ත කට්ටලයක් තිබේ. Sunflower Kindergarten නම් පාසලේ සමහර සිසුන්ගේ විභාගයේ 2> ලකුණු, සහ ශ්‍රේණි .
හොඳින් බැලුවොත් , සමහර නම් වැරදි ලෙස පුනරාවර්තනය වී ඇති බව ඔබට පෙනී යනු ඇත.
අද අපගේ අරමුණ වන්නේ Excel VBA භාවිතයෙන් අනුපිටපත් අගයන් ඉවත් කිරීමයි.
1. ස්ථාවර සෛල පරාසයෙන් අනුපිටපත් ඉවත් කිරීමට VBA භාවිතා කරන්න
මුලින්ම, අපි VBA හි ස්ථාවර සෛල පරාසයක් භාවිතයෙන් අනුපිටපත් නම් ඉවත් කිරීමට උත්සාහ කරමු. කේතය.
මෙහි, අපගේ දත්ත කට්ටලය වැඩපොතෙහි B3:E15 පරාසයයි ( තීරු ශීර්ෂ ඇතුළුව).
අපි භාවිතා කරන්නෙමු. මෙම ස්ථාවර සෛල පරාසය මෙහි කේතයේ ඇත.
පියවර 1:
➤ නව VBA කවුළුවක් විවෘත කර නව මොඩියුලයක් ඇතුළු කරන්න (මෙහි ක්ලික් කරන්න බැලීමට එක්සෙල් හි නව VBA මොඩියුලයක් විවෘත කර ඇතුළු කරන්නේ කෙසේද).
➤ මෙම කේතය මොඩියුලයට ඇතුළු කරන්න:
කේතය:
6313
➤ එය Remove_Duplicates නමින් මැක්‍රෝ එකක් නිපදවයි. A3:E14 යනු මගේ දත්ත කට්ටලයේ පරාසය වන අතර, මට තීරු 1 මත පදනම්ව අනුපිටපත් පේළි ඉවත් කිරීමට අවශ්‍යයි. ඔබටඔබගේ එක භාවිතා කරන්න.
පියවර 2:
➤ ඔබේ වැඩ පත්‍රිකාව වෙත ආපසු පැමිණ මෙම මැක්‍රෝව ධාවනය කරන්න (කෙසේදැයි බැලීමට මෙහි ක්ලික් කරන්න Macro ධාවනය කිරීමට).
➤ එය තීරුව 1 හි අනුපිටපත් සහිත පේළි ඉවත් කරයි ( ශිෂ්‍ය නම).
වැඩිදුර කියවන්න: Excel හි අනුපිටපත් මකා දැමිය හැකි නමුත් එකක් තබා ගන්නේ කෙසේද (ක්රම 7)
2. තෝරාගත් සෛල පරාසයෙන් අනුපිටපත් ඉවත් කිරීමට VBA කේත ඇතුළත් කරන්න
දැන් අපි වැඩ පත්‍රිකාවේ ඕනෑම තෝරාගත් සෛල පරාසයකින් අනුපිටපත් ඉවත් කළ හැකි මැක්‍රෝ එකක් තැනීමට උත්සාහ කරමු.
පියවර 1:
➤ නව VBA කවුළුවක් නැවත විවෘත කර තවත් නව මොඩියුලයක් ඇතුල් කරන්න.
➤ මෙම කේතය මොඩියුලයට ඇතුල් කරන්න:
කේතය:
3312
➤ එය Remove_Duplicates නමින් මැක්‍රෝ එකක් නිපදවයි. මට තීරුව 1 මත පදනම්ව අනුපිටපත් පේළි ඉවත් කිරීමට අවශ්‍යයි. ඔබ ඔබේ එක භාවිතා කරයි.
පියවර 2:
➤ ඔබේ වැඩ පත්‍රිකාව වෙත ආපසු එන්න.
➤ තෝරන්න ඔබගේ දත්ත සකසා මෙම මැක්‍රෝව ක්‍රියාත්මක කරන්න.
➤ එය ඉහත කර ඇති දේම ක්‍රියාත්මක කරයි. 1 තීරුවේ අනුපිටපත් සහිත පේළි ඉවත් කරන්න ( ශිෂ්‍ය නම).
වැඩිදුර කියවන්න: අනුපිටපත ඉවත් කරන්නේ කෙසේද Excel හි පේළි (විධි 3)
සමාන කියවීම්
- Excel හි තීරුවෙන් අනුපිටපත් ඉවත් කරන්නේ කෙසේද (ක්රම 3)
- Excel VBA: Array එකකින් අනුපිටපත් ඉවත් කරන්න (උදාහරණ 2)
- අනුපිටපත් ඉවත් කර Excel හි පළමු අගය තබා ගන්නේ කෙසේද (ක්රම 5)
- ඉවත් කරන්නExcel හි පළමු සිදුවීම හැර අනුපිටපත් පේළි (මාර්ග 7)
- Excel හි අනුපිටපත් දෙකම ඉවත් කරන්නේ කෙසේද (පහසු ක්රම 5)
3. බහුවිධ තීරු වලින් අනුපිටපත් ඉවත් කිරීමට VBA මැක්‍රෝ කාවැද්දුව
මේ දක්වා අපි 1 තීරුවේ අනුපිටපත් ඇති පේළි ඉවත් කර ඇත ( ශිෂ්‍ය නම ).
නමුත් ඇත්ත වශයෙන්ම, සිසුන් දෙදෙනෙකුගේ නම් සමාන විය හැකිය, සෑම විටම නම් දෙකක් සමාන නම් එය වැරදියට එකතු වී ඇති බවක් අදහස් නොවේ.
නමුත් සිසුන් දෙදෙනෙකුගේ හැඳුනුම්පත් සමාන නම්, එවිට ඔවුන් එකම සිසුන් වේ. එවිට පේළිය ඉවත් කිරීමට නියමිතයි.
මෙවර අපි පේළි දෙකක නම සහ හැඳුනුම්පත යන දෙකම එකම නම් පේළිය ඉවත් කරන මැක්‍රෝ එකක් සංවර්ධනය කරමු.
පියවර 1 :
➤ නැවතත් අලුත් VBA කවුළුවක් විවෘත කර තවත් නව මොඩියුලයක් ඇතුල් කරන්න.
➤ මෙම කේතය මොඩියුලයට ඇතුල් කරන්න:
කේතය:
8705
➤ එය Remove_Duplicates නමින් මැක්‍රෝ එකක් නිපදවයි. මට තීරු 1 සහ 2 (නම සහ හැඳුනුම්පත) මත පදනම්ව අනුපිටපත් පේළි ඉවත් කිරීමට අවශ්‍යයි. ඔබ ඔබේ එක භාවිතා කරයි.
පියවර 2:
➤ ඔබේ වැඩ පත්‍රිකාව වෙත ආපසු එන්න.
➤ තෝරන්න ඔබගේ දත්ත සකසා මෙම මැක්‍රෝව ධාවනය කරන්න.
➤ මෙවර එය පේළි ඉවත් කරන්නේ නම සහ ශිෂ්‍ය හැඳුනුම්පත දෙකම එක නම් පමණි.
සටහන: මෙතැනදී එය Jennifer Marlo ඉවත් කර නැත, මන්ද සිසුන් දෙදෙනාගේ හැඳුනුම්පත් වෙනස් ය, එනම් ඔවුන් වෙනස් සිසුන් දෙදෙනෙක්.
වැඩිදුර කියවන්න: Excel VBA: බහුවිධ තීරු සංසන්දනය කරමින් අනුපිටපත් ඉවත් කරන්න (උදාහරණ 3)
නිගමනය
මෙම ක්රම භාවිතා කරමින්, ඔබට අනුපිටපත් ඉවත් කළ හැක VBA භාවිතයෙන් Excel හි දත්ත කට්ටලය. ඔබට ගැටළු තිබේද? අපෙන් අසන්න.
