返回列表 上一主題 發帖

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

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

本帖最後由 Convulse 於 2015-12-2 09:14 編輯

本來寫了一個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
  

麻煩大家幫幫忙了~~

謝謝樓上的回覆喔

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

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

感謝大家啦

TOP

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

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題