[µo°Ý] ¿z¿ï¤p©ó0ªºVBAµ{§Ç?

jonn0510

½Ð±Ð¦Ñ®v:
§Æ±æ¥ÎVBA¦Û°Ê¿z¿ïK3~K21¤p©ó0ªº­È,¿z¿ï«á±N¿z¿ïµ²ªG«þ¨©¨ìR3.¦pªþ¥ó
ÁÂÁÂ

yangjie

¦^´_ 1# jonn0510
Sub test()
    Sheets("¤u§@ªí1").Activate
    row1 = [K3].End(xlDown).Row   
    j = 3
    For i = 3 To row1
        If Cells(i, 11).Value < 0 Then
            Range(Cells(i, 9), Cells(i, 15)).Copy Cells(j, 18)
            j = j + 1
        End If
    Next
End Sub

jonn0510

¦^´_ 2# yangjie

yangjie ¦Ñ®v:
OK ! ·PÁ±zªº«ü¾É

Hsieh

¦^´_ 3# jonn0510

1. Sub nn()
   
2. With Range("I2:O21")
   
3. .AutoFilter 3, "<0"
   
4. .SpecialCells(xlCellTypeVisible).Copy [R3]
   
5. .AutoFilter
   
6. End With
   
7. End Sub

½Æ»s¥N½X

jonn0510

¦^´_ 4# Hsieh
Hsieh ¦Ñ®v:
±zªº¤èªk¤]¤£¿ù,¦ý¦³¤@­ÓÄY­«ªº°ÝÃD,¨º´N¬O·|±N I2~O2ªº¤º®e,µL±ø¥ó«þ¨©¦ÜR3.
¦pªGI2~O2¨S¦³¤º®e¬O¨S¼vÅT,¦ý¬O­Y¦³ªº¸Üµ²ªG´N·|¤£¦P³á!
·PÁ±zªº«ü¾É~ÁÂÁ±z

Hsieh

¦^´_ 5# jonn0510

1. Sub nn()
   
2. With Range("I2:O21")
   
3. .AutoFilter 3, "<0"
   
4. Range("I3:O21").SpecialCells(xlCellTypeVisible).Copy [R3]
   
5. .AutoFilter
   
6. End With
   
7. End Sub

½Æ»s¥N½X

yangjie

¦^´_ 6# Hsieh
¶W¯Åª©¥DHsieh ÁÂÁÂ
§Ú¤S¾Ç¨ì¤F¿z¿ï»yªk Good

jonn0510

¦^´_ 6# Hsieh

Hsieh ¦Ñ®v:
·PÁ±z,³o­Ó¤è¦¡OK !
¤S¦h¾Ç¤@©Û.ÁÂÁÂ.