jsc0518

¦^´_ 19# GBKEE
Dear ª©¥D,
§Ú¹B¥Î¤F±z©Ò±Ð¾Éªº»yªk¡A¦³µo¥Í¤U¹Ï¡A½Ð°Ý­n§ó§ï­þ¤@»yªk©O¡H
ÁÂÁ±z!

¤U¸ü (6.28 KB)

2018-2-12 09:59

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********«ü©w­n½Æ»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

GBKEE

¦^´_ 21# jsc0518
Sub Step1() , Sheets("vba") ,  Sheets("¸ê®Æ®w")
¬O¦b¦P¤@­Ó xlsm  ¶Ü?
¤£¬O ¶·«ü¦W Workbooks("xxx").( Sheets("vba") ,  Workbooks("xxx"). Sheets("¸ê®Æ®w")

jsc0518

¦^´_ 22# GBKEE
Dear ª©¥D,
§Ú¦A¸Õ¸Õ¬Ý±z©Ò´£¨Ñªº¤èªk
·P®¦¡I

jsc0518

¦^´_ 22# GBKEE
Dear ª©¥D,
§Ú¨Ï¥Î±zªºVBA°µ­×§ï"ªÅ¥ÕÄæ¦ì¥i¥H¦Û°Ê½Æ»s»P¤W¤@µ§¸ê®Æ¬Û¦P"
§Ú§âVBA§ï¦¨BÄæ®É¡A«oµL°Ê§@(ªÅ¥ÕÄæ¦ìµLªk¦Û°Ê½Æ»s»P¤W¤@µ§¸ê®Æ¬Û¦P)¡A¬O§_­þ¤@¬q»yªk¥¼­×­q¡H
Thanks!

Sub Step6()
'ªÅ¥ÕÄæ¦ì¥i¥H¦Û°Ê½Æ»s»P¤W¤@µ§¸ê®Æ¬Û¦P-B
With ActiveSheet.UsedRange.Columns("B")
        If .Cells(1).End(xlDown).End(xlDown).Row <> Rows.Count Then  '§PÂ_¦³ªÅ¥ÕªºÀx¦s®æ  !!!!
            .SpecialCells(xlCellTypeBlanks).Cells = "=R[-1]C"                        '¨S¦³ªÅ¥ÕªºÀx¦s®æ .SpecialCells(xlCellTypeBlanks) µ{¦¡·|¿ù»~
            .Value = .Value
        End If
   End With
End Sub

jsc0518

¦^´_ 22# GBKEE
Àɮצp¤U
Book1.rar (11.12 KB)

¤U¸ü¦¸¼Æ: 4

2018-2-12 16:39

GBKEE

¦^´_ 25# jsc0518
¤@­Óµ{¦¡½X¨Ã¤£¯à³q¥Î©ó©Ò¦³Ãþ¦üªºª¬ªp
ªþÀɤ¤¦]AÄæ¨S¦³¨Ï¥Î¨ì ,¤£¾A¥Î ActiveSheet.UsedRange.Columns("B") ¬° ActiveSheetªº C Äæ
­n¬Ý§A¹ê»Ú¤WÀɮ׻ݦ³©Ò­×§ï,½Ð¦AªþÀɬݬÝ