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

½Ð°Ý¡GÃö©ó­×§ïVBA»yªk

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


Noname.jpg
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
Just do it.

TOP

¦^´_ 21# jsc0518
Sub Step1() , Sheets("vba") ,  Sheets("¸ê®Æ®w")
¬O¦b¦P¤@­Ó xlsm  ¶Ü?
¤£¬O ¶·«ü¦W Workbooks("xxx").( Sheets("vba") ,  Workbooks("xxx"). Sheets("¸ê®Æ®w")
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2018/2/12 16:24): ªþÀɬݬÝ

¦^´_ 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
Just do it.

TOP

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

TOP

¦^´_ 25# jsc0518
¤@­Óµ{¦¡½X¨Ã¤£¯à³q¥Î©ó©Ò¦³Ãþ¦üªºª¬ªp
ªþÀɤ¤¦]AÄæ¨S¦³¨Ï¥Î¨ì ,¤£¾A¥Î ActiveSheet.UsedRange.Columns("B") ¬° ActiveSheetªº C Äæ
­n¬Ý§A¹ê»Ú¤WÀɮ׻ݦ³©Ò­×§ï,½Ð¦AªþÀɬݬÝ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD