返回列表 上一主題 發帖

[發問] 請問 Excel VBA 複製怎麼寫

wanggy77

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
win 7 
軟體版本
2007 
閱讀權限
10 
性別
男 
來自
台北 
註冊時間
2015-6-16 
最後登錄
2015-6-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
65 
主題
0 
精華
0 
積分
64 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2011-11-10 
最後登錄
2019-2-27 
2#
發表於 2015-6-16 10:19 | 只看該作者
1 木瓜  2     =>木瓜
2 鳳梨  1     =>木瓜
3 水梨  0     =>鳳梨
4 蘋果  3     =>蘋果

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

TOP

wanggy77

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
win 7 
軟體版本
2007 
閱讀權限
10 
性別
男 
來自
台北 
註冊時間
2015-6-16 
最後登錄
2015-6-18 
3#
發表於 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或空白例如:空白 就不複製
我是新人

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
4#
發表於 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
複製代碼

TOP

wanggy77

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
win 7 
軟體版本
2007 
閱讀權限
10 
性別
男 
來自
台北 
註冊時間
2015-6-16 
最後登錄
2015-6-18 
5#
發表於 2015-6-16 16:34 | 只看該作者
回復 4# lpk187


    大大太厲害了  感謝了
我是新人

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題