Snasui Excel Forum

Code: Select all

Sub Macro1()
    Dim i As Integer, j As Integer 'ประกาศตัวแปร i และ j เป็น Integer
    j = Sheets("Sheet1").UsedRange.Columns.Count 'กำหนดค่าให้ตัวแปร j มีค่าเท่ากับคอลัมน์ที่มีการใช้งานทั้งหมด
    Range("A1:AG11").Copy ' Copy A1:AG11
    For i = 1 To j Step 34 'กำหนดให้ i มีค่าเท่ากับ 1- ค่าตัวแปร j และให้ Run ไปครั้งละ 34 แทนที่จะเป็นทีละ 1
        Sheets("Sheet1").Cells(1, i).PasteSpecial Paste:=xlPasteFormats 'นำค่าที่ Copy ไปวางที่บรรทัดที่ 1 และคอลัมน์ที่ได้จากค่าตัวแปร i
    Next i ' ไปยังเซลล์ถัดไป
    Application.CutCopyMode = False 'ยกเลิกคำสั่งการ Copy
End Sub

Code: Select all

Sub Macro()
    Dim i As Integer, j As Integer
    j = Sheets("Sheet1").UsedRange.Columns.Count
    For i = j - 33 To 1 Step -34 'กำหนดให้ i มีค่าเท่ากับ j-33 ถึง 1 แล้ว Run ลดลงครั้งละ 34
        Sheets("Sheet1").Cells(1, i).EntireColumn.Delete 'ลบทั้งคอลัมน์ตามค่าคอลัมน์ที่ได้จากตัวแปร i
    Next i ไปยังเซลล์ถัดไป
End Sub

Code: Select all

Sub Macro1()
    Dim i As Integer, j As Integer
    j = Sheets("Sheet1").UsedRange.Columns.Count
    Range("A1:AG11").Copy
    For i = 1 To j Step 34
        Sheets("Sheet1").Cells(1, i).PasteSpecial Paste:=xlPasteFormats
    Next i
    Application.CutCopyMode = False
End Sub

Code: Select all

Sub Macro()
    Dim i As Integer, j As Integer
    j = Sheets("Sheet1").UsedRange.Columns.Count
    For i = j - 33 To 1 Step -34
        Sheets("Sheet1").Cells(1, i).EntireColumn.Delete
    Next i
End Sub

Code: Select all

Sub Macro()
    Dim i As Integer, j As Integer
    j = Sheets("Sheet1").UsedRange.Columns.Count
    For i = j - 33 To 1 Step -34
        Sheets("Sheet1").Cells(1, i).EntireColumn.Delete
    Next i
End Sub

Code: Select all

Sub Macro2()
    Columns("AH:AH").Select
    Selection.Delete Shift:=xlToLeft
    Columns("BO:BO").Select
    Selection.Delete Shift:=xlToLeft
    Columns("CV:CV").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1:AG1").Select
End Sub

Code: Select all

Sub Macro1()
    Dim i As Integer, j As Integer
    j = Sheets("Sheet1").UsedRange.Columns.Count
    Range("A1:AG11").Copy
    For i = 35 To j Step 34
            Sheets("Sheet1").Cells(1, i).PasteSpecial Paste:=xlPasteFormats
    Next i
    Application.CutCopyMode = False
End Sub

Code: Select all

Sub Macro1()
    Dim i As Integer, j As Integer
    j = Sheets("Sheet1").UsedRange.Columns.Count
    Range("A1:AG11").Copy
    For i = 1 To j Step 34
        Sheets("Sheet1").Cells(1, i).PasteSpecial Paste:=xlPasteFormats
    Next i
    Application.CutCopyMode = False
End Sub

Code: Select all

Sub Macro1()
    Range("A1:AG11").Select
    Selection.Copy
    Range("AI1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Copy
    Range("BQ1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Copy
    Range("CY1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1:AG1").Select
End Sub

Code: Select all

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

Code: Select all

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False