- 帖子
- 79
- 主題
- 26
- 精華
- 0
- 積分
- 111
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 註冊時間
- 2011-12-20
- 最後登錄
- 2022-8-3
|
回復 4# GBKEE
謝謝大大教我方法 我錄製的巨集為:
Sub 巨集1()
'
' 巨集1 巨集
'
'
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeConstants, 2).Select 'A欄位只要有文字就刪除整列
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 134
ActiveWindow.ScrollRow = 129
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 62
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
End Sub
可是不知道如何刪除選出來的整列
還請大大指導一下
謝謝 |
|
發表於 2015-3-5 21:37
| 
