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

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

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

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

YY.rar (7.52 KB)

·PÁ¦U¦ì¦Ñ®vªá¤ß«ä±Ð¾É

¦^´_ 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

TOP

¦^´_ 2# yangjie

yangjie ¦Ñ®v:
OK ! ·PÁ±zªº«ü¾É
·PÁ¦U¦ì¦Ñ®vªá¤ß«ä±Ð¾É

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 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
·PÁ¦U¦ì¦Ñ®vªá¤ß«ä±Ð¾É

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

¦^´_ 6# Hsieh

Hsieh ¦Ñ®v:
·PÁ±z,³o­Ó¤è¦¡OK !
¤S¦h¾Ç¤@©Û.ÁÂÁÂ.
·PÁ¦U¦ì¦Ñ®vªá¤ß«ä±Ð¾É

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD