- 帖子
- 19
- 主題
- 6
- 精華
- 0
- 積分
- 30
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2007
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2013-7-8
- 最後登錄
- 2025-1-16
|
4#
發表於 2014-3-13 22:42
| 只看該作者
感謝如此詳細解答我把它用於下方終於可執行,分享給其他有需要新手.謝謝您!
Dim C As Integer
C = 2
For C = 2 To 96 Step 4
Rows(C + 4 & ":" & C + 6).Select
Selection.EntireRow.Hidden = True
Next
====================
Dim H As Integer
H = 5
For H = 5 To 100 Step 4
Range("AV" & H & ":" & "BZ" & H).Select
Selection.ClearContents
Next |
|