- ©«¤l
- 14
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 48
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-2-25
- ³Ì«áµn¿ý
- 2019-8-4
|
°²Y®³Sub Ex_newexce1()¥X¨Óקï¤@¤U..
¥u¬O³æ¯Âªº½Æ»s¶K¤W
Sub Ex_newexce2()
Dim AR As Variant, Rng(1 To 2) As Range, E As Range
With Workbooks("a").Sheets(1)
Set Rng(1) = .Range(¡§A1¡¨, .Range(¡§A1¡¨).End(xlDown)) ¡¥¦Pexcel.exe ¥i¥H¦¨¥\
Set Rng(2) = Workbooks(¡§a¡¨).Sheets(1).Range(¡§c1¡¨) ¡¥AÀÉAÄæcopy AÀÉCÄæ
Rng(1).Copy Rng(2)
End With
End Sub
Sub Ex_newexce3()
Dim AR As Variant, Rng(1 To 2) As Range, E As Range
With Workbooks("a").Sheets(1)
Set Rng(1) = .Range(¡§A1¡¨, .Range(¡§A1¡¨).End(xlDown)) ¡¥¤£¦Pexcel.exe ·|¥¢±Ñ
Set Rng(2) = Ap.Workbooks(¡§c¡¨).Sheets(1).Range(¡§c1¡¨) ¡¥¡¥AÀÉAÄæcopy CÀÉCÄæ
Rng(1).Copy Rng(2)
End With
End Sub
¤p§ÌÁÙ¦b«ä¯ÁµÛ¿ù»~ªºì¦].... |
|