- 帖子
- 463
- 主題
- 116
- 精華
- 0
- 積分
- 580
- 點名
- 0
- 作業系統
- Vista
- 軟體版本
- 2007
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-4
- 最後登錄
- 2017-11-13
 
|
刪列
各位前輩你們好!
前輩!
Sub 差異列刪除()
Dim R
R = (ActiveCell.Row Mod 12)
R = "C" & ActiveCell.Row - R + 1 & ":IV" & ActiveCell.Row + (12 - R)
Range(R).Delete
Range("A23") = ""
End Sub
請知道的前輩,不吝賜教謝謝再三!! |
-
-
Leov12.rar
(21.44 KB)
|