VBA 程式應如何?

longwin

Sub test()
    With Sheets("工作表1")
    l = .[A1].End(4).Row
    For i = l To 1 Step -1
        If i Mod 2 > 0 Then
        .Rows(i).Delete
        End If
    Next
    End With
End Sub

陳老闆

附上, 想要得出結果. 謝

陳老闆

成功, 謝謝幫忙

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.9
   
2.     Application.DisplayAlerts = False
   
3.     Application.DisplayAlerts = False
   
4.     c = ActiveSheet.UsedRange.Columns.Count
   
5.     For j = c To 1 Step -2
   
6.         Columns(j - 1).Delete
   
7.     Next
   
8.     Application.DisplayAlerts = True
   
9.     Application.ScreenUpdating = True
   
10.     MsgBox "OK！"
    
11. End Sub
    
12. 
    

复制代码

陳老闆

謝謝各位, 問題已解決