[發問] 關於巨集程式修改問題

我是瑄

小妹的EXCEL裡有6個工作表以A~E稱之
我在表C設按鈕,點擊後,會到表B尋找Q欄的最後一列(資料數變動的 所以最後一列不固定)
篩選P欄為空格的,將C欄複製貼上表A的A3以此類推..程式如下:

1. Sub 按下按鈕()
   
2. Dim y&
   
3. With Sheets("B")
   
4. y = .[Q65536].End(xlUp).Row 　 'Q欄最後一列
   
5.        .Range("P2:P" & y).AutoFilter field:=1, Criteria1:="="
   
6.        .Range("C2:C" & y).Copy Sheets("C").[A2]　 '貼C欄
   
7.        .Range("A2:B" & y).Copy Sheets("C").[B2]　 '貼A~B欄
   
8.        .Range("D2:H" & y).Copy Sheets("C").[D2]　 '貼D~H欄
   
9.        .Range("Q2:Q" & y).Copy Sheets("C").[I2]　 '貼Q欄
   
10.        .AutoFilterMode = False　 '取消篩選
    
11. End With
    
12. End Sub

複製代碼

小妹將按鈕移至表B(想在表B工作即可 不用一直切換)程式一樣用上述內容
但貼上後表C的格線會改變,所有的工作表都有固定的表格,只想貼上儲存格的內容不要改變工作表的格式,欄寬列高字型框線顏色...等
該如何設定?
我想在取消表B篩選後排序表C的A欄該如何寫入程式?
將命令按鈕從表C移至表B上述程式有需要修改的地方嗎?

我是瑄

回復 2# c_c_lai


    謝謝大大,但是我只要複製值 不要連同複製格式,TEXT應該不適用^^不過還是謝謝大大的幫忙
    由於我的資料為變數 這個月為85筆,下個月可能降至45筆 所以我的程式內容要先找到最後一列
    設Y,然後再帶入公式

我是瑄

回復 4# stillfish00

謝謝大大,c表的A欄為文字,標題列在列1,那這樣應該怎麼寫?

我是瑄

回復 4# stillfish00


    真是抱歉已經超過3分鐘,所以只能回復第二次,最上面的程式我有寫錯,因為表C後來將按鈕移至表B所以資料從
    A2開始標題列為A1~I1 所以最上面複製貼上的應該為[A1]才對~至於大大說的排序 因為是文字所以升降並沒有太大的差別
    主要是要將相同的資料排在一起,好讓我做下一個工作表

我是瑄

回復 7# Hsieh
謝謝大大,大大可能看錯了~我敘述是B工作表為報表,C工作表為篩選b表所選取的資料貼上
但是大大有標示出工作表可代換,所以是沒有問題的^^只是解釋一下!感恩大大的幫忙唷,我立刻試試看如果有問題再回復大大!!

我是瑄

回復 8# Hsieh
大大我將程式寫入按鈕巨集裡執行時
ay(j, i) = .Cells(ad(j), ar(i)).Value '將資料暫存陣列中
這行說資料型態不符,請問一下是甚麼原因呢???

我是瑄

回復 10# stillfish00


    感恩大大我會測試看看的!!