Board logo

標題: [發問] 篩選小於0的VBA程序? [打印本頁]
作者: jonn0510    時間: 2012-9-2 21:36     標題: 篩選小於0的VBA程序?

請教老師:
希望用VBA自動篩選K3~K21小於0的值,篩選後將篩選結果拷貝到R3.如附件
謝謝
作者: yangjie    時間: 2012-9-2 22:43

回復 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    時間: 2012-9-3 05:50

回復 2# yangjie

yangjie 老師:
OK ! 感謝您的指導
作者: Hsieh    時間: 2012-9-3 11:26

回復 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    時間: 2012-9-3 20:08

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

回復 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    時間: 2012-9-4 00:28

回復 6# Hsieh
超級版主Hsieh 謝謝
我又學到了篩選語法 Good
作者: jonn0510    時間: 2012-9-4 06:14

回復 6# Hsieh

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)