返回列表 上一主題 發帖

VBA刪除固定列數

georgema

帖子
8 
主題
2 
精華
0 
積分
15 
點名
0  
作業系統
WINDOWS XP 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
來自
新北市 
註冊時間
2013-9-9 
最後登錄
2015-7-26 
1# 跳轉到 »
發表於 2013-10-31 17:56 | 顯示全部帖子
請試試看下列程式：
  1. Sub delRows()
  2.     Dim i&, j&, x%, y%
  3.     j = Range("a1").End(xlDown).Row
  4.     MsgBox "j = " & j
  5.     j = j / 42
  6.     MsgBox "New j = " & j
  7.     x = 1
  8.     y = 16
  9.     For i = 1 To j
  10.         If i = 1 Then
  11.             Rows(x & ":" & y).Select
  12.             Selection.Delete Shift:=xlUp
  13.         Else
  14.             x = x + 42
  15.             y = y + 42
  16.             Rows(x & ":" & y).Select
  17.             Selection.Delete Shift:=xlUp
  18.         End If
  19.     Next i
  20. End Sub
複製代碼
George Ma

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題