עזרה | מחיקת עמודה מגיליונות מרובים באקסל

[צבי 10]

יש לי 55 גליונות ואני רוצה לייצא לוורד את הטבלה חוץ מעמודות B,C,F. האם יש דרך למחוק את כל העמודות הנבחרות מכל הגיליונות?

[OdedDvir]

@צבי-10 אפשר על ידי קוד VBA.

[מנחם]

@צבי-10 הקוד הבא אמור לעשות את העבודה
הסדר של המחיקה בכוונה הפוך
כי אחרי שמוחקים עמודה 2 עמודה 6 = עמודה 5

Sub Delete_Column()
Application.ScreenUpdating = False
Dim i As Long
    For i = 1 To Sheets.Count
         Sheets(i).Columns(6).Delete
        Sheets(i).Columns(3).Delete
        Sheets(i).Columns(2).Delete
    Next
Application.ScreenUpdating = True
End Sub

[צבי 10]

תודה רבה!!!