ባዶ ሴሎችን ከክልል በማስወገድ ላይ

የችግሩ መፈጠር

ባዶ ህዋሶችን የያዙ የተለያዩ ህዋሶች አሉን፡-

ስራው ባዶ ህዋሶችን ማስወገድ ነው, ሴሎች መረጃ ያላቸው ሴሎች ብቻ ይተዋሉ.

ዘዴ 1. ሻካራ እና ፈጣን

1. የመጀመሪያውን ክልል መምረጥ
2. ቁልፉን ይጫኑ F5, ቀጣይ አዝራር አድምቅ (ልዩ). በሚከፈተው መስኮት ውስጥ ይምረጡ ባዶ ሕዋሳት(ባዶ) እና ጠቅ ያድርጉ OK.

   

   በክልል ውስጥ ያሉት ሁሉም ባዶ ህዋሶች ተመርጠዋል።

3. የተመረጡ ሴሎችን ለመሰረዝ በምናሌው ውስጥ ትእዛዝ እንሰጣለን: ቀኝ-ጠቅ ያድርጉ- ሴሎችን ሰርዝ (ሕዋሶችን ሰርዝ) ወደ ላይ ፈረቃ ጋር.

ዘዴ 2: የድርድር ቀመር

ለማቃለል፣ በመጠቀም የስራ ክፍሎቻችንን እንሰይም። የስም አስተዳዳሪ (ስም አስተዳዳሪ) ትር ፎርሙላ (ፎርሙላዎች) ወይም, በ Excel 2003 እና ከዚያ በላይ, ምናሌ አስገባ - ስም - መድብ (አስገባ - ስም - ፍቺ)

ክልሉን B3፡B10 ይሰይሙ ባዶ ይኑራችሁክልል D3:D10 – ባዶ የለም. ክልሎች በጥብቅ ተመሳሳይ መጠን መሆን አለባቸው, እና አንዳቸው ከሌላው አንጻራዊ በማንኛውም ቦታ ሊገኙ ይችላሉ.

አሁን የሁለተኛውን ክልል የመጀመሪያውን ሕዋስ (D3) ምረጥ እና ይህን አስፈሪ ቀመር አስገባበት፡

=IF(ROW() -ROW(ምንም ባዶ)+1>NOTROWS(YesEmpty)-COUNTBLANK(YesEmpty);"""፣ ቀጥተኛ ያልሆነ(አድራሻ(ዝቅተኛው((ከሆነ( ባዶ)<>"", ረድፍ(ባዶ)); ረድፍ() + ROWS(ባዶ ናቸው))))) መስመር()-ROW( ባዶ የለም)+1)፤ ዓምድ(ባዶ አሉ)፤ 4)))

በእንግሊዝኛው እትም ውስጥ የሚከተለው ይሆናል-

=IF(ROW()-ROW(ምንም ባዶ)+1>ረድፎች(ባዶ) -COUNTBLANK(ባዶ)፣””፣በቀጥታ(አድራሻ(አነስተኛ((ከባዶ)<>“”፣ROW(ባዶ)፣ROW() +ROWS(ባዶ)))፣ROW()-ROW(ምንም ባዶ)+1)፣አምድ(ባዶ)፣4)))

ከዚህም በላይ እንደ ድርድር ቀመር ማለትም ከተለጠፈ በኋላ ተጫን አስገባ (እንደተለመደው) እና Ctrl + Shift + Enter ይጫኑ. አሁን ቀመሩን በራስ-አጠናቅቅ በመጠቀም ወደ ታች መቅዳት ይቻላል (ጥቁር መስቀልን በሴሉ ታችኛው ቀኝ ጥግ ላይ ይጎትቱ) - እና ዋናውን ክልል እናገኛለን ፣ ግን ያለ ባዶ ህዋሶች

ዘዴ 3. በ VBA ውስጥ ብጁ ተግባር

ባዶ ሴሎችን ከክልሎች ውስጥ የማስወገድ ሂደቱን ብዙ ጊዜ መድገም ይኖርብዎታል የሚል ጥርጣሬ ካለ ባዶ ሴሎችን የማስወገድ ተግባር አንድ ጊዜ ወደ መደበኛው ስብስብ ማከል እና በቀጣዮቹ ጉዳዮች ሁሉ መጠቀም የተሻለ ነው።

ይህንን ለማድረግ የ Visual Basic Editor ን ይክፈቱ (ALT + F11አዲስ ባዶ ሞጁል አስገባ (ምናሌ አስገባ - ሞጁል) እና የዚህን ተግባር ጽሑፍ እዚያ ይቅዱ፡-

ተግባር NoBlanks(የውሂብ ክልል እንደ ክልል) እንደ ተለዋጭ() Dim N እንደ ረጅም Dim N2 እንደ ረጅም Dim Rng እንደ ክልል Dim MaxCells እንደ ረጅም ድምቀት ውጤት() እንደ ተለዋጭ ዲም አር እንደ ረጅም Dim C እንደ ረጅም MaxCells = መተግበሪያ.የስራ ሉህFunction.Max( _ Application.Caller.Cells.Count, DataRange.Cells.Count) ReDim Result(1 To MaxCells, 1 To 1) ለእያንዳንዱ Rng በዳታ ክልል ውስጥ።ሴሎች ከ Rng.Value <> vbNullString ከዚያም N = N + 1 ውጤት(N, 1) ) = Rng.Value End ከሚቀጥለው Rng ለ N2 = N + 1 ወደ MaxCells ውጤት(N2, 1) = vbNullString ቀጣይ N2 ማመልከቻ ከሆነ.Caller.Rows.Count = 1 ከዚያም NoBlanks = Application.Transpose (ውጤት) ሌላ NoBlanks = ውጤት ከመጨረሻው ተግባር ጨርስ  

ፋይሉን ማስቀመጥ እና ከ Visual Basic Editor ወደ Excel መመለስን አይርሱ። ይህንን ተግባር በእኛ ምሳሌ ለመጠቀም፡-

1. በቂ የሆነ ባዶ ሴሎችን ይምረጡ፣ ለምሳሌ F3፡F10።
2. ወደ ምናሌው ይሂዱ አስገባ - ተግባር (አስገባ - ተግባር)ወይም አዝራሩን ጠቅ ያድርጉ ተግባር አስገባ (ተግባር አስገባ) ትር ፎርሙላ (ፎርሙላዎች) በአዲሶቹ የ Excel ስሪቶች ውስጥ። በምድብ ተጠቃሚ ተገልጻል (በተጠቃሚ የተገለጸ) ተግባራችንን ይምረጡ ምንም ባዶዎች.
3. የምንጩን ክልል በባዶዎች (B3፡B10) እንደ የተግባር ክርክር ይግለጹ እና ይጫኑ Ctrl + Shift + Enter ይጫኑተግባሩን እንደ ድርድር ቀመር ለማስገባት.

:

• ሁሉንም ባዶ ረድፎችን በአንድ ጊዜ በቀላል ማክሮ በመሰረዝ ላይ
• የPLEX ተጨማሪን በመጠቀም ሁሉንም ባዶ ረድፎችን በአንድ ጊዜ በስራ ሉህ ውስጥ ማስወገድ
• ሁሉንም ባዶ ሕዋሳት በፍጥነት ይሙሉ
• ማክሮዎች ምንድን ናቸው፣ በ VBA ውስጥ የማክሮ ኮድ የት እንደሚያስገባ