- 帖子
- 87
- 主題
- 24
- 精華
- 0
- 積分
- 122
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- 2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-7-9
- 最後登錄
- 2018-1-16
|
試試看，不知道是不是你要的！- Sub 巨集2()
- '
- ' 巨集2 巨集
- '
- '篩選資料
- ActiveSheet.Range("$A$1:$B$57").AutoFilter Field:=1, Criteria1:="B"
- '全選
- Range("A1").CurrentRegion.Select
- '取代
- Selection.Replace What:="8/1", Replacement:="8/10", LookAt:=xlPart, _
- SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
- ReplaceFormat:=False
- End Sub
|
|
發表於 2011-8-10 09:43
| 