- ©«¤l
- 450
- ¥DÃD
- 110
- ºëµØ
- 0
- ¿n¤À
- 557
- ÂI¦W
- 84
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-11-7
- ³Ì«áµn¿ý
- 2024-4-27
|
¦^´_ 19# GBKEE
Dear ª©¥D,
§Ú¹B¥Î¤F±z©Ò±Ð¾Éªº»yªk¡A¦³µo¥Í¤U¹Ï¡A½Ð°Ýn§ó§ïþ¤@»yªk©O¡H
ÁÂÁ±z!
Option Explicit
Sub Step1()
Dim E As Range, Rng As Range
With Sheets("vba") 'With ³¯z¦¡ ¦b¤@Ó³æ¤@ª«¥ó©Î¤@ӨϥΪ̦Ûq«¬ºA¤W°õ¦æ¤@¨t¦Cªº³¯z¦¡¡C
'3********«ü©wn½Æ»sªº½d³ò*********************************
Set Rng = .UsedRange 'Sheets("vba")¤W¤w¨Ï¥Îªº½d³ò¬° "A:H"
End With
'4**************«ü©wªº½d³ò½Æ»s¨ì«ü©w¦ì¸m **********************
With Sheets("¸ê®Æ®w").Range("b" & Rows.Count).End(xlUp)
If .Cells = "" Then '²Ä¤@¦C
Rng.Copy .Cells
Else
Rng.Copy .Offset(1)
End If
End With
End Sub |
|