පරාසයකින් හිස් කොටු ඉවත් කිරීම

ගැටලුව සකස් කිරීම

හිස් කොටු අඩංගු දත්ත සහිත සෛල පරාසයක් අප සතුව ඇත:

 

කාර්යය වන්නේ හිස් සෛල ඉවත් කිරීම, තොරතුරු සහිත සෛල පමණක් ඉතිරි කිරීමයි.

ක්රමය 1. රළු සහ වේගවත්

  1. මුල් පරාසය තෝරා ගැනීම
  2. යතුර ඔබන්න F5, ඊළඟ බොත්තම පෙනුම (විශේෂ). විවෘත වන කවුළුව තුළ, තෝරන්න හිස් සෛල(හිස් තැන්) ක්ලික් කරන්න OK.

    පරාසයකින් හිස් කොටු ඉවත් කිරීම

    පරාසයේ ඇති සියලුම හිස් කොටු තෝරා ඇත.

  3. තෝරාගත් සෛල මකා දැමීමට අපි මෙනුවේ විධානයක් ලබා දෙන්නෙමු: දකුණු-ක්ලික් කරන්න- සෛල මකන්න (සෛල මකන්න) ඉහළට මාරුවීම සමඟ.

ක්රමය 2: Array Formula

සරල කිරීමට, භාවිතා කරමින් අපගේ වැඩ කරන පරාසයන් නම් කරමු නම කළමනාකරු (නම කළමනාකරු) ටැබ් සූත්රය (සූත්‍ර) හෝ, Excel 2003 සහ පැරණි, මෙනුව ඇතුල් කරන්න - නම - පැවරීම (ඇතුළු කරන්න - නම - නිර්වචනය කරන්න)

 

B3:B10 පරාසය නම් කරන්න හිස් ඇත, පරාසය D3:D10 – හිස් නැත. පරාස දැඩි ලෙස එකම ප්‍රමාණය විය යුතු අතර, එකිනෙකට සාපේක්ෂව ඕනෑම ස්ථානයක ස්ථානගත කළ හැක.

දැන් දෙවන පරාසයේ (D3) පළමු කොටුව තෝරා මෙම භයානක සූත්‍රය එයට ඇතුල් කරන්න:

=IF(පේළිය() -පේළිය(NoEmpty)+1>NOTROWS(YesEmpty)-COUNTBLANK(YesEmpty);"";INDIRECT(ADDRESS(LowEST(IF(Impty<>"",ROW(Empty);ROW);ROW() + පේළි (හිස් ඇත))); රේඛාව ()-පේළිය (හිස් නැත)+1); තීරුව (හිස් ඇත); 4)))

ඉංග්රීසි අනුවාදයේ එය වනු ඇත:

=IF(පේළිය()-පේළිය(හිස් නොවේ)+1>පේළි(හිස්)-COUNTBLANK(හිස්),””,INDIRECT(ADDRESS(SMALL(IF(Impty<>“”),ROW(හිස්),ROW() +පේළි(හිස් තිබේ))), පේළි()-පේළිය(හිස් නැත)+1),තීරුව(හිස් තිබේ),4)))

එපමණක් නොව, එය අරා සූත්‍රයක් ලෙස ඇතුළත් කළ යුතුය, එනම් ඇලවීමෙන් පසු ඔබන්න ඇතුලත් කරන්න (සාමාන්‍ය පරිදි) සහ Ctrl + Shift + ඇතුල් කරන්න. දැන් සූත්‍රය ස්වයංක්‍රීය සම්පුර්ණ කිරීම භාවිතයෙන් පිටපත් කළ හැකිය (සෛලයේ පහළ දකුණු කෙළවරේ කළු කුරුසය ඇදගෙන යන්න) - එවිට අපට මුල් පරාසය ලැබෙනු ඇත, නමුත් හිස් කොටු නොමැතිව:

 

ක්රමය 3. VBA හි අභිරුචි කාර්යය

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

මෙය සිදු කිරීම සඳහා, දෘශ්‍ය මූලික සංස්කාරකය විවෘත කරන්න (ALT + F11), නව හිස් මොඩියුලයක් ඇතුළු කරන්න (මෙනුව ඇතුල් කරන්න - මොඩියුලය) සහ මෙම ශ්‍රිතයේ පෙළ එහි පිටපත් කරන්න:

ශ්‍රිතය NoBlanks(DataRange as Range) ප්‍රභේදයක් ලෙස() Dim N තරම් Dim N2 Dim Rng ලෙස Dim MaxCells දිගු අඳුරු ප්‍රතිඵලයක් ලෙස() Dim R ලෙස දිගු Dim C ලෙස MaxCells = Application.WorksheetFunction.Max( Application.Caller.Cells.Count, DataRange.Cells.Count) ReDim Result (1 සිට MaxCells දක්වා, 1 සිට 1 දක්වා) DataRange හි එක් එක් Rng. Cells Rng.Value <> vbNullString නම් N = N + 1 ප්‍රතිඵලය(N, 1 ) = Rng.Value End නම් මීළඟ Rng සඳහා N2 = N + 1 වෙත MaxCells ප්‍රතිඵලය (N2, 1) = vbNullString ඊළඟ N2 නම් Application.Caller.Rows.Count = 1 එවිට NoBlanks = Application.Transpose(ප්‍රතිඵල) වෙනත් NoBlanks = ප්‍රතිඵලය End If End Function

ගොනුව සුරැකීමට සහ දෘශ්‍ය මූලික සංස්කාරකයේ සිට එක්සෙල් වෙත ආපසු යාමට අමතක නොකරන්න. අපගේ උදාහරණයේ මෙම කාර්යය භාවිතා කිරීමට:

  1. ප්රමාණවත් හිස් සෛල පරාසයක් තෝරන්න, උදාහරණයක් ලෙස F3:F10.
  2. මෙනුවට යන්න ඇතුල් කරන්න - කාර්යය (ඇතුළු කරන්න - කාර්යය)හෝ බොත්තම මත ක්ලික් කරන්න කාර්යය ඇතුල් කරන්න (කාර්යය ඇතුළු කරන්න) ටැබ් සූත්රය (සූත්‍ර) Excel හි නව අනුවාද වල. කාණ්ඩයේ පරිශීලක අර්ථ දක්වා ඇත (පරිශීලක අර්ථ දක්වා ඇත) අපගේ කාර්යය තෝරන්න NoBlanks.
  3. ශ්‍රිත තර්කය ලෙස හිස් (B3:B10) සහිත මූලාශ්‍ර පරාසය සඳහන් කර ඔබන්න Ctrl + Shift + ඇතුල් කරන්නශ්‍රිතය අරාව සූත්‍රයක් ලෙස ඇතුළු කිරීමට.

:

  • සරල මැක්‍රෝ එකකින් වගුවක ඇති සියලුම හිස් පේළි එකවර මකා දැමීම
  • PLEX ඇඩෝනය භාවිතයෙන් වැඩ පත්‍රිකාවක ඇති සියලුම හිස් පේළි එකවර ඉවත් කිරීම
  • සියලුම හිස් කොටු ඉක්මනින් පුරවන්න
  • මැක්‍රෝස් යනු මොනවාද, VBA තුළ මැක්‍රෝ කේතය ඇතුළත් කළ යුතු ස්ථානය

 

ඔබමයි