PJChen

　暱稱: PJ

帖子: 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

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2019-12-22 20:46 | 只看該作者

回復 4# ikboy
只貼值的問題解決了,不過請問
雖然程式中加了,這二句,但畫面還是會一直閃動
Application.ScreenUpdating = 0
Application.Calculation = xlManual '手動計算

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

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2019-12-20 21:13 | 只看該作者

回復 4# ikboy

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

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

4^#

發表於 2019-12-19 10:16 | 只看該作者

Sub zz()
Dim ss As Worksheet
Application.ScreenUpdating = 0
Set ss = Workbooks("最新庫存.xlsx").Sheets("check")
With Workbooks("A庫存表.xlsx").Sheets("盤點")
For i = 6 To 26 Step 2
.Range("T" & i).Resize(1, 6).Copy ss.Range("AV" & 28 + i).Resize(1, 6)
Next
End With
Application.ScreenUpdating = 1
End Sub

複製代碼

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

論壇榮譽勳章論壇贊助勳章

3^#

發表於 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

89305039

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: win8.1
軟體版本: 1.0
閱讀權限: 10
性別: 男
註冊時間: 2014-1-4
最後登錄: 2020-1-1

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2019-12-18 11:19 | 只看該作者

最簡單是先計算好區間範圍然後程式就很簡單寫，

Workbooks("最新庫存.xlsx").Activate

Activesheet.Range("33:33,35:35,....(依此類推寫完)").Select
Selection.Insert Shift:=xlDown

set wb = Workbooks("A庫存表.xlsx").Sheets("盤點")

For i = 6 To 26 Step 2

wb.Range(i & ":" & i).Copy Activesheet.Range(28 + i & ":" & 28 + i)

Next

TOP