Word jadvalidagi bir nechta satr yoki ustunlarni to'plamda yo'q qilishning 5 ta tezkor usuli

Hozir ulashing:

Ushbu maqolada biz sizga Word jadvalidagi bir nechta satr yoki ustunlarni ommaviy ravishda o'chirishning 5 ta tezkor usulini ko'rsatmoqchimiz.

Hujjatni ko'rishni osonlashtirish uchun biz ma'lumotlarni jadvallarga joylashtiramiz. Uzoq stol yaratish odatiy hol emas. Biroq, jadvalni qayta tekshirib, ba'zi qator va ustunlarni keraksiz deb topsangiz, ularni o'chirishning tezkor usuli kerak bo'ladi.Word jadvalidagi bir nechta satr yoki ustunlarni to'plamda o'chirish

Avval bir nechta ketma-ket satr yoki ustunlarni o'chirish usullarini ko'rib chiqamiz.

1-usul: Kontekst menyusi orqali satrlar yoki ustunlarni o'chirish

  1. Birinchidan, qatorlar yoki ustunlar qatorini tanlang va o'ng tugmasini bosing.
  2. Keyin mos ravishda "Qatorlarni o'chirish" yoki "Ustunlarni o'chirish" ni tanlang.    O'ng tugmasini bosing va "Qatorlarni o'chirish" -ni tanlang.
  3. Yoki siz satrlar yoki ustunlarni tanlashingiz va "Layout" tugmasini bosishingiz mumkin.
  4. Keyin "O'chirish" ni tanlang va "Ustunlarni o'chirish" yoki "Qatorlarni o'chirish" ni tanlang."Layout"-ni bosing->"O'chirish"-ni bosing->"Ustunlarni o'chirish" yoki "Qatorlarni o'chirish"-ni tanlang.

2-usul: Yorliqlardan foydalaning

  1. Birinchidan, qatorlar yoki ustunlarni tanlang.
  2. Ikkinchidan, "Backspace" tugmasini bosing.

Endi agar ustunlar yoki satrlar ketma-ket bo'lmasa, biz ularni yuqoridagi usullardan foydalanib o'chira olmaymiz. Buning o'rniga siz quyidagi usullarni qo'llashingiz mumkin.

3-usul: Keraksiz qatorlar yoki ustunlarni bir joyga qo'ying

  1. Avval satr yoki ustunni tanlang.
  2. Keyin sichqonchani bosing va ushlab turing.
  3. Sichqonchani kerakli joyga torting va qo'yib yuboring.
  4. Keyin hammasini tanlang tarqatorlar yoki ustunlarni oling va ularni o'chirish uchun yuqoridagi usullardan foydalaning.

4-usul: Bir nechta ketma-ket bo'lmagan qatorlarni o'chirish uchun makrosni ishga tushiring

  1. Birinchi va asosiyost, qatorlarni tanlang.
  2. Word dasturida VBA muharririni ochish uchun “Alt+ F11” tugmasini bosing.
  3. Keyin “Oddiy” loyihasini bosish orqali modul yarating.
  4. Keyin "Qo'shish" tugmasini bosing va "Modul" ni tanlang."Oddiy"-ni bosing->"Qo'shish"-ni bosing->"Modul"-ni bosing.
  5. Ikki marta bosish bilan modulni oching va quyidagi kodlarni joylashtiring:
Sub DeleteNonConsecutiveRows()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nIndex As Integer, nRows As Integer
  Dim strTable As String
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  '  Delete contents in selected rows.
  Selection.Delete
 
  With Selection.Tables(1)
    nRows = .Rows.Count
    For nIndex = nRows To 1 Step -1
      For Each objCell In .Rows(nIndex).Cells
        If Len(objCell.Range.Text) > 2 Then
          varCellEmpty = False
          Exit For
        Else
          varCellEmpty = True
          .Rows(nIndex).Delete
        End If
      Next objCell
    Next nIndex
  End With
 
  Set objCell = Nothing
  Set objTable = Nothing
 
  Application.ScreenUpdating = True
End Sub
  1. Va nihoyat, "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.Kodlarni joylashtirish -> "Ishga tushirish" tugmasini bosing

5-usul: Bir nechta ketma-ket bo'lmagan ustunlarni o'chirish uchun makrosni ishga tushiring

  1. Avvalo, tanlang tar"Ctrl" tugmasi bilan ustunlarni oling.
  2. Keyinchalik yuqoridagi xuddi shu amallarni bajarib, makroni o'rnating va ishga tushiring.
  3. Ammo makroni bu bilan almashtiring:
Sub DeleteNonConsecutiveColumns()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nIndex As Integer, nColumns As Integer
  Dim strTable As String
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  '  Delete contents in selected columns.
  Selection.Delete
 
  With Selection.Tables(1)
    nColumns = .Columns.Count
    For nIndex = nColumns To 1 Step -1
 
      For Each objCell In .Columns(nIndex).Cells
        If Len(objCell.Range.Text) > 2 Then
          varCellEmpty = False
          Exit For
        Else
          varCellEmpty = True
          .Columns(nIndex).Delete
        End If
      Next objCell
    Next nIndex
  End With
 
  Set objCell = Nothing
  Set objTable = Nothing
 
  Application.ScreenUpdating = True
End Sub

Hujjatlarning buzilishiga e'tibor bering

Raqamli saqlash qurilmasidan foydalanishning ko'payishi bilan ma'lumotlarga g'amxo'rlik qilish muhim ahamiyatga ega. Eng yaxshi usullardan biri ularni zaxira qilishdir. Masalan, Word dasturidan foydalanayotganda u birdaniga javob bermay qolishi mumkin. Va u normal holatga qaytganda, siz hujjatingizni faqat o'lik holda topishingiz mumkin. Va keyin siz barcha shov-shuvlardan o'tishingiz kerak bo'ladi docx-ni tiklash.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc xlsx tuzatish va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com

Hozir ulashing:

Comments are closed.