- ©«¤l
- 2839
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2895
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-12-27
|
¦^´_ 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 |
|