ამ სტატიაში გვსურს გაჩვენოთ 5 სწრაფი მეთოდი თქვენი Word ცხრილის რამდენიმე მწკრივის ან სვეტის ჯგუფური წაშლის მიზნით.
ჩვენ ვათავსებთ მონაცემებს ცხრილებში, რათა დოკუმენტი იყოს მარტივი თვალისთვის. არც ისე იშვიათია გრძელი მაგიდის შექმნა. თუმცა, როდესაც კვლავ შეამოწმებთ ცხრილს და აღმოაჩენთ, რომ რამდენიმე სტრიქონი და სვეტი არასაჭიროა, დაგჭირდებათ მათი ამოღების სწრაფი გზა.
ჯერ მოდით გადავხედოთ რამდენიმე თანმიმდევრული მწკრივის ან სვეტის წაშლის გზებს.
მეთოდი 1: წაშალეთ რიგები ან სვეტები კონტექსტური მენიუდან
- პირველ რიგში, აირჩიეთ სტრიქონების ან სვეტების სერია და დააწკაპუნეთ მარჯვენა ღილაკით.
- შემდეგ აირჩიეთ "წაშლა რიგები" ან "წაშლა სვეტები" შესაბამისად.
- ან შეგიძლიათ აირჩიოთ რიგები ან სვეტები და დააწკაპუნოთ "განლაგება".
- შემდეგ აირჩიეთ "წაშლა" და აირჩიეთ "წაშლა სვეტები" ან "წაშლა რიგები".
მეთოდი 2: გამოიყენეთ მალსახმობები
- პირველ რიგში, აირჩიეთ რიგები ან სვეტები.
- მეორე, დააჭირეთ "Backspace".
ახლა, თუ სვეტები ან რიგები არ არის ზედიზედ, ჩვენ არ შეგვიძლია მათი წაშლა ზემოაღნიშნული მეთოდების გამოყენებით. ამის ნაცვლად, შეგიძლიათ განათავსოთ შემდეგი მეთოდები.
მეთოდი 3: მოათავსეთ არასაჭირო რიგები ან სვეტები
- ჯერ აირჩიეთ სტრიქონი ან სვეტი.
- შემდეგ დააწკაპუნეთ მაუსზე და გააჩერეთ.
- გადაიტანეთ მაუსი შესაბამის პოზიციაზე და გაათავისუფლეთ.
- შემდეგ აირჩიეთ ყველა სამიზნე სტრიქონი ან სვეტი და გამოიყენეთ ზემოთ მოცემული მეთოდები მათი წასაშლელად.
მეთოდი 4: გაუშვით მაკრო მრავალი არათანმიმდევრული მწკრივის წასაშლელად
- პირველ რიგში, აირჩიეთ რიგები.
- დააჭირეთ "Alt+ F11" რომ გახსნათ VBA რედაქტორი Word-ში.
- შემდეგ შექმენით მოდული პროექტზე „ნორმალური“ დაწკაპუნებით.
- შემდეგ დააჭირეთ "ჩასმა" და აირჩიეთ "მოდული".
- გახსენით მოდული ორმაგი დაწკაპუნებით და ჩასვით შემდეგი კოდები:
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
- დაბოლოს, მაგრამ არანაკლებ მნიშვნელოვანია, დააჭირეთ "Run" ან დააჭირეთ "F5".
მეთოდი 5: გაუშვით მაკრო მრავალი არათანმიმდევრული სვეტის წასაშლელად
- პირველ რიგში, სამიზნე სვეტები აირჩიეთ „Ctrl“ ღილაკით.
- შემდეგ დააინსტალირეთ და გაუშვით მაკრო ზუსტად იგივე ნაბიჯების შემდეგ ზემოთ.
- მაგრამ შეცვალეთ მაკრო ამით:
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. ერთად