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

ÂI¿ï½Æ»s

ÂI¿ï½Æ»s

¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!°ÝÃD¦pªþÀÉ»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

Leov34.rar (83.36 KB)

¦^´_ 1# myleoyes
  1. Sub ¦h­«¤ÀªR()
  2.     Dim Rng As Range
  3.     With Sheet1
  4.         Set Rng = .Range("I2").CurrentRegion
  5.         Set Rng = .Range(Rng(2, 1), Rng(Rng.Count))
  6.         If Not Intersect(ActiveCell, Rng) Is Nothing Then
  7.             .[A2].Copy .Range("A" & Rows.Count).End(xlUp).Offset(1)
  8.             .Cells(ActiveCell.Row, "I").Resize(, 7).Copy .Range("I" & Rows.Count).End(xlUp).Offset(1)
  9.        End If
  10.     End With
  11. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE
GBKEE¨}®v§A¦n!
¡@¡@¡@¨}®v!ÁÂÁÂ!µ{¦¡¥u¯à³æ¿ï
             ¥i§_¥H­×§ï¦³½Æ¿ï¥\¯à©O?  
          ¦pªþÀÉLeov34-2½Ð¦A¨¯­WÅo,ÁÂÁ¦A¤T!!

Leov34-2.rar (83.39 KB)

TOP

  1. Sub ¦h­«¤ÀªR()
  2.     Dim Rng As Range, A As Range
  3.     With Sheet1
  4.         Set Rng = .Range("I2").CurrentRegion
  5.         r = Selection.Count
  6.         If Not Intersect(Selection, Rng) Is Nothing Then
  7.         Set A = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
  8.             Application.Intersect(Selection.EntireRow, Rng).Copy A.Offset(, 8)
  9.             .[A2].Copy A
  10.             A.AutoFill A.Resize(r, 1)
  11.        End If
  12.     End With
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# myleoyes
  1. Sub ¦h­«¤ÀªR()
  2.     ActiveWindow.ScrollRow = 150
  3.     Dim Rng As Range, E As Range
  4.     With Sheet1
  5.         Set Rng = .Range("I2").CurrentRegion
  6.         Set Rng = .Range(Rng(2, 1), Rng(Rng.Count))
  7.         For Each E In Selection.Rows
  8.             If Not Intersect(E, Rng) Is Nothing Then
  9.                 .[A2].Copy .Range("A" & Rows.Count).End(xlUp).Offset(1)
  10.                 .Cells(E.Row, "I").Resize(, 7).Copy .Range("I" & Rows.Count).End(xlUp).Offset(1)
  11.             End If
  12.         Next
  13.     End With
  14. End Sub
½Æ»s¥N½X
¥t Hsieh ª©¥D ªº   r = Selection.Count   ­×§ï¬° r = Selection.Rows.Count ¤~·|¥¿½Tªº°õ¦æ

TOP

¦^´_ 4# Hsieh
hsieh«e½ú§A¦n!
       °¸¹³«e½ú!ÁÂÁÂ!!µ{¦¡½Æ¿ï¨S°ÝÃD
       ¦ý¬O³æ¿ï®É,°»¿ù¦b¦¹ A.AutoFill A.Resize(R, 1)
       ½Ð¦A³Â·Ð¤@¤UÁÂÁ¦A¤T!!

TOP

¦^´_ 5# GBKEE
GBKEE«e½ú§A¦n!
     ¡@ ¨}®v!ÁÂÁÂ!!µ{¦¡goodÁÂÁ¦A¤T!!

¨â¦ì«e½ú§A­Ì¦n!¡@¡@
      Sub ½Æ»s()
          Dim Ar As Range, A As Range
          Set Ar = Sheet1.[B1:C9]
          Set A = Sheet1.[IV1].End(xlToLeft).Offset(, 1)
          Ar.Copy
          A.Offset(0, 0).PasteSpecial xlPasteFormats
          A.Offset(0, 0).Resize(9, 2) = Ar.Value
          Application.CutCopyMode = False
       End Sub
       ½Æ»s¥X¨ÓªºÀx¦s®æ³£¬O­È
       ¥H¹ê»Ú»Ý¨D¦³¥X¤JÁö¸g­×§ïÁÙ¬O¬Ý¤£¤U¥h«¢«¢!!
       ¥u¦n¦A³Â·Ð«e½úÅo!¹ê¦b¤ï¶Õ¨¯­WÅo!ÁÂÁ¦A¤T!!

Leov35.rar (10.9 KB)

TOP

¦^´_ 6# myleoyes


    If R>1 then A.AutoFill A.Resize(R, 1)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# myleoyes
¬O³o¼Ë¶Ü?
  1. Sub ½Æ»s()
  2.     With Sheet1
  3.         .Range("B1", .[b1].End(xlDown).Offset(, 1)).Copy
  4.         With .[IV1].End(xlToLeft).Offset(, 1)
  5.             .PasteSpecial
  6.             .Resize(2, 2).Value = .Resize(2, 2).Value
  7.         End With
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# GBKEE
hsieh«e½ú§A¦n!
       °¸¹³«e½ú!¨¯­WÅo!ÁÂÁ¦A¤T!

GBKEE«e½ú§A¦n!
¡@¡@¡@¨}®v!¨¯­WÅo!ÁÂÁ¦A¤T!

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD