[發問] 篩選小於0的VBA程序?

jonn0510

請教老師:
希望用VBA自動篩選K3~K21小於0的值,篩選後將篩選結果拷貝到R3.如附件
謝謝

yangjie

回復 1# jonn0510
Sub test()
    Sheets("工作表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 老師:
OK ! 感謝您的指導

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

複製代碼

jonn0510

回復 4# Hsieh
Hsieh 老師:
您的方法也不錯,但有一個嚴重的問題,那就是會將 I2~O2的內容,無條件拷貝至R3.
如果I2~O2沒有內容是沒影響,但是若有的話結果就會不同喔!
感謝您的指導~謝謝您

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

複製代碼

yangjie

回復 6# Hsieh
超級版主Hsieh 謝謝
我又學到了篩選語法 Good

jonn0510

回復 6# Hsieh

Hsieh 老師:
感謝您,這個方式OK !
又多學一招.謝謝.