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

VBA«ö¶s°ÝÃD

VBA«ö¶s°ÝÃD

¥»©«³Ì«á¥Ñ tangandchun3 ©ó 2019-3-24 18:08 ½s¿è

[Dear all¤j¤j

¥»¤H¦³­Ó°ÝÃD·Q¤F¦n¤[³£¸Ñ¨M¤£¤F,§Æ±æ¦U¦ì¤j¤j¥i¥HÀ°¦£¤@¤U

¥H¤U¬O¹Ï¤@©M¹Ï¤G

¹Ï¤@¬O¤u§@ªí1,¥L¦³¤@­Ó«ö¶s,¤]¦³¤@¨Ç¸ê®Æ¦b¤º
³o­Ó«ö¶s«ö¤U,¦p¦ó¤~¯à§â¸ê®Æ¶K¤W¹Ï¤Gªº¤u§@ªí2
ªþªí¤@­Ó
ÁÂ




VBA1.xlsx.rar (16.2 KB)
GOOD BOY

¸ê®Æ¬O¤°»ò??
¦³¨S¦³¥]§t¼ÐÃD¦æ??
«ç»ò¶K?  Âл\¦¡??  ²Ö¿n¦¡??

TOP

¦^´_ 3# ­ã´£³¡ªL


    ¤£¬O¦n©ú¥Õ§A»¡¤°»ò:'(
¥L¥u¬O¤@¨Ç°ò¥»¸ê®Æ¡A§ÚÁÙ¦³¤@¨Ç¨S¦³¼g¤W¥h¡C
GOOD BOY

TOP

¦^´_ 4# tangandchun3

»¡©ú±o¤£°÷, ¤]¥u¯à²qµÛ¼g:
Private Sub CommandButton1_Click()
Dim xArea As Range, xA As Range

Set xArea = Range([F1], Cells(Rows.Count, 1).End(xlUp))   '[¤u§@ªí1] ¦³¸ê®Æªº½d³ò

Set xA = Sheets("¤u§@ªí2").Cells(Rows.Count, 1).End(xlUp) '[¤u§@ªí2] AÄæ³Ì«á¤@µ§¸ê®Æªº¦ì¸m
If xA <> "" Then Set xA = xA(2) '­Y³Ì«á¤@®æ¤£¬°"ªÅ", ¨ú¤U¤@­ÓªÅ¥Õ®æ

xArea.Copy xA '¶K¤J(²Ö¿n¦¡:¤@ª½©¹¤U¼W¥[)
End Sub

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD