- 帖子
- 132
- 主題
- 31
- 精華
- 0
- 積分
- 167
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taipei
- 註冊時間
- 2011-4-14
- 最後登錄
- 2024-2-28
  
|
這個有二種方式處理
Dim x As Long
Dim Rows_Str As String
'x變數請自行設定
Rows_Str = "2:" & CStr(x)
Rows(Rows_Str).Delete shift:=xlUp
'另一個方法是用Range來處理
With ActiveSheet
.Range(.Rows(2), .Rows(x)).Delete shift:=xlUp
End With
這二個都能達到相同的目的 |
|
發表於 2016-3-24 11:13
| 