[發問] (已解決)使用自動篩選修改資料

本帖最後由 freeffly 於 2012-2-22 16:59 編輯

如果我想用自動篩選的方式選出符合的條件然後再做修改
程式碼要如何寫?

Sheet1的資料是要修改的部份
條件就是符合Sheet2的品號(A欄)就將Sheet1 A欄符合的部份對應的B欄資料也要一樣
如果用迴圈資料多時會花很多時間
自己知道的方法目前還不知道如何用自動篩選的情況下修改

新增Microsoft Excel 工作表 (2).rar (1.5 KB)

樓主熱帖

字典兩各字還真難理解

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

2^#

發表於 2011-9-1 14:54 | 顯示全部帖子

回復 3# Hsieh

   大大謝謝
SpecialCells(xlCellTypeVisible) 重點是這各嗎可見的儲存格

      其他的簡略方式還看不太懂

   先消化一下好進一步發問

字典兩各字還真難理解

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

3^#

發表於 2011-11-1 10:46 | 顯示全部帖子

回復 3# Hsieh

版主大人我查看了幾次有一些不太了解
Set d = CreateObject("Scripting.Dictionary") 這各的意思是什麼 ()裡面的意思又是什麼?
For Each a In .Range(.[A2], .[A2].End(xlDown)) 這句為什麼Range的前面要加.()裡面的[]前面也要加.?
d(a.Value) = a.Offset(, 1).Value 這句不太懂

If .AutoFilterMode = False Then .Range("A:B").AutoFilter 沒用過這種方式(.Range("A:B").AutoFilter)做自動篩選有沒有限制
.Range("A:B").AutoFilter 1, ky 這句不懂

Set Rng = .AutoFilter.Range.Offset(1, 0).Columns(2).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants) 這句的意思?

很抱歉拖這麼久才提問,而且還問了這麼多，希望版主幫忙回答依下

字典兩各字還真難理解

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

4^#

發表於 2011-11-1 11:28 | 顯示全部帖子

回復 3# Hsieh

Selection.AutoFilter Field:=14, Criteria1:="<>1"
Range("N5:N" & Range("C65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).ClearContents

請問我用這種方式有達到我要的結果
但是不確定是不是正確的用法

字典兩各字還真難理解

TOP

freeffly