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

本帖最後由我是瑄於 2012-11-13 08:21 編輯

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

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

複製代碼

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

我是瑄

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 16
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 10
註冊時間: 2012-11-9
最後登錄: 2012-11-28

2^#

發表於 2012-11-13 14:53 | 顯示全部帖子

回復 2# c_c_lai

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

TOP

我是瑄

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 16
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 10
註冊時間: 2012-11-9
最後登錄: 2012-11-28

3^#

發表於 2012-11-18 04:41 | 顯示全部帖子

回復 4# stillfish00

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

TOP

我是瑄

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 16
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 10
註冊時間: 2012-11-9
最後登錄: 2012-11-28

4^#

發表於 2012-11-18 04:59 | 顯示全部帖子

回復 4# stillfish00

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

TOP

我是瑄