[發問] 一開始能用,後來加了一張表格跟內建公式就亂了

Convulse

本來寫了一個Macro 把63個表格的資料貼到一個表格
一開始跑是OK了
但是後來新增了一張表做計算,加了很多公式在裡面
再重跑VBA合併一次資料,就沒辦法抓到全部63個Sheet了, 就一直只能抓某幾個sheet(大概就4張)而已
照理來說新增那張計算的表格,還有裡面公式應該都跟VBA沒有關係( 因為沒有抓那張計算表格的資料),可是就一直抓不到資料:'(
研究了好久都還是不能抓回原本63個sheet裡的資料,想問問為什麼會這樣?
會是Code的問題嗎?那為什麼一開始跑能用呢?拿到原始還沒做計算的表格又可以跑?

附上我寫的程式碼
Sub Merge()
'
'
   Sheets("summary").Select
   Range("A2").Select
   Range(Selection, Selection.End(xlToRight)).Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.ClearContents
  For x = 4 To 66
  Sheets(x).Select
  Application.ScreenUpdating = False
  Range("A2").Select
  Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("summary").Select
  ActiveCell.Select
  ActiveSheet.Paste
  Range("A:A").End(xlDown).Select
  ActiveCell.Offset(1, 0).Select
  
  
  
  Next x
  End Sub
  

麻煩大家幫幫忙了~~

n7822123

回復 1# Convulse


    你新增的表格有在前3個sheet之中嗎?

建議你附上檔案，說明你要做到的功能，我想有人會為你解答的，你的程式應該是用錄的再拼湊而成(非常多的select)。

Convulse

謝謝樓上的回覆喔

我的檔案太大了 應該沒辦法貼上來
的確是用錄的再拚的(沒有辦法全部自己寫啊,哈哈)
我的新增表格在前面3個sheet裡沒錯 原始資料從第4張sheet到第66張
想要的功能是把第4張sheet到第66張的資料(每張sheet資料筆數不一樣)全部貼到summary(在第2個sheet)的頁面
然後再另外做一張表格計算summay裡的資料得到我要的答案(計算表格是sheet3)
當我在原始資料上做修改時,再跑次巨集
我修改了資料會再重新貼到summary 這張表 然後運算的表格會根據這張表的新資料
跑出新的且正確的我要的答案

不知道這樣解釋夠不夠清楚
是不是一定需要原始檔案

感謝大家啦

stillfish00

回復 1# Convulse
我看到這行關閉螢幕更新
Application.ScreenUpdating = False

是否最後有重新設為True

Convulse

回復 4# stillfish00
Hello ,
我加了Application.ScreenUpdating = True 在後面了
再重跑一次 確實看到跳到每一頁在運行
可以當跑完回到summary 的時候
又只看到總資料筆數 只有某幾個sheet裡的資料了 還是沒有全貼過來

n7822123

回復 5# Convulse


    某幾頁的資料是否是只有最後幾頁的資料?如果是的話那應該是把前面的資料覆蓋了。

owen06

回復 1# Convulse


    你要不要按F8一步一步執行看看，看問題是出在哪，然後再去想解決的辦法。

c_c_lai

回復 1# Convulse
執行看看。

1. Sub Merge()
   
2. '
   
3. '
   
4.     Sheets("summary").Select
   
5.     Range("A2").Select
   
6.     Range(Selection, Selection.End(xlToRight)).Select
   
7.     Range(Selection, Selection.End(xlDown)).Select
   
8.     Selection.ClearContents
   
9.     For x = 4 To 66
   
10.         Sheets(x).Select
    
11.         Application.ScreenUpdating = False
    
12.         Range("A2").Select
    
13.         Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    
14.         Application.CutCopyMode = False
    
15.         Selection.Copy
    
16.         Sheets("summary").Select
    
17.         ActiveCell.Select
    
18.         ActiveSheet.Paste
    
19.         ' Range("A:A").End(xlDown).Select   ' Watch :  ActiveCell.Address : "$A$1048576" : String
    
20.         ' ActiveCell.Offset(1, 0).Select    ' Watch :  <應用程式或物件定義上的錯誤> : Integer
    
21.         ' 依照妳撰寫方式修改成如下，試試看！ (A 欄如為空值，.......，其位址 = "$A$1048576")
    
22.         Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
    
23.    Next x
    
24. End Sub

複製代碼

准提部林

沒檔案, 沒真相, 要猜到幾時???
檔案太大, 可刪去部份再上傳!

c_c_lai

回復 5# Convulse
回復 9# 准提部林

說的也是，就如 准提部林 版主所言：
「檔案太大, 可刪去部份再上傳!」。
Miss Convulse，妳可將每一工作頁
的資料僅保留前幾項(列)，然後再將
壓縮上傳。如此檔案上傳絕對 OK 的。
遙測不如實際演練！