ವ್ಯಾಪ್ತಿಯಿಂದ ಖಾಲಿ ಕೋಶಗಳನ್ನು ತೆಗೆದುಹಾಕಲಾಗುತ್ತಿದೆ

ಸಮಸ್ಯೆಯ ಸೂತ್ರೀಕರಣ

ಖಾಲಿ ಸೆಲ್‌ಗಳನ್ನು ಒಳಗೊಂಡಿರುವ ಡೇಟಾದೊಂದಿಗೆ ಸೆಲ್‌ಗಳ ಶ್ರೇಣಿಯನ್ನು ನಾವು ಹೊಂದಿದ್ದೇವೆ:

ಕಾರ್ಯವು ಖಾಲಿ ಕೋಶಗಳನ್ನು ತೆಗೆದುಹಾಕುವುದು, ಮಾಹಿತಿಯೊಂದಿಗೆ ಕೋಶಗಳನ್ನು ಮಾತ್ರ ಬಿಡುವುದು.

ವಿಧಾನ 1. ಒರಟು ಮತ್ತು ವೇಗ

1. ಮೂಲ ಶ್ರೇಣಿಯನ್ನು ಆಯ್ಕೆ ಮಾಡಲಾಗುತ್ತಿದೆ
2. ಕೀಲಿಯನ್ನು ಒತ್ತಿ F5, ಮುಂದಿನ ಬಟನ್ ಹೈಲೈಟ್ (ವಿಶೇಷ). ತೆರೆಯುವ ವಿಂಡೋದಲ್ಲಿ, ಆಯ್ಕೆಮಾಡಿ ಖಾಲಿ ಕೋಶಗಳು(ಖಾಲಿಗಳು) ಮತ್ತು ಕ್ಲಿಕ್ ಮಾಡಿ OK.

   

   ವ್ಯಾಪ್ತಿಯಲ್ಲಿರುವ ಎಲ್ಲಾ ಖಾಲಿ ಕೋಶಗಳನ್ನು ಆಯ್ಕೆಮಾಡಲಾಗಿದೆ.

3. ಆಯ್ದ ಕೋಶಗಳನ್ನು ಅಳಿಸಲು ನಾವು ಮೆನುವಿನಲ್ಲಿ ಆಜ್ಞೆಯನ್ನು ನೀಡುತ್ತೇವೆ: ಬಲ ಕ್ಲಿಕ್ ಮಾಡಿ- ಕೋಶಗಳನ್ನು ಅಳಿಸಿ (ಕೋಶಗಳನ್ನು ಅಳಿಸಿ) ಮೇಲ್ಮುಖ ಬದಲಾವಣೆಯೊಂದಿಗೆ.

ವಿಧಾನ 2: ಅರೇ ಫಾರ್ಮುಲಾ

ಸರಳಗೊಳಿಸಲು, ಬಳಸಿ ನಮ್ಮ ಕೆಲಸದ ಶ್ರೇಣಿಗಳನ್ನು ಹೆಸರಿಸೋಣ ಹೆಸರು ವ್ಯವಸ್ಥಾಪಕ (ಹೆಸರು ನಿರ್ವಾಹಕ) ಟ್ಯಾಬ್ ಸೂತ್ರ (ಸೂತ್ರಗಳು) ಅಥವಾ, ಎಕ್ಸೆಲ್ 2003 ಮತ್ತು ಹಳೆಯದರಲ್ಲಿ, ಮೆನು ಸೇರಿಸಿ - ಹೆಸರು - ನಿಯೋಜಿಸಿ (ಸೇರಿಸು - ಹೆಸರು - ವ್ಯಾಖ್ಯಾನಿಸಿ)

B3:B10 ಶ್ರೇಣಿಯನ್ನು ಹೆಸರಿಸಿ ಖಾಲಿ ಇದೆ, ಶ್ರೇಣಿ D3:D10 – ಯಾವುದೂ ಖಾಲಿ ಇಲ್ಲ. ಶ್ರೇಣಿಗಳು ಕಟ್ಟುನಿಟ್ಟಾಗಿ ಒಂದೇ ಗಾತ್ರದಲ್ಲಿರಬೇಕು ಮತ್ತು ಪರಸ್ಪರ ಸಂಬಂಧಿತವಾಗಿ ಎಲ್ಲಿಯಾದರೂ ನೆಲೆಗೊಳ್ಳಬಹುದು.

ಈಗ ಎರಡನೇ ಶ್ರೇಣಿಯ (D3) ಮೊದಲ ಕೋಶವನ್ನು ಆಯ್ಕೆಮಾಡಿ ಮತ್ತು ಈ ಭಯಾನಕ ಸೂತ್ರವನ್ನು ಅದರಲ್ಲಿ ನಮೂದಿಸಿ:

=IF(ROW() -ROW(NoEmpty)+1>ನೋಟ್ರೋಗಳು(YesEmpty)-COUNTBLANK(YesEmpty);"";INDIRECT(ADDRESS(LowEST(IF(ಖಾಲಿ<>"",ROW(ಖಾಲಿ);ROW() + ಸಾಲುಗಳು (ಖಾಲಿ ಇವೆ))); LINE ()-ಸಾಲು (ಖಾಲಿ ಇಲ್ಲ)+1); ಕಾಲಮ್ (ಖಾಲಿ ಇವೆ); 4)))

ಇಂಗ್ಲಿಷ್ ಆವೃತ್ತಿಯಲ್ಲಿ ಅದು ಹೀಗಿರುತ್ತದೆ:

=IF(ROW()-ROW(NoEmpty)+1>ಸಾಲುಗಳು(ಖಾಲಿ)-COUNTBLANK(ಖಾಲಿ),””,INDIRECT(ADDRESS(SMALL(IF(Impty<>“”),ROW(ಖಾಲಿ),ROW() +ಸಾಲುಗಳು(ಖಾಲಿಯನ್ನು ಹೊಂದಿವೆ)),ಸಾಲು()-ಸಾಲು(ಇಲ್ಲ ಖಾಲಿ)+1),ಕಾಲಮ್(ಖಾಲಿಯನ್ನು ಹೊಂದಿದೆ),4)))

ಮೇಲಾಗಿ, ಇದನ್ನು ಅರೇ ಸೂತ್ರದಂತೆ ನಮೂದಿಸಬೇಕು, ಅಂದರೆ ಅಂಟಿಸಿದ ನಂತರ ಒತ್ತಿರಿ ನಮೂದಿಸಿ (ಎಂದಿನಂತೆ) ಮತ್ತು Ctrl + Shift + Enter. ಈಗ ಸೂತ್ರವನ್ನು ಸ್ವಯಂಪೂರ್ಣತೆಯನ್ನು ಬಳಸಿಕೊಂಡು ನಕಲಿಸಬಹುದು (ಸೆಲ್‌ನ ಕೆಳಗಿನ ಬಲ ಮೂಲೆಯಲ್ಲಿ ಕಪ್ಪು ಶಿಲುಬೆಯನ್ನು ಎಳೆಯಿರಿ) - ಮತ್ತು ನಾವು ಮೂಲ ಶ್ರೇಣಿಯನ್ನು ಪಡೆಯುತ್ತೇವೆ, ಆದರೆ ಖಾಲಿ ಕೋಶಗಳಿಲ್ಲದೆ:

ವಿಧಾನ 3. VBA ನಲ್ಲಿ ಕಸ್ಟಮ್ ಕಾರ್ಯ

ಶ್ರೇಣಿಗಳಿಂದ ಖಾಲಿ ಕೋಶಗಳನ್ನು ತೆಗೆದುಹಾಕುವ ವಿಧಾನವನ್ನು ನೀವು ಆಗಾಗ್ಗೆ ಪುನರಾವರ್ತಿಸಬೇಕಾಗಬಹುದು ಎಂಬ ಅನುಮಾನವಿದ್ದರೆ, ಖಾಲಿ ಕೋಶಗಳನ್ನು ತೆಗೆದುಹಾಕಲು ನಿಮ್ಮ ಸ್ವಂತ ಕಾರ್ಯವನ್ನು ಒಮ್ಮೆ ಪ್ರಮಾಣಿತ ಸೆಟ್‌ಗೆ ಸೇರಿಸುವುದು ಉತ್ತಮ ಮತ್ತು ನಂತರದ ಎಲ್ಲಾ ಸಂದರ್ಭಗಳಲ್ಲಿ ಅದನ್ನು ಬಳಸುವುದು ಉತ್ತಮ.

ಇದನ್ನು ಮಾಡಲು, ವಿಷುಯಲ್ ಬೇಸಿಕ್ ಎಡಿಟರ್ ಅನ್ನು ತೆರೆಯಿರಿ (ALT + F11), ಹೊಸ ಖಾಲಿ ಮಾಡ್ಯೂಲ್ ಅನ್ನು ಸೇರಿಸಿ (ಮೆನು ಸೇರಿಸಿ - ಮಾಡ್ಯೂಲ್) ಮತ್ತು ಈ ಕಾರ್ಯದ ಪಠ್ಯವನ್ನು ಅಲ್ಲಿ ನಕಲಿಸಿ:

ಕಾರ್ಯ NoBlanks(DataRange as Range) ಭಿನ್ನವಾಗಿ() Dim N As Long Dim N2 As Long Dim Rng As Long Dim Rng As Long Dim MaxCells As Long Dim R As Long Dim C As Long MaxCells = Application.WorksheetFunction.Max( Application.Caller.Cells.Count, DataRange.Cells.count) ReDim ಫಲಿತಾಂಶ(1 ರಿಂದ MaxCells, 1 ರಿಂದ 1) DataRange ನಲ್ಲಿ ಪ್ರತಿಯೊಂದು Rng. ಸೆಲ್‌ಗಳು Rng.ಮೌಲ್ಯ <> vbNullString ಆಗಿದ್ದರೆ N = N + 1 ಫಲಿತಾಂಶ(N, 1 Rng ಎಂಡ್ ಇಫ್ ಎಂಡ್ ಫಂಕ್ಷನ್  

ಫೈಲ್ ಅನ್ನು ಉಳಿಸಲು ಮರೆಯಬೇಡಿ ಮತ್ತು ವಿಷುಯಲ್ ಬೇಸಿಕ್ ಎಡಿಟರ್‌ನಿಂದ ಎಕ್ಸೆಲ್‌ಗೆ ಹಿಂತಿರುಗಿ. ನಮ್ಮ ಉದಾಹರಣೆಯಲ್ಲಿ ಈ ಕಾರ್ಯವನ್ನು ಬಳಸಲು:

1. ಖಾಲಿ ಕೋಶಗಳ ಸಾಕಷ್ಟು ಶ್ರೇಣಿಯನ್ನು ಆಯ್ಕೆಮಾಡಿ, ಉದಾಹರಣೆಗೆ F3:F10.
2. ಮೆನುಗೆ ಹೋಗಿ ಸೇರಿಸಿ - ಕಾರ್ಯ (ಸೇರಿಸು - ಕಾರ್ಯ)ಅಥವಾ ಬಟನ್ ಮೇಲೆ ಕ್ಲಿಕ್ ಮಾಡಿ ಕಾರ್ಯವನ್ನು ಸೇರಿಸಿ (ಕಾರ್ಯವನ್ನು ಸೇರಿಸಿ) ಟ್ಯಾಬ್ ಸೂತ್ರ (ಸೂತ್ರಗಳು) ಎಕ್ಸೆಲ್ ನ ಹೊಸ ಆವೃತ್ತಿಗಳಲ್ಲಿ. ವರ್ಗದಲ್ಲಿ ಬಳಕೆದಾರ ವ್ಯಾಖ್ಯಾನಿಸಲಾಗಿದೆ (ಬಳಕೆದಾರರು ವ್ಯಾಖ್ಯಾನಿಸಿದ್ದಾರೆ) ನಮ್ಮ ಕಾರ್ಯವನ್ನು ಆರಿಸಿ ನೋಬ್ಲಾಂಕ್ಸ್.
3. ಫಂಕ್ಷನ್ ಆರ್ಗ್ಯುಮೆಂಟ್‌ನಂತೆ ಶೂನ್ಯಗಳೊಂದಿಗೆ ಮೂಲ ಶ್ರೇಣಿಯನ್ನು (B3:B10) ಸೂಚಿಸಿ ಮತ್ತು ಒತ್ತಿರಿ Ctrl + Shift + Enterರಚನೆಯ ಸೂತ್ರದಂತೆ ಕಾರ್ಯವನ್ನು ನಮೂದಿಸಲು.

:

• ಸರಳ ಮ್ಯಾಕ್ರೋದೊಂದಿಗೆ ಒಂದೇ ಬಾರಿಗೆ ಟೇಬಲ್‌ನಲ್ಲಿರುವ ಎಲ್ಲಾ ಖಾಲಿ ಸಾಲುಗಳನ್ನು ಅಳಿಸಲಾಗುತ್ತಿದೆ
• PLEX ಆಡ್-ಆನ್ ಬಳಸಿ ವರ್ಕ್‌ಶೀಟ್‌ನಲ್ಲಿರುವ ಎಲ್ಲಾ ಖಾಲಿ ಸಾಲುಗಳನ್ನು ಏಕಕಾಲದಲ್ಲಿ ತೆಗೆದುಹಾಕಲಾಗುತ್ತಿದೆ
• ಎಲ್ಲಾ ಖಾಲಿ ಕೋಶಗಳನ್ನು ತ್ವರಿತವಾಗಿ ಭರ್ತಿ ಮಾಡಿ
• ಮ್ಯಾಕ್ರೋಗಳು ಯಾವುವು, VBA ನಲ್ಲಿ ಮ್ಯಾಕ್ರೋ ಕೋಡ್ ಅನ್ನು ಎಲ್ಲಿ ಸೇರಿಸಬೇಕು