不同的sheet相同的動作,如何讓它一次性完成? - Excel程式區

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

36^# 跳轉到 »

發表於 2012-5-9 19:57 | 只看該作者

應該 n = sh.UsedRange.Rows.Count (使用中的總列數)不會取過大的範圍
妳可以用f8鍵逐句運行，看看運行到這一行時n的值是否工作表的最後一列。
若不是就須要把底下的空白全部選中按delete清除
也可以改一下這句試試：
n=sh.[d10000].end(3).row (D欄有資料的最後列)

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

35^#

發表於 2012-5-9 17:10 | 只看該作者

回復 35# oobird
大師,
我試了一下,跟原來的一樣,會出現"填滿儲存格"的字樣,然後sheet.."龜速"作業,還有別的語法可以讓我再試試看嗎?拜託了.

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

34^#

發表於 2012-5-9 14:53 | 只看該作者

Workbooks("2012 samples Chart.xlsx").Activate
For s = 2 To 7 '從2nd的工作表執行至7st
Sheets(s).Activate
Set sh = ActiveSheet
n = sh.UsedRange.Rows.Count
sh.[aa5].Resize(n, 12) = sh.[aa5].Resize(n, 12).Value '把公式結果變成值
sh.AutoFilterMode = False '取消自動篩選
sh.[a4:ad4].AutoFilter '建立自動篩

複製代碼

那改這樣吧，我沒用2010很難想像一百多萬列跑起來是什麼速度。

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

33^#

發表於 2012-5-9 14:31 | 只看該作者

回復 33# oobird
大師,
程式改成這樣是不會將其它的儲存格有公式的地方變成值,但也出現了可怕的"龜速",以前全部儲存格一起作業非常快速的,現在是一個個sheet.."龜速"作業,這點能夠改善嗎?

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

32^#

發表於 2012-5-9 13:41 | 只看該作者

Sh.UsedRange = Sh.UsedRange.Value
改為
Sh.[aa:al] = Sh.[aa:al].Value

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

31^#

發表於 2012-5-9 13:13 | 只看該作者

回復 30# oobird
大師,
救命,我原先的需求是將動作1: AA:AL 的範圍變成值(就是將公式去除)
但我發現這個寫將整個工作表所有內容都變成值,而且變成值之後,原來格式都變成怪怪的日期格式.(如附件,蔩色底的標註),

EX.zip (20.96 KB)
以下巨集該如何修改成只將AA:AL有資料的範圍變成值?

Workbooks("2012 BCMart Chart.xlsx").Activate
For s = 5 To 10 '從第某個工作表執行至第某個
Sheets(s).Activate
Set Sh = ActiveSheet
Sh.UsedRange = Sh.UsedRange.Value '把公式結果變成值
Sh.AutoFilterMode = False '取消自動篩選
Sh.[a4:ad4].AutoFilter '建立自動篩
Next '下一個工作表

複製代碼

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

30^#

發表於 2012-5-6 22:07 | 只看該作者

回復 30# oobird

Bingo!!
太好了執行ok.
真謝謝你!

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

29^#

發表於 2012-5-6 22:00 | 只看該作者

啊，剛剛沒注意，這裡兩個 i 在循環中重疊了
改掉其中一個：
For s = 2 To 7 '從2nd的工作表執行至7st
Sheets(s).Activate

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

28^#

發表於 2012-5-6 21:55 | 只看該作者

回復 28# oobird
Hi,
巨集執行後指向這行有問題,Help!... For i = 0 To UBound(ar)

Sub Try()
Workbooks("2012 samples Chart.xlsx").Activate
For i = 2 To 7 '從2nd的工作表執行至7st
Sheets(i).Activate
Set sh = ActiveSheet
sh.UsedRange = sh.UsedRange.Value '把公式結果變成值
sh.AutoFilterMode = False '取消自動篩選
sh.[a4:ad4].AutoFilter '建立自動篩
n = sh.[AC1000].End(3).Row 'ac欄最後儲存格列號
sh.Sort.SortFields.Clear '清除重建排序條件
ar = Array("ac", "u", "q", "c", "d")
For i = 0 To UBound(ar)
sh.Sort.SortFields.Add Key:=sh.Range(ar(i) & "5:" & ar(i) & n)
Next
With sh.Sort '對指定範圍以指定條件排序
.SetRange sh.Range("A5:AD" & n)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Next '下一個工作表
End Sub

複製代碼

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

27^#

發表於 2012-5-6 21:43 | 只看該作者

第5行開始sh.UsedRange = sh.UsedRange.Value
這個叫sh的變數前面並沒有定義，突然冒出來程式就會中斷了。
可以這樣：
Workbooks("2012 samples Chart.xlsx").Activate
      For i = 2 To 7  '從2nd的工作表執行至7st
      Sheets(i).Activate '執行工作
set sh =activesheet
         sh.UsedRange = sh.UsedRange.Value
以下不變