- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
10#
發表於 2010-6-11 07:21
| 只看該作者
回復 9# myleoyes
我執行沒有問題的 選擇那一個編號 就刪掉那一個編號的範圍沒錯
為防止錯誤修改如下- Sub 刪除()
- Dim F As Range, i%
- If ActiveCell.Column <= 2 Then Exit Sub
- With ActiveSheet
- Set F = .Rows(1).Cells.Find(.Cells(1, ActiveCell.Column))
- If F = "" Then Exit Sub
- i = 1
- Do
- If F.Offset(, i) <> F Then
- Set F = .Range(F, F.Offset(, i - 1))
- Exit Do
- End If
- i = i + 1
- Loop
- End With
- F.EntireColumn.Delete
- End Sub
複製代碼 |
|