移動有顏色的列到其他sheet(小問題請教)

jj369963

Dear各位大大：

請教小問題，如附檔，移動已格式化設定的列到不同sheet

再煩請論壇的各位多多指導，謝謝

移動有顏色的列到其他sheet_1030.rar (11.91 KB)

下載次數: 13

2013-10-30 22:14

jj369963

回復 3# GBKEE


    Dear GBKEE 版主：
   
              謝謝您的回應，但是出現一點問題

            如果您有空，可以再麻煩您看一下

         感謝

下載 (23.46 KB)

2013-11-1 21:38

jj369963

回復 3# GBKEE

sorry謝謝提醒，如附檔

也謝謝版大的積極回應

test_m.rar (62.78 KB)

下載次數: 5

2013-11-1 21:55

jj369963

回復 2# kimbal


    Dear kimbal 版大 :
  
  Thanks your reply, but it didn't work.
1.資料筆少時，有搬移但是未搬移完全
2.資料筆多時完全沒反應

如附檔，請參閱

reply_1.rar (65.11 KB)

下載次數: 7

2013-11-1 22:11

jj369963

回復 7# GBKEE


    Dear GBKEE版大：
您好
附檔有2個檔案(工作表名稱都相同)有同時開啟,執行EX程式嗎?
回覆：我沒有同時開啟

另外執行語法後只有標題列移過去，格式化的列沒有移到對應的sheet
這次沒有跑出錯誤視窗
不知問題在哪??
再煩請有空之餘，指教與協助

感謝

test_m_1.rar (62.79 KB)

下載次數: 9

2013-11-2 17:30

jj369963

回復 9# GBKEE

Dear GBKEE版大:
您好
1.測試後，只搬移標題列，格式化的列並未搬移
謝謝，再煩請指教
另外這是我用錄製做的語法來套用，也出錯，但時有時有把部分列移過去，
再勞煩您看一下了，感謝

1. Sub Macro1()
   
2. '
   
3.     Cells.Select
   
4.     Selection.AutoFilter
   
5.     ActiveSheet.Range("$A$1:$CQ$376").AutoFilter Field:=6, Criteria1:=RGB(250, _
   
6.         192, 144), Operator:=xlFilterCellColor
   
7.     Selection.Copy
   
8.     Sheets("無作答").Select
   
9.     ActiveSheet.Paste
   
10.     Sheets("Sheet0").Select
    
11.     Application.CutCopyMode = False
    
12.     Rows("59:411").Select
    
13.     Selection.Delete Shift:=xlUp
    
14.     ActiveSheet.Range("$A$1:$CQ$370").AutoFilter Field:=6, Criteria1:=RGB(3, _
    
15.         255, 101), Operator:=xlFilterCellColor
    
16.     Selection.Copy
    
17.     Application.CutCopyMode = False
    
18.     Selection.Copy
    
19.     Rows("1:338").Select
    
20.     Application.CutCopyMode = False
    
21.     Selection.Copy
    
22.     Sheets("無帳密").Select
    
23.     ActiveSheet.Paste
    
24.     Sheets("無帳密").Select
    
25.     Rows("18:402").Select
    
26.     Application.CutCopyMode = False
    
27.     Rows("18:18").Select
    
28.     ActiveWindow.SmallScroll Down:=-3
    
29.     Rows("18:402").Select
    
30.     Selection.Delete Shift:=xlUp
    
31.     Selection.AutoFilter
    
32. End Sub

複製代碼

jj369963

回復 12# GBKEE


    Dear GBKEE 版大：
  
   非常謝謝您的回覆，而且回覆的好詳細，感謝。
『你說的執行語法後只有標題列移過去，格式化的列沒有移到對應的sheet,(百思不解..)』
  回覆：如附檔
不過我在想會不會是excel版本的差異(???)，因為版大有執行出來，所以問題應該在我這邊。

  謝謝版大用心且詳細的回覆

下載 (505.51 KB)

2013-11-8 23:08

jj369963

回復 14# Hsieh

Dear  Hsieh 超版:

          非常感謝您的補充說明，還是一如既往的熱心，it works.
           真是太感謝了，也謝謝GBKEE熱心的指導
            感謝2位