°Ý¤@ӳ̲³æªºVBA»yªk(¥[ªk¤Î´îªk)
- ©«¤l
- 455
- ¥DÃD
- 111
- ºëµØ
- 0
- ¿n¤À
- 563
- ÂI¦W
- 235
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-11-7
- ³Ì«áµn¿ý
- 2024-11-26
|
°Ý¤@ӳ̲³æªºVBA»yªk(¥[ªk¤Î´îªk)
¦U¦ìªº¥ý¶i¡A§ÚªºVBA°ò¦¹ê¦b¥´±o¤£¦n¡A©Ò¥H·Q¥ý±q³Ì²³æªº¾Ç°_
¥[ªk
§Ú§Æ±æVBA¥i¥HÀ°§Úºâ¥X--> ³oÓ»yªkn«ç»ò¼g?
C1=A1+B1
C2=A2+B2
.
.
.
.
.
´îªk
§Ú§Æ±æVBA¥i¥HÀ°§Úºâ¥X--> »yªkn«ç»ò¼g?
C1=A1-B1
C2=A2-B2
.
.
.
.
. |
|
Just do it.
|
|
|
|
|
- ©«¤l
- 455
- ¥DÃD
- 111
- ºëµØ
- 0
- ¿n¤À
- 563
- ÂI¦W
- 235
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-11-7
- ³Ì«áµn¿ý
- 2024-11-26
|
§Ú¦Û¤v¬ã¨s¥X¨Ó¤F
ÁÂÁ¦U¦ì
Sub test()
For i = 1 To [a65536].End(xlUp).Row
Cells(i, 3) = Cells(i, 1) + Cells(i, 2)
Next i
End Sub |
|
Just do it.
|
|
|
|
|
- ©«¤l
- 2025
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 2053
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office2007
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¥«
- µù¥U®É¶¡
- 2011-3-2
- ³Ì«áµn¿ý
- 2024-3-14
|
¦^´_ 2# jsc0518
Cells(i, 3) = Cells(i, 1) + Cells(i, 2)
¤]¥i¥H³o¼Ëªí¹F
Cells(i, "C") = Cells(i, "A") + Cells(i, "B") |
|
{...} ªí¥Ü»Ýn¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡
|
|
|
|
|
- ©«¤l
- 455
- ¥DÃD
- 111
- ºëµØ
- 0
- ¿n¤À
- 563
- ÂI¦W
- 235
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-11-7
- ³Ì«áµn¿ý
- 2024-11-26
|
¦^´_ 3# ML089
ÁÂÁ§Aªº«ü¾É! |
|
Just do it.
|
|
|
|
|