excel vba ¦pªG§â¤GÄæªº¸ê®Æcopy¨ì¥t¤GÄæ©O?
- ©«¤l
- 13
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- Office365
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2020-4-1
- ³Ì«áµn¿ý
- 2022-4-7
|
¦^´_ 2# a1234z
¹ê»Ú¹B¦æ®É¡Aµo²{·|·í¾÷¡AÀ³¸Ó¬OIJµo°ÝÃD
×§ï¦p¥H¤Uµ{¦¡½X¡A´NOK¤F
´£¨Ñ°Ñ¦Ò¡A¦pªG¦³¨ä¥L¼gªk¡A¤]½Ð¦U¦ì«ü±Ð
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim E As Long
E = WorksheetFunction.CountA(Range("B:B")) + 1
Range("E1:F" & E).Value = Range("B1:C" & E).Value
Application.EnableEvents = True
End Sub |
|
|
|
|
|
|