මැක්‍රෝ, සූත්‍ර සහ බොත්තම් ක්ලික් කිරීමකින් Excel හි හිස් තීරු ඉවත් කරන්නේ කෙසේදැයි නිබන්ධනය ඔබට කියා දෙනු ඇත.

සුළු දෙයක් ලෙස පෙනෙන පරිදි, Excel හි හිස් තීරු මකා දැමීම හුදු මවුස් ක්ලික් කිරීමකින් කළ හැකි දෙයක් නොවේ. ඒක ක්ලික් දෙකකින් කරන්නත් බෑ. ඔබේ වැඩ පත්‍රිකාවේ ඇති සියලුම තීරු සමාලෝචනය කර හිස් ඒවා අතින් ඉවත් කිරීමේ අපේක්ෂාව අනිවාර්යයෙන්ම ඔබට වළක්වා ගැනීමට අවශ්‍ය දෙයකි. වාසනාවකට මෙන්, මයික්‍රොසොෆ්ට් එක්සෙල් විවිධ විශේෂාංග රාශියක් සපයන අතර, එම විශේෂාංග නිර්මාණාත්මක ආකාරයෙන් භාවිතා කිරීමෙන් ඔබට ඕනෑම කාර්යයකට පාහේ මුහුණ දිය හැක!

ඔබ කිසිදා නොකළ යුතු හිස් තීරු මකා දැමීමට ඉක්මන් ක්‍රමයක් භාවිතා කරන්න

එක්සෙල් හි හිස් තැන් ඉවත් කිරීමේදී (එය හිස් කොටු, පේළි හෝ තීරු වේවා), බොහෝ සබැඳි සම්පත් විශේෂයට යන්න > හිස් තැන්<2 මත රඳා පවතී> විධානය. කිසිවිටෙක එසේ නොකරන්න ඔබේ වැඩ පත්‍රිකාවල!

මෙම ක්‍රමය ( F5 > විශේෂ… > හිස් ) සොයා ගනී සහ පරාසය තුළ සියලු හිස් කොටු තෝරන්න:

දැන් ඔබ තෝරාගත් සෛල දකුණු-ක්ලික් කර Delete > සම්පූර්ණ තීරුව , අවම වශයෙන් එක් හිස් කොටුවක් අඩංගු සියලුම තීරු නැති වනු ඇත! ඔබ නොදැනුවත්වම එසේ කර ඇත්නම්, සියල්ල ආපසු ලබා ගැනීමට Ctrl + Z ඔබන්න.

දැන් ඔබ Excel හි හිස් තීරු මකා දැමීමට වැරදි ක්‍රමයක් දන්නා නිසා, එය නිවැරදිව කරන්නේ කෙසේදැයි බලමු.

VBA සමඟ Excel හි හිස් තීරු ඉවත් කරන්නේ කෙසේද

පළපුරුදුExcel භාවිතා කරන්නන් මෙම මාපටැඟිල්ලේ රීතිය දනී: අතින් යමක් කරමින් පැය ගණන් නාස්ති නොකිරීමට, ඔබ වෙනුවෙන් එය ස්වයංක්‍රීයව කරන මැක්‍රෝ එකක් ලිවීමට මිනිත්තු කිහිපයක් ආයෝජනය කරන්න.

පහත VBA මැක්‍රෝව තෝරාගත් සියලුම හිස් තීරු ඉවත් කරයි. පරාසය. එය මෙය ආරක්ෂිතව කරයි - සම්පූර්ණයෙන්ම හිස් තීරු පමණක් මකා දමනු ලැබේ. තීරුවක තනි කොටු අගයක් තිබේ නම්, කිසියම් සූත්‍රයක් මඟින් ආපසු ලබා දෙන හිස් තන්තුවක් වුවද, එවැනි තීරුවක් නොවෙනස්ව පවතිනු ඇත.

Excel macro: Excel පත්‍රයෙන් හිස් තීරු ඉවත් කරන්න Public Sub DeleteEmptyColumns() Dim SourceRange As Range Dim EntireColumn As Range Error Resume Next Set SourceRange = Application.InputBox(_ "පරාසයක් තෝරන්න:" , "හිස් තීරු මකන්න" , _ Application.Selection.Address, Type :=8) එසේ නොවේ නම් (SourceRange යනු කිසිවක් නැත ) ඉන්පසු Application.ScreenUpdating = Fal i = SourceRange.Columns සඳහා. 1 පියවරට ගණන් කරන්න -1 සම්පූර්ණ තීරුව = SourceRange.Cells(1, i).EntireColumn නම් Application.WorksheetFunction.CountA(EntireColumn) = 0 එවිට සම්පූර්ණ තීරුව.මකන්න End End If Next Application Enpdating.Scree නම් End Sub

Delete Empty Columns macro භාවිතා කරන්නේ කෙසේද

මෙන්න ඔබේ Excel වෙත මැක්‍රෝ එක එක් කිරීමට පියවර:

1. Visual Basic එක විවෘත කිරීමට Alt + F11 ඔබන්න. සංස්කරණය w.
2. මැක්‍රෝව ක්‍රියාත්මක කිරීමට F5 ඔබන්න.
3. pop-up dialog එක දිස්වන විට, වෙත මාරු වන්නඋනන්දුවක් දක්වන වැඩ පත්‍රිකාව, අවශ්‍ය පරාසය තෝරන්න, සහ OK ක්ලික් කරන්න:

ඔබට ඔබේ වැඩ පත්‍රිකාවට මැක්‍රෝ එකක් එක් කිරීමට අවශ්‍ය නැතිනම්, ඔබට එය අපගේ වෙතින් ක්‍රියාත්මක කළ හැක. නියැදි වැඩපොත. මෙන්න මෙහෙමයි:

1. Excel හි හිස් තීරු ඉවත් කිරීමට අපගේ නියැදි වැඩපොත බාගන්න, එය විවෘත කරන්න, සහ විමසන්නේ නම් අන්තර්ගතය සබල කරන්න.
2. ඔබගේම වැඩපොත විවෘත කරන්න නැතහොත් දැනටමත් විවෘත කර ඇති එකට මාරු වන්න.
3. ඔබගේ වැඩපොතෙහි Alt + F8 ඔබන්න, DeleteEmptyColumns macro තෝරන්න, සහ Run ක්ලික් කරන්න.
4. උපත ලැබෙන සංවාදයේ, තෝරන්න පරාසය සහ OK ක්ලික් කරන්න.

ඕනෑම ආකාරයකින්, තෝරාගත් පරාසයේ ඇති සියලුම හිස් තීරු බැහැර කරනු ලැබේ:

සූත්‍රයක් සමඟ Excel හි හිස් තීරු හඳුනාගෙන මකන්න

ඉහත මැක්‍රෝව හිස් තීරු ඉක්මනින් සහ නිහඬව ඉවත් කරයි. නමුත් ඔබ "සියල්ල පාලනය යටතේ තබා ගන්න" ආකාරයේ පුද්ගලයෙක් නම් (මම වගේ :) ඔබට ඉවත් කිරීමට යන තීරු දෘශ්‍යමය වශයෙන් දැකීමට අවශ්‍ය විය හැකිය. මෙම උදාහරණයේදී, අපි ප්‍රථමයෙන් හිස් තීරු හඳුනාගන්නේ සූත්‍රයක් භාවිතා කිරීමෙන් ඔබට ඉක්මනින් ඒවා සමාලෝචනය කිරීමට හැකි වන පරිදි, පසුව එම තීරු සියල්ල හෝ සමහරක් ඉවත් කිරීමට ය.

සටහන. කිසිවක් ස්ථිරවම මකා දැමීමට පෙර, විශේෂයෙන් නොදන්නා තාක්‍ෂණයක් භාවිතා කිරීමෙන්, යමක් වැරදී ගියහොත් ආරක්ෂිත පැත්තේ සිටීම සඳහා ඔබේ වැඩපොතෙහි උපස්ථ පිටපතක් සෑදීමට මම ඔබට තරයේ අවවාද කරමි.

ආරක්ෂිත ස්ථානයක උපස්ථ පිටපතක්, පහත පියවර සිදු කරන්න:

පියවර 1. නව එකක් ඇතුළු කරන්නපේළිය

ඔබේ මේසයේ ඉහලින් නව පේළියක් එක් කරන්න. මේ සඳහා, පළමු පේළි ශීර්ෂය දකුණු-ක්ලික් කර ඇතුළු කරන්න ක්ලික් කරන්න. ඔබේ දත්තවල ව්‍යුහය/විධිවිධාන විකෘති කිරීම ගැන කරදර නොවන්න - ඔබට මෙම පේළිය පසුව මකා දැමිය හැක.

පියවර 2. හිස් තීරු හඳුනා ගන්න

වමේ කෙළවරේ අලුතින් එකතු කරන ලද පේළියේ කොටුව, පහත සූත්‍රය ඇතුළු කරන්න:

=COUNTA(A2:A1048576)=0

ඉන්පසු, පිරවුම් හසුරුව ඇදගෙන යාමෙන් සූත්‍රය අනෙක් තීරුවලට පිටපත් කරන්න.

සූත්‍රයේ තර්කනය ඉතා සරලයි: COUNTA විසින් තීරුවේ ඇති හිස් කොටු ගණන, 2 පේළියේ සිට 1048576 පේළිය දක්වා පරීක්ෂා කරයි, එය Excel 2019 - 2007 හි උපරිම පේළියකි. ඔබ එම සංඛ්‍යාව බිංදුව සමඟ සංසන්දනය කර, එහි ප්‍රතිඵලයක් ලෙස, හිස් තීරුවල සත්‍ය ඇත සහ අවම වශයෙන් එක් හිස් නොවන කොටුවක් අඩංගු තීරු වල FALSE. සාපේක්ෂ සෛල යොමු භාවිතය හේතුවෙන්, සූත්‍රය පිටපත් කර ඇති එක් එක් තීරු සඳහා නිසි ලෙස ගැලපේ.

ඔබ වෙනත් අයෙකු සඳහා වැඩ පත්‍රිකාව සකසන්නේ නම්, ඔබට හැකිය තීරු වඩාත් අර්ථවත් ලෙස ලේබල් කිරීමට අවශ්‍යයි. ගැටලුවක් නැත, මෙයට සමාන IF ප්‍රකාශයකින් මෙය පහසුවෙන් කළ හැක:

=IF(COUNTA(A2:A1048576)=0, "Blank", "Not blank")

දැන් සූත්‍රය මඟින් හිස් සහ නැති තීරු මොනවාද යන්න පැහැදිලිව දක්වයි:

ඉඟිය. මැක්‍රෝ එකක් හා සසඳන විට, මෙම ක්‍රමය ඔබට හිස් ලෙස සැලකිය යුතු තීරු සම්බන්ධයෙන් වඩාත් නම්‍යශීලී බවක් ලබා දෙයි. මෙම උදාහරණයේදී, අපි ශීර්ෂ පේළිය ඇතුළුව මුළු වගුවම පරීක්ෂා කරමු. ඒ කියන්නේ තීරුවක් නම්ශීර්ෂයක් පමණක් අඩංගු වේ, එවැනි තීරුවක් හිස් ලෙස නොසලකන අතර මකා නොදමනු ලැබේ. ඔබ දත්ත පේළි පමණක් පරීක්ෂා කිරීමට කැමති නම් තීරු ශීර්ෂයන් නොසලකා හරිමින් , ඉලක්ක පරාසයෙන් (A3:A1048576) ශීර්ෂ පේළිය ඉවත් කරන්න. එහි ප්‍රතිඵලයක් ලෙස, ශීර්ෂයක් සහ එහි වෙනත් දත්ත නොමැති තීරුවක් හිස් ලෙස සලකනු ලබන අතර මකාදැමීමට යටත් වේ. එසේම, ඔබට පරාසය අවසන් වරට භාවිතා කළ පේළියට සීමා කළ හැකිය, එය අපගේ නඩුවේ A11 වනු ඇත.

පියවර 3. හිස් තීරු ඉවත් කරන්න

සාධාරණ තීරු ගණනක් තිබීම, ඔබට සරලව තෝරාගත හැක. පළමු පේළියේ "හිස්" ඇති ඒවා (තීරු කිහිපයක් තෝරා ගැනීමට, ඔබ තීරු අකුරු ක්ලික් කරන විට Ctrl යතුර අල්ලාගෙන සිටින්න). ඉන්පසුව, තෝරාගත් ඕනෑම තීරුවක් දකුණු-ක්ලික් කර, සන්දර්භය මෙනුවෙන් Delete තෝරන්න:

ඔබේ වැඩ පත්‍රිකාවේ තීරු දහයක් හෝ සිය ගණනක් තිබේ නම්, සියලුම හිස් ඒවා බැලීමට ගෙන ඒම අර්ථවත් කරයි. මේ සඳහා, පහත සඳහන් දේ කරන්න:

1. සූත්‍ර සහිත ඉහළ පේළිය තෝරන්න, දත්ත ටැබ් > වර්ග කර පෙරහන් කණ්ඩායම වෙත ගොස්, ක්ලික් කරන්න. Sort බොත්තම.
2. පෙනෙන අනතුරු ඇඟවීමේ සංවාද කොටුවේ, Expand the selection තෝරා, Sort...

   ක්ලික් කරන්න.

3. මෙය Sort සංවාද කොටුව විවෘත කරනු ඇත, එහිදී ඔබ විකල්ප... බොත්තම ක්ලික් කර, වමේ සිට දකුණට වර්ග කරන්න, තෝරන්න සහ OK ක්ලික් කරන්න.

   

4. පහත පෙන්වා ඇති ආකාරයට එක් වර්ගීකරණ මට්ටමක් පමණක් වින්‍යාස කර OK ක්ලික් කරන්න:
   • අනුපිළිවෙලින් වර්ග කරන්න: පේළිය 1
   • අනුපිළිවෙල: කොටුවඅගයන්
   • ඇණවුම: A සිට Z

   

   ප්‍රතිඵලයක් ලෙස, හිස් තීරු ඔබේ වැඩ පත්‍රිකාවේ වම් කොටසට ගෙන යනු ඇත:

   

5. සියලු හිස් තීරු තෝරන්න - පළමු තීරු ලිපිය මත ක්ලික් කරන්න, Shift ඔබන්න, ඉන්පසු අවසන් හිස් තීරුවේ අකුර ක්ලික් කරන්න.
6. දකුණ- තෝරාගත් තීරු ක්ලික් කර උත්පතන මෙනුවෙන් මකන්න තෝරන්න.

   

නිමයි! ඔබ හිස් තීරු ඉවත් කර ඇති අතර, සූත්‍ර සමඟ ඉහළ පේළිය මැකීමෙන් ඔබව වළක්වන කිසිවක් නැත.

Excel හි හිස් තීරු ඉවත් කිරීමට වේගවත්ම ක්‍රමය

මෙම නිබන්ධනය ආරම්භයේදී, මම ලිව්වේ එක්සෙල් හි හිස් තීරු මකා දැමීමට එක් ක්ලික් කිරීමේ ක්‍රමයක් නොමැති බවයි. ඇත්ත වශයෙන්ම, එය හරියටම සත්ය නොවේ. මට කියන්න තිබුනා ඉන්බිල්ට් ක්‍රමයක් නෑ කියලා. අපගේ Ultimate Suite භාවිතා කරන්නන්ට ක්ලික් කිරීම් කිහිපයකින් Excel හි හිස් තැන් ඉවත් කළ හැක :)

ඉලක්ක වැඩ පත්‍රිකාවේ, Ablebits මෙවලම් ටැබය වෙත මාරු වන්න, හිස් තැන් මකන්න<ක්ලික් කරන්න. 2> සහ තෝරන්න හිස් තීරු :

එය අහම්බෙන් සිදු වූ මූසික ක්ලික් කිරීමක් නොවන බව සහතික කර ගැනීමට, ඇඩෝනය එය තහවුරු කිරීමට ඔබෙන් අසනු ඇත. ඔබට ඇත්තටම එම වැඩ පත්‍රිකාවෙන් හිස් තීරු ඉවත් කිරීමට අවශ්‍යයි:

හරි ක්ලික් කරන්න, සහ මොහොතකින් සියලුම හිස් තීරු නැති වී යයි!

ඉහත සාකච්ඡා කළ මැක්‍රෝ මෙන්, මෙම මෙවලම මකන්නේ සම්පූර්ණයෙන්ම හිස් තීරු පමණි. ශීර්ෂ ඇතුළුව ඕනෑම තනි අගයක් ඇති තීරු වේසංරක්ෂණය කර ඇත.

හිස් තැන් මකන්න යනු Excel පරිශීලකයෙකු ලෙස ඔබේ ජීවිතය පහසු කළ හැකි අපූරු විශේෂාංග දහයකින් එකක් පමණි. තවත් සොයා ගැනීමට, Excel සඳහා අපගේ Ultimate Suite හි අත්හදා බැලීමේ අනුවාදයක් බාගැනීමට ඔබව සාදරයෙන් පිළිගනිමු.

හිස් තීරු මකා නොදමනු ලැබේ! ඇයි?

නිකුතුව : ඔබ ඉහත ක්‍රම සියල්ල උත්සාහ කර ඇත, නමුත් හිස් තීරු එකක් හෝ කිහිපයක් ඔබේ වැඩ පත්‍රිකාවේ සිරවී ඇත. ඇයි?

බොහෝ විට එම තීරු ඇත්තටම හිස් නැති නිසා. මිනිස් ඇසට නොපෙනෙන විවිධ අක්ෂර ඔබේ Excel පැතුරුම්පත්වල නොපෙනී සැඟවී සිටිය හැක, විශේෂයෙන් ඔබ බාහිර මූලාශ්‍රයකින් තොරතුරු ආනයනය කළේ නම්. එය හුදු හිස් තන්තුවක් හෝ අභ්‍යවකාශ අක්ෂරයක්, නොකැඩෙන ඉඩක් හෝ වෙනත් මුද්‍රණය නොවන අක්ෂරයක් විය හැකිය.

වැරදිකරුවා හඳුනා ගැනීමට, ගැටලුකාරී තීරුවේ පළමු කොටුව තෝරා Ctrl + පහළ ඊතලය ඔබන්න. . උදාහරණයක් ලෙස, C6 හි තනි අවකාශ අක්ෂරයක් නිසා පහත තිර පිටුවේ C තීරුව හිස් නොවේ:

ඇත්ත වශයෙන්ම එහි ඇති දේ බැලීමට හෝ සරලව සෛලය මත දෙවරක් ක්ලික් කරන්න නොදන්නා දෙයක් ඉවත් කිරීමට Delete යතුර ඔබන්න. ඉන්පසු එම තීරුවේ වෙනත් නොපෙනෙන දේවල් තිබේදැයි සොයා බැලීමට ඉහත ක්‍රියාවලිය නැවත කරන්න. ප්‍රමුඛ, පසුපසට යන සහ නොකැඩෙන අවකාශයන් ඉවත් කිරීමෙන් ඔබේ දත්ත පිරිසිදු කිරීමටද ඔබට අවශ්‍ය විය හැක.

කියවීම ගැන මම ඔබට ස්තූතිවන්ත වන අතර ලබන සතියේ ඔබව අපගේ බ්ලොගයේ දැකීමට බලාපොරොත්තු වෙමි!