返回列表 上一主題 發帖

[發問] 某區間 隔一列貼上

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-12-17 16:21 | 顯示全部帖子

[發問] 某區間 隔一列貼上

Dear,

我想將Workbooks("A庫存表.xlsx").Sheets("盤點")
T6:Y6
T8:Y8
    ┋
T26:Y26 的資料copy後,貼到
Workbooks("最新庫存.xlsx").Sheets("check")
從AV34、AV36...一直到貼完T26:Y26的"值"，也就是隔一列貼上
請問VBA語法該怎麼寫?
收藏 分享

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2019-12-18 19:36 | 顯示全部帖子
本帖最後由 PJChen 於 2019-12-18 19:46 編輯

回復 2# 89305039

您好,
目的檔,要貼上的資料,是一個區域不是整列
Workbooks("最新庫存.xlsx").Sheets("check")
從AV34、AV36...
所以不能用這個寫法,而且要貼上的地方是雙數,為什麼這個是單數?
Activesheet.Range("33:33,35:35,....(依此類推寫完)").Select
而且我的2個表格都不要有任何變動,這樣表格會破壞,所以不能有
Selection.Insert Shift:=xlDown
可以再幫忙用別的寫法嗎? 謝謝

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2019-12-20 21:13 | 顯示全部帖子
回復 4# ikboy

感謝...這個程式OK
請問,如要只要貼上值,不要格式,這句該怎麼改?
.Range("T" & i).Resize(1, 6).Copy ss.Range("AV" & 28 + i).Resize(1, 6)

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2019-12-22 20:46 | 顯示全部帖子
回復 4# ikboy
只貼值的問題解決了,不過請問
雖然程式中加了,這二句,但畫面還是會一直閃動
Application.ScreenUpdating = 0
Application.Calculation = xlManual     '手動計算

但如果在程式中直接按F5,不但執行更快,而且不會閃,是為什麼?
我是在程式中做了一個觸發按鍵去執行程式
有沒有什麼方式可以讓它像按F5的效果一樣?

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題