- 帖子
- 145
- 主題
- 42
- 精華
- 0
- 積分
- 193
- 點名
- 0
- 作業系統
- Windows7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-11-25
- 最後登錄
- 2025-8-28
|
試出來了
Sub 巨集1()
'
' 巨集1 巨集
'
Range("A1").Select
row1 = ActiveCell.End(xlDown).Row
Dim i&, xU As Range
For i = 9 To Cells(row1, Columns.Count).End(xlToLeft).Column
If Cells(row1, i) = 0 Then
If xU Is Nothing Then Set xU = Cells(row1, i) Else Set xU = Union(xU, Cells(row1, i))
End If
Next i
If Not xU Is Nothing Then xU.EntireColumn.Delete
End Sub |
|
發表於 2023-3-23 21:33
| 
