有沒有人有空可以幫我看一下我的錄製巨集有沒有比較簡化的寫法?

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	*1^# 跳轉到 »* 倒序看帖** 打印字體大小: tT 發表於 2010-11-15 20:11 \| 顯示全部帖子有沒有人有空可以幫我看一下我的錄製巨集有沒有比較簡化的寫法? 有沒有人有空可以幫我看一下我的錄製巨集有沒有比較簡化的寫法? http://naturefruit.myweb.hinet.net/222.xls 其實我的表格要一直擴張到序號500,可是因為錄制的巨集太長,是否有簡短的做法呢? 還有一個比較困難的判斷式當B25沒有資料,將不顯示或隱藏A25:G65536的儲存個當B46沒有資料,將不顯示或隱藏A46:G65536的儲存個 . . . 以此類推感謝各位專家大大的幫忙,非常謝謝. 收藏分享

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	2^# 發表於 2010-11-16 00:17 \| 顯示全部帖子本帖最後由 vpower 於 2010-11-16 00:37 編輯我發現隱藏,預覽列印還是會印出隱藏的列. 改用刪除我依樣畫葫蘆如下,請大師幫我檢查一下,感恩 Sub nn() i = 25 Do Until Cells(i, 2) = "" i = i + 21 Loop Sheets("目錄格式").Rows(i & ":65536").Select Selection.Delete Shift:=xlUp End Sub

	TOP

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	3^# 發表於 2010-11-18 19:33 \| 顯示全部帖子我剛跑好像少21列所以我又更改了一下 Sub nn() i = 25 Do Until Cells(i, 2) = "" i = i + 21 Loop i = i + 21 Sheets("目錄格式").Rows(i & ":65536").Select Selection.Delete Shift:=xlUp End Sub 我增加了紅色的部分就正常了,不知道是為什麼呢?

	TOP

靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。