返回列表 上一主題 發帖

[發問] VBA 移動儲存格位置，另存新檔及刪除

lovenice831

帖子
30 
主題
4 
精華
0 
積分
34 
點名
0  
作業系統
win 8 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2020-12-9 
最後登錄
2021-4-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-12-11 15:23 | 顯示全部帖子

[發問] VBA 移動儲存格位置，另存新檔及刪除

大家好，我第一次發帖，如果有什麼不對的請見諒
因為每月都要上交月結報表，不想再剪剪貼貼，所以在嘗試用兩個按鈕解決它們 ^^"
問題
1) 我只能做到剪貼第一個工作頁，貼上後怎樣試都不能令儲存格自動跳到下一列的空格上，令到貼上第二個工作表的資料時都把第一個工作頁貼上的都覆蓋了 /.\
2) 我試著把貼好的"月結'的分頁另存作一個新的工作表，並且把一併存檔的巨集指令及圖案按鈕刪除，但我只能做到開了一個新檔案，不會自動存檔及刪除巨集指令及圖案按鈕

十分感謝幫忙

test save&clear.zip (18.78 KB)

收藏 分享

lovenice831

帖子
30 
主題
4 
精華
0 
積分
34 
點名
0  
作業系統
win 8 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2020-12-9 
最後登錄
2021-4-5 
2#
發表於 2020-12-12 01:56 | 顯示全部帖子
回復 2# luhpro


   十分感謝幫忙:handshake :handshake

TOP

lovenice831

帖子
30 
主題
4 
精華
0 
積分
34 
點名
0  
作業系統
win 8 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2020-12-9 
最後登錄
2021-4-5 
3#
發表於 2020-12-19 14:03 | 顯示全部帖子
回復 4# 准提部林
先謝謝幫忙，但有問題想請教一，就是如果用這個篩選出來的資料，能給出固定欄嗎?
我試了好幾天也只能做到把篩選出來的資料在貼上的時候向下移數行或右移數欄才貼上，就是不能收窄複製的欄數
只需要30欄，但怎樣也改不到，希望能夠幫忙，謝謝


,
         If .FilterMode Then .ShowAllData
         .[b7].AutoFilter Field:=2, Criteria1:=xS.[j2]
         .AutoFilter.Range.Offset(1, 2).Copy xS.Cells(Rows.Count, 1).End(xlUp)(2)
         .ShowAllData

TOP

lovenice831

帖子
30 
主題
4 
精華
0 
積分
34 
點名
0  
作業系統
win 8 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2020-12-9 
最後登錄
2021-4-5 
4#
發表於 2020-12-21 14:14 | 顯示全部帖子
回復 6# 准提部林


    不好意思，我說得不太清楚，是連續的，由C 欄到 AF 欄，其實是否只要我篩選這列也能逹到這個效果呢? 謝謝解答

TOP

lovenice831

帖子
30 
主題
4 
精華
0 
積分
34 
點名
0  
作業系統
win 8 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2020-12-9 
最後登錄
2021-4-5 
5#
發表於 2020-12-26 20:13 | 顯示全部帖子
回復 8# 准提部林
謝謝幫忙，但我不知出現什麼問題，試著試著，現在全都用不到，麻煩幫忙查看一下，謝謝


    test Inventory.rar (486.34 KB)

TOP

lovenice831

帖子
30 
主題
4 
精華
0 
積分
34 
點名
0  
作業系統
win 8 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2020-12-9 
最後登錄
2021-4-5 
6#
發表於 2020-12-28 10:36 | 顯示全部帖子
回復 11# luhpro


    先謝過，我試轉1 ，但轉一後只能顯示A 的結果，B 和C 的都依然是空白

TOP

lovenice831

帖子
30 
主題
4 
精華
0 
積分
34 
點名
0  
作業系統
win 8 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2020-12-9 
最後登錄
2021-4-5 
7#
發表於 2020-12-28 10:49 | 顯示全部帖子
回復 10# 准提部林

不好意思，我轉擋了並再上傳，麻煩了  
test Inventory.rar (237 KB)

TOP

lovenice831

帖子
30 
主題
4 
精華
0 
積分
34 
點名
0  
作業系統
win 8 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2020-12-9 
最後登錄
2021-4-5 
8#
發表於 2020-12-28 14:07 | 顯示全部帖子
回復 14# 准提部林
好的，我再試一下，不好意思，麻煩你了

TOP

lovenice831

帖子
30 
主題
4 
精華
0 
積分
34 
點名
0  
作業系統
win 8 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2020-12-9 
最後登錄
2021-4-5 
9#
發表於 2020-12-29 16:19 | 顯示全部帖子
回復 16# luhpro


    謝謝你的解答，整體來說我之所以要三個迴圈是因為一個分頁等於一條生產線，每月尾都需要把各牌子的貨物分別做成月結表，所以需要這樣迴圈，謝謝幫忙

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題