သင့်စကားလုံးဇယားရှိ အလွတ်တန်းများနှင့် ကော်လံများကို ဖျက်ရန် အမြန်နည်းလမ်း 3 ခု

ဒီပို့စ်မှာ သင့်ရဲ့ Word ဇယားထဲက ဗလာ row နဲ့ column တွေကို မြန်မြန်ဖျက်ပစ်နိုင်တဲ့ နည်းလမ်း ၃ ခုကို ရှင်းပြပေးပါမယ်။

အထူးသဖြင့် ဒေတာအမျိုးအစားအမျိုးမျိုးကို ကိုင်ဆောင်ရာတွင် ဇယားများသည် စာရွက်စာတမ်းတစ်ခုအတွက် မရှိမဖြစ်လိုအပ်ပါသည်။ တစ်ခါတစ်ရံတွင် ဇယားရှည်တစ်ခုသည် စာမျက်နှာတစ်ခုကို ကျော်လွန်နိုင်ပြီး အများအပြားကို ကျော်လွန်နိုင်သည်။ ထို့ကြောင့် ဇယားတစ်ခုသည် ရှည်လျားရှုပ်ထွေးလာသည်နှင့်အမျှ ၎င်းကိုရိုးရှင်းစေရန် သင်လုပ်ဆောင်နိုင်သည့်အတိုင်းအတာများရှိပါသည်။ ဥပမာအားဖြင့်၊ သင်သည် မလိုအပ်သော ဗလာအတန်းများနှင့် ကော်လံများကို ဖျက်နိုင်သည်။

အောက်ပါတို့သည် သင်သုံးနိုင်သော နည်းလမ်း ၃ ခုဖြစ်သည်။

နည်းလမ်း 1- အလွတ်တန်းများနှင့် ကော်လံများကို ကိုယ်တိုင်ဖျက်ပါ။

1. ပထမဦးစွာ၊ ဗလာရှိ အတန်း သို့မဟုတ် ကော်လံကို ရွေးပါ။
2. ထို့နောက် ဆက်စပ်မီနူးကို ရယူရန် ညာကလစ်နှိပ်ပါ။ မီနူးတွင်၊ "အတန်းဖျက်ရန်" သို့မဟုတ် "ကော်လံများကိုဖျက်ရန်" ကိုရွေးချယ်ပါ။

ကံမကောင်းစွာဖြင့်၊ ဆက်တိုက်မဟုတ်သော အတန်းများ သို့မဟုတ် ကော်လံများစွာကို သင်ရွေးချယ်၍ ဤနည်းဖြင့် ၎င်းတို့ကို ဖျက်၍မရပါ။ ဤတောင်းဆိုမှုအတွက်၊ သင်သည် ကျွန်ုပ်တို့၏ယခင်ဆောင်းပါးကို ကိုးကားနိုင်သည်- 5 သင့် Word Table ရှိ အတန်းများ သို့မဟုတ် ကော်လံအများအပြားကို တွဲဖျက်ရန် အမြန်နည်းလမ်းများ

နည်းလမ်း 2- ဇယားတစ်ခုရှိ အလွတ်တန်းများနှင့် ကော်လံများအားလုံးကို အသုတ်လိုက် ဖျက်ပါ။

နည်းလမ်း 1 တွင်၎င်း၏ကန့်သတ်ချက်ရှိသည်။ ထို့ကြောင့် ကျွန်ုပ်တို့သည် သင့်အား VBA ကုဒ်များမှတစ်ဆင့် ဇယားတစ်ခုရှိ အတန်းများနှင့် ကော်လံများကို အစုလိုက်ဖယ်ရှားရန် နည်းလမ်းကို ပေးပါမည်။

1. အစပိုင်းမှာ cursor ကို target table ထဲမှာထားပါ။
2. ဒုတိယ၊ “Alt+ F11” ကိုနှိပ်ခြင်းဖြင့် VBA တည်းဖြတ်သူကို အစပျိုးပါ။
3. တည်းဖြတ်သူတွင်၊ "ပုံမှန်" ပရောဂျက်ကို ဦးစွာနှိပ်ပါ။
4. ထို့နောက် မီနူးဘားပေါ်ရှိ “Insert” tab ကိုနှိပ်ပါ။
5. drop-down menu တွင် "Module" ကိုရွေးချယ်ပါ။
6. ၎င်းကိုဖွင့်ရန် module ပေါ်တွင်နှစ်ချက်နှိပ်ပြီးအောက်ပါကုဒ်များကိုထိုနေရာတွင်ကူးထည့်ပါ။

Sub DeleteBlankRowsAndTablesInATable()
  Dim objCell As Cell
  Dim nRowIndex As Integer, nRows As Integer, nColumns As Integer, nColumnIndex As Integer
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  If Selection.Information(wdWithInTable) = False Then
    MsgBox ("Put cursor inside a table first!")
    Exit Sub
  Else
    With Selection.Tables(1)
      nRows = .Rows.Count
      For nRowIndex = nRows To 1 Step -1
        varCellEmpty = True
        For Each objCell In .Rows(nRowIndex).Cells
          If Len(objCell.Range.Text) > 2 Then
            varCellEmpty = False
            Exit For
          End If
        Next objCell
          If varCellEmpty = True Then
            .Rows(nRowIndex).Delete
          End If
      Next nRowIndex
 
      nColumns = .Columns.Count
      For nColumnIndex = nColumns To 1 Step -1
        varCellEmpty = True
        For Each objCell In .Columns(nColumnIndex).Cells
          If Len(objCell.Range.Text) > 2 Then
            varCellEmpty = False
            Exit For
          End If
        Next objCell
          If varCellEmpty = True Then
            .Columns(nColumnIndex).Delete
          End If
      Next nColumnIndex
    End With
  End If

  Set objCell = Nothing

  Application.ScreenUpdating = True
End Sub

7. နောက်ဆုံးအနေဖြင့် Menu bar ရှိ “Run” ခလုတ်ကို နှိပ်ပါ သို့မဟုတ် “F5” ကို နှိပ်ပါ။

စက္ကန့်ပိုင်းအတွင်း၊ သင်သည် ထိုဇယားရှိ အလွတ်တန်းများနှင့် ကော်လံအားလုံးကို ဖယ်ရှားမည်ဖြစ်သည်။

နည်းလမ်း 3- စာရွက်စာတမ်းတစ်ခုရှိ ဇယားများအားလုံးရှိ အလွတ်တန်းများနှင့် ကော်လံများအားလုံးကို အသုတ်လိုက် ဖျက်ပါ

1. ပထမဦးစွာ၊ မက်ခရိုကို ထည့်သွင်းပြီး လုပ်ဆောင်ရန် နည်းလမ်း 2 တွင် အဆင့်များကို ပြန်လုပ်ပါ။
2. ဤတစ်ကြိမ်သာ၊ အဆိုပါ macro ကို အောက်ပါဖြင့် အစားထိုးပါ။

Sub DeleteBlankRowsAndColumnsInAllTables()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nRowIndex As Integer, nRows As Integer, nColumns As Integer, nColumnIndex As Integer
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  With ActiveDocument
    For Each objTable In .Tables
      nRows = objTable.Rows.Count
      For nRowIndex = nRows To 1 Step -1
        varCellEmpty = True
        For Each objCell In objTable.Rows(nRowIndex).Cells
          If Len(objCell.Range.Text) > 2 Then
            varCellEmpty = False
            Exit For
          End If
        Next objCell
          If varCellEmpty = True Then
            objTable.Rows(nRowIndex).Delete
          End If
      Next nRowIndex
    Next objTable
 
    For Each objTable In .Tables
      nColumns = objTable.Columns.Count
      For nColumnIndex = nColumns To 1 Step -1
        varCellEmpty = True
        For Each objCell In objTable.Columns(nColumnIndex).Cells
          If Len(objCell.Range.Text) > 2 Then
            varCellEmpty = False
            Exit For
          End If
        Next objCell
          If varCellEmpty = True Then
            objTable.Columns(nColumnIndex).Delete
          End If
      Next nColumnIndex
    Next objTable
  End With

  Set objCell = Nothing
  Set objTable = Nothing

  Application.ScreenUpdating = True
End Sub

ပျက်စီးနေသောစာရွက်စာတမ်းကို ပြန်လည်ရယူပါ။

ယနေ့ခေတ်တွင် ပျောက်ဆုံးသွားသောဒေတာများကို ပြန်လည်ရယူရန် နည်းလမ်းထက်ပို၍ရှိပါသည်။ ဥပမာအားဖြင့်၊ အရန်ကူးယူခြင်းကို အားကိုးခြင်းသည် သင်၏ ထိပ်တန်းဦးစားပေးအဖြစ် အမြဲရှိနေပါသည်။ ၎င်းသည် နောက်ဆုံးပေါ်သတင်းအချက်အလက်များကို ပြန်လည်ရယူရန် သင်၏လိုအပ်ချက်ကို မဖြည့်ဆည်းပေးပါက၊ သင်သည် အောက်ပါတို့ကို စမ်းကြည့်နိုင်သည် doc ပြုပြင်ခြင်း။ ကိရိယာတခုဖြစ်တယ်။

စာရေးသူနိဒါန်း:

Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ xlsx ပြုပြင်ခြင်း။ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com