Үгийн хүснэгтэн дэх олон мөр эсвэл баганыг багцаар устгах 5 хурдан арга

Энэ нийтлэлд бид таны Word хүснэгт дэх олон мөр эсвэл баганыг багцаар устгах 5 хурдан аргыг харуулахыг хүсч байна.

Баримтыг нүдэнд хялбар байлгахын тулд бид өгөгдлийг хүснэгтэд байрлуулдаг. Урт ширээ бүтээх нь цөөнгүй байдаг. Гэсэн хэдий ч та хүснэгтийг дахин шалгаж үзээд зарим мөр, баганыг шаардлагагүй гэж үзэхэд тэдгээрийг арилгах хурдан арга хэрэгтэй болно.

Эхлээд олон дараалсан мөр эсвэл баганыг устгах арга замыг авч үзье.

Арга 1: Контекст цэсээр мөр эсвэл багануудыг устгах

1. Нэгдүгээрт, цуврал мөр эсвэл баганыг сонгоод баруун товшино уу.
2. Үүний дараа "Мөрүүдийг устгах" эсвэл "Багана устгах" -г сонгоно уу.    
3. Эсвэл та мөр эсвэл баганыг сонгоод "Layout" дээр дарж болно.
4. Дараа нь "Устгах" -ыг сонгоод "Багана устгах" эсвэл "Мөр устгах" -ыг сонгоно уу.

Арга 2: Богино холболтыг ашиглах

1. Нэгдүгээрт, мөр эсвэл баганыг сонгоно уу.
2. Хоёрдугаарт, “Backspace” дээр дарна уу.

Одоо баганууд эсвэл мөрүүд дараалалгүй бол бид дээрх аргуудыг ашиглан устгаж чадахгүй. Үүний оронд та дараахь аргуудыг байрлуулж болно.

Арга 3: Шаардлагагүй мөр эсвэл баганыг хамтад нь байрлуул

1. Эхлээд мөр эсвэл баганыг сонгоно уу.
2. Дараа нь хулганаа дараад удаан хүлээнэ үү.
3. Хулганыг зохих байрлалд чирээд суллана уу.
4. Дараа нь бүх зорилтот мөр эсвэл баганыг сонгоод дээрх аргуудыг ашиглан тэдгээрийг устгана уу.

Арга 4: Олон дараалсан бус мөрүүдийг устгахын тулд макро ажиллуулна уу

1. Юуны өмнө мөрүүдийг сонгох хэрэгтэй.
2. Word дээр VBA засварлагчийг нээхийн тулд “Alt + F11” товчийг дарна уу.
3. Дараа нь “Normal” төслийг дарж модуль үүсгээрэй.
4. Дараа нь "Insert" дээр дарж "Module" -г сонгоно уу.
5. Модулийг давхар товшоод нээгээд дараах кодыг оруулна уу.

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

6. Хамгийн сүүлд гэхдээ "Run" дээр дарна уу эсвэл "F5" дээр дарна уу.

Арга 5: Олон дараалсан багануудыг устгахын тулд макро ажиллуулна уу

1. Юуны өмнө, "Ctrl" товчлуурыг ашиглан зорилтот багануудыг сонгоно уу.
2. Дараа нь яг ижил алхмуудыг дагаж макро суулгаж ажиллуулна уу.
3. Гэхдээ макрог дараахаар солино уу.

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

Баримт бичгийн авлигыг анхаарч үзээрэй

Дижитал хадгалах төхөөрөмжийн хэрэглээ нэмэгдэхийн хэрээр өгөгдөлд анхаарал тавих нь чухал юм. Хамгийн сайн аргуудын нэг бол тэдгээрийг нөөцлөх явдал юм. Жишээлбэл, Word ашиглаж байхдаа гэнэт хариу өгөхөө больж болно. Хэвийн байдалдаа орсны дараа та баримт бичгээ үхсэн л олох боломжтой. Дараа нь та бүх бухимдлыг даван туулах хэрэгтэй болно docx сэргээх.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xlsx засах болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com