[發問] 複製超級慢問題求救

本帖最後由 spermbank 於 2015-12-22 23:42 編輯

大家好:

      我想利用"工作表1"的A欄代號至"首頁"及"基本面"搜尋複製(包含原本數值、格式及顏色)相關資料至"工作表1"
      我利用office 2007跑，速度超級慢，起碼要20-30分鐘，可是用office 2010(不同電腦，電腦比較好)跑只要8-10分鐘
      基本上都用office 2007跑，想請教各位大大，這要如何解決(如附件檔案)，感謝。

test.rar (395.38 KB)

樓主熱帖

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

2^#

發表於 2015-12-23 09:28 | 顯示全部帖子

這是我的程式碼麻煩大大幫我看看，感謝。

Sub Macro1()
Sheets("工作表1").Select
x1 = Application.WorksheetFunction.CountA(Range("A:A")) '欄位有值範圍計
'================================================================
' iStart = Timer
'================================================================
For i = 2 To x1 '利用工作表1A欄代號至首頁、基本面尋找相對代號
Range("C" & i).Formula = "=MATCH($A" & i & ",首頁!$A$1:$A$3000,)"
Next
Columns("C:C").Select '將公式轉換成值
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("C1").Select
For i = 2 To x1 '利用工作表1C欄的值，至首頁及基本面捉取相關資料
GGG = Cells(i, "C")
Sheets("首頁").Range("F" & GGG & ":" & "P" & GGG).Copy Sheets("工作表1").Range("D" & i & ":" & "N" & i)
Sheets("基本面").Range("G" & GGG & ":" & "I" & GGG).Copy Sheets("工作表1").Range("O" & i & ":" & "Q" & i)
Sheets("基本面").Range("D" & GGG & ":" & "E" & GGG).Copy Sheets("工作表1").Range("R" & i & ":" & "S" & i)
Sheets("基本面").Range("E" & GGG & ":" & "E" & GGG).Copy Sheets("工作表1").Range("T" & i & ":" & "T" & i)
Sheets("基本面").Range("F" & GGG & ":" & "F" & GGG).Copy Sheets("工作表1").Range("U" & i & ":" & "U" & i)
Next
'================================================================
' iEnd = Timer
' Sheets("工作表1").Select
' Cells(2, "F") = iEnd - iStart
End Sub

複製代碼

TOP

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

3^#

發表於 2015-12-23 11:58 | 顯示全部帖子

回復 4# 准提部林

准提部林您好:

有沒有辦法不刪除A欄重複代號及重新排列方式下完成呢?
沒有秀出完整程式，但重複代號及所在位置有其意義，感謝。

TOP

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

4^#

發表於 2015-12-23 16:16 | 顯示全部帖子

本帖最後由 spermbank 於 2015-12-23 16:23 編輯

回復 6# 准提部林

准提部林您好:

   請問一下取區段最小時，工作表1都會標示A至C欄最小為黃底色，這黃底色能夠拿掉嗎??
   因為底色註記，還有其他用途，從程式看不出來怎麼拿掉，感謝。

   另外，我的程式是
   Sub test()
      .
      .(上段程式)(有判斷式子、給儲存格顏色)
      .
      複製部分(中段程式)
      .
      .(下段程式)(同一分頁有運算)
      .
   endsub

   上段程式、中段程式、下段程式都依序處理，這樣子真的會影響複製部分呀，可是我不知道為什麼?

TOP

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

5^#

發表於 2015-12-23 20:21 | 顯示全部帖子

回復 8# 准提部林

Ok,感謝感謝^^

TOP