標題: [發問] 請問 Excel VBA 複製怎麼寫 [打印本頁]

---

作者: wanggy77    時間: 2015-6-16 09:27     標題: 請問 Excel VBA 複製怎麼寫

請問各位高手大大
小弟想寫一段Excel VBA

     A     B      C
1 木瓜  2     木瓜
2 鳳梨  1     木瓜
3 水梨  0     鳳梨
4 蘋果  3     蘋果
5 香蕉         蘋果
6                  蘋果
7
.
.
.
.
.
65536
要如何將A欄乘B欄的數值複製到C欄

---

作者: diolin    時間: 2015-6-16 10:19

1 木瓜  2     =>木瓜
2 鳳梨  1     =>木瓜
3 水梨  0     =>鳳梨
4 蘋果  3     =>蘋果

小弟駑鈍, 看不懂其中的規則

---

作者: wanggy77    時間: 2015-6-16 11:33

A           B        C
1 木瓜   2     木瓜
2 鳳梨   1     木瓜
3 水梨   0     鳳梨
4 蘋果   3     蘋果
5 香蕉          蘋果
6                   蘋果
7
.
.
.
.
.
65536
要如何將A欄乘B欄的數值複製到C欄
不好意思小弟寫得太籠統了
如果A.B欄都不是空白
例A1=木瓜 判斷B1的數值不是0或空白例如2 那複製到C1和C2木瓜
  A2=鳳梨 判斷B2的數值不是0或空白例如1 就從C3開始複製 鳳梨
  A3=水梨 判斷B3的數值不是0或空白例如0 就不複製
  A4=蘋果 判斷B4的數值不是0或空白例如3 就從C4開始複製 鳳梨 到C6
  A5=香蕉 判斷B5的數值不是0或空白例如:空白 就不複製

---

作者: lpk187    時間: 2015-6-16 12:03

回復 3# wanggy77
是這樣嗎？

1. Public Sub test()
   
2. cc = 1
   
3. Range("C1:C" & Range("C65535").End(xlUp).Row).ClearContents
   
4. For Each Rng In Range("A1:A" & Range("A65535").End(xlUp).Row)
   
5.     aa = Rng.Offset(, 1)
   
6.     If aa = 0 And aa = "" Then GoTo 100
   
7.     For I = 1 To aa
   
8.             Cells(cc, 3) = Rng
   
9.             cc = cc + 1
   
10.     Next
    
11. 100:
    
12. Next
    
13. End Sub

複製代碼

---

作者: wanggy77    時間: 2015-6-16 16:34

回復 4# lpk187


    大大太厲害了  感謝了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)