- ©«¤l
- 60
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 93
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- Windows 7
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-9-8
- ³Ì«áµn¿ý
- 2020-4-15
|
¦^´_ 2# lpk187
Hi «e½ú
§Ú¥Dn·Q§âÁcÂøªº¸ê®Æ ±q¨ä¥L¤u§@ªí¼´¶i§Úªº¸ê®Æªí¹ïÀ³ªº¤u§@ªí¤¤,¨Ï¥ÎVlookup¨Ã§ä¥XÄæ¦ìB1+C1 ,¨Ã¥B±Æ§Ç³Ì¤jȦA¤W(¥ÑZ->A)
³Ì«áPrint¥X¨Ó
###############################################
§Ú·Q¸ß°Ý¥t¤@Ó°ÝÃD ±q²Ä¤@¦æ¶]¨ì³Ì¤U¤@ÄæCells®Éµ²§ô¨ìKÄ檺¹Bºâ«á,·|²£¥Í¤@Ó¸ê®Æ«¬ºA¤£²Å,¤£ª¾«e½ú¬O§_¦³¸Ñ
Cells(1, 1).Select
For K = 1 To ThisWorkbook.Sheets(1).UsedRange.Rows.Count
Cells(K, 4) = Cells(K, 3) + Cells(K, 2)
Next
###############################################
ÁÙ·Q¥t¥~¦A¸ß°Ý
¦pªG»¡For Each Rng In Sheets(1).Range("a2:a5000")
¥L³oÓRange("A2:A5000") ³oÓ¬O§_¥i¥H§ï¦¨Äæ¦ì¤¤¦³Äæ¶ñ¤J¸ê®Æ°µ¹Bºâ§Y¥i
###############################################
³Ì«á§Ú¦³ªþ¤Wªþ¥ó! ¦pªG¥i¥Hªº¸Ü³Â·Ð§A¬d¬Ý¤@¤U ·PÁÂ! |
-
-
ºÃ°Ý.rar
(31.03 KB)
ªþ¥ó
|