VBA複製貼上

excel vba vba

hengyun 2022-12-09 22:28:31 ‧ 1581 瀏覽

分享至

問題一
https://paste.pics/KB79O
希望將同一個product_pro編號的D E欄位資料放在同一行依序拉成一排 e.g.
product_pro 0 的 D1924放到F1923 E1924放到G1923 D1925放到H1923 E1925放到I1923
目前嘗試用VBA 但是螢幕閃了之後看起來還是沒有變
Sub Macro1()
'
' Macro1 Macro
'

Dim i, s, t, u As Integer
i = 1924
For s = 0 To 1
    ActiveSheet.Range("Di:Ei").Select
    Selection.Copy
    t = i - 1
    ActiveSheet.Range("Ft:Gt").Select
    ActiveSheet.Paste
    u = i + 1
    ActiveSheet.Range("Du:Eu").Select
    Selection.Copy
    ActiveSheet.Range("Ft:Gt").Select
    ActiveSheet.Paste
    i = i + 4
    s = s + 1
Next s

End Sub

問題二
https://paste.pics/KB7BG
https://paste.pics/KB7MA
根據各個setup_pro編號
希望把raw sheet的C2308~C2310 複製到 sheet1 K2-M2;C2312~C2314複製到 sheet1 O2-Q2;D2308~D2310複製到 sheet1 T2-V2
raw sheet的D2312~D2314 複製到 sheet1 X2-Z2

把raw sheet的C2318~C2320 複製到 sheet1 K3-M3;C2322~C2324複製到 sheet1 O3-Q3;D2318~D2320複製到 sheet1 T3-V3
raw sheet的D2322~D2324 複製到 sheet1 X3-Z3

以此類推

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

ccenjor

iT邦高手 1 級 ‧ 2022-12-10 10:09:49

問題一
E2:
=IF($B2=0,OFFSET($B2,QUOTIENT(COLUMN()-1,2)-1,MOD(COLUMN()-3,2)+1,1.1),"")
向右複製公式到F2:H20000。

回應 3
分享
檢舉

hengyun iT邦新手 5 級 ‧ 2022-12-10 12:20:48 檢舉

謝謝~想詢問問題二

hengyun iT邦新手 5 級 ‧ 2022-12-10 12:31:54 檢舉

簡化問題二
想把C2308~C2310複製到F2308~H2308
C2312~C2314複製到I2308~K2308

C2318~C2320複製到F2318~H2318
C2322~C2324複製到I2318~K2318

以此類推

ccenjor iT邦高手 1 級 ‧ 2022-12-10 19:02:12 檢舉

F2308:
=IF($B2306="PRODUCT1",OFFSET($C2308,COLUMN()-6,0,1,1),"")
向右複製公式到G2308:H2308。
I2308:
=IF($B2306="PRODUCT1",OFFSET($C2308,COLUMN()-5,0,1,1),"")
向右複製公式到J2308:K2308。
框選F2308:K2308，向下複製到F2398:K2398。