帖子: 38
主題: 13
精華: 0
積分: 84
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-12-10
最後登錄: 2021-7-18

2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-9-2 21:36 | 只看該作者

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

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

YY.rar (7.52 KB)

樓主熱帖

感謝各位老師花心思教導

jonn0510

中學生 Rank: 2

帖子: 38
主題: 13
精華: 0
積分: 84
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-12-10
最後登錄: 2021-7-18

2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

8^#

發表於 2012-9-4 06:14 | 只看該作者

回復 6# Hsieh

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

感謝各位老師花心思教導

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

7^#

發表於 2012-9-4 00:28 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 91
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-15

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2012-9-3 21:37 | 只看該作者

回復 5# jonn0510

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

複製代碼

學海無涯_不恥下問

TOP

jonn0510

中學生 Rank: 2

帖子: 38
主題: 13
精華: 0
積分: 84
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-12-10
最後登錄: 2021-7-18

2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

5^#

發表於 2012-9-3 20:08 | 只看該作者

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

感謝各位老師花心思教導

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 91
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-15

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2012-9-3 11:26 | 只看該作者

回復 3# jonn0510

Sub nn()
With Range("I2:O21")
.AutoFilter 3, "<0"
.SpecialCells(xlCellTypeVisible).Copy [R3]
.AutoFilter
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

jonn0510

中學生 Rank: 2

帖子: 38
主題: 13
精華: 0
積分: 84
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-12-10
最後登錄: 2021-7-18

2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

3^#

發表於 2012-9-3 05:50 | 只看該作者

回復 2# yangjie

yangjie 老師:
OK ! 感謝您的指導

感謝各位老師花心思教導

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

2^#

發表於 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

TOP