ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

excel vba ¦pªG§â¤GÄæªº¸ê®Æcopy¨ì¥t¤GÄæ©O?

±z¦n¡A¸ÕµÛ¼g¤F£¸­Ó²³æªº¡AÅwªï°ª¤â«ü¥¿
¨ìVBA¸Ó¤u§@ªí¤U

Private Sub Worksheet_Change(ByVal Target As Range)
Dim E As Long
E = WorksheetFunction.CountA(Range("B:B")) + 1
Range("E1:F" & E).Value = Range("B1:C" & E).Value
End Sub

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD