返回列表下一主題上一主題發帖

[發問] Excel VBA 複製問題請益

zz0660

中學生 Rank: 2

帖子: 50
主題: 15
精華: 0
積分: 75
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2024-6-14

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-10-30 09:58 | 顯示全部帖子

[發問] Excel VBA 複製問題請益

EXCEL裡面有兩個工作表，一個名稱為AA，另一個名稱為ZZ。如下圖
AA工作表↓

ZZ工作表↓

AA工作表，A2的位置有下拉式選單，裡面有20，40，60，80，100，121，142的數字，然後右側有一個按鈕，當按下右側按鈕就會判斷A2的數字，假設1.假設AA工作表的A2=40，就會複製ZZ工作表的E2到E5的數字，假設2.AA工作表的A2=121，就會複製ZZ工作表的E2到E13的數字，假設3.AA工作表的A2=142，就會複製ZZ工作表的E2到E15的數字，這樣如何寫VBA呈現。

以上，煩請大大解惑，謝謝!

樓主熱帖

zz0660

中學生 Rank: 2

帖子: 50
主題: 15
精華: 0
積分: 75
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2024-6-14

2^#

發表於 2021-10-30 18:34 | 顯示全部帖子

回復 2# 准提部林

感謝大大協助處理問題，正好是我想要的樣子，謝謝准提部林大大!

TOP

zz0660

中學生 Rank: 2

帖子: 50
主題: 15
精華: 0
積分: 75
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2024-6-14

3^#

發表於 2021-10-30 19:50 | 顯示全部帖子

回復 2# 准提部林

sub 複製()
dim v, m
v=val([AA!a2])
m=application.match(v, [{20,40,60,61,62,63,64,65,66,67,80,100,121,142}],0)
if iserror(m) then exit sub
[ZZ!e2].resize(m*2).copy [AA!B1]
end sub
大大，請問一下，假設我再追加數字61~67的數字，這樣的話無法只單純複製6格，目前希望的是假設60~69的數字，都只會複製6格，也就是ZZ工作表的E2:E7的格子數。
請大大解惑! 有試著改動 m*2 的*2 但效果不如預想。

TOP

zz0660