[發問]依篩選後資料,填入日期記錄(已解決)

巴克斯

如題&附件,請問如何只針對篩選過的資料,填入相關資料,謝謝

篩選資料記錄日期.rar (3.23 KB)

下載次數: 32

2011-8-10 08:16

play9091

試試看，不知道是不是你要的！

1. Sub 巨集2()
   
2. '
   
3. ' 巨集2 巨集
   
4. '
   
5. 
   
6. '篩選資料
   
7.     ActiveSheet.Range("$A$1:$B$57").AutoFilter Field:=1, Criteria1:="B"
   
8. '全選
   
9.     Range("A1").CurrentRegion.Select
   
10. '取代
    
11.     Selection.Replace What:="8/1", Replacement:="8/10", LookAt:=xlPart, _
    
12.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    
13.         ReplaceFormat:=False
    
14. End Sub

複製代碼

巴克斯

回復 2# play9091

謝謝回覆
不過我是先人工篩選,想要針對已篩選的資料B
其舊日期資料8/1,想逐一加入當日日期(由8/1變成8/1,8/10)---加入當日8/10資料

因為篩選出來的B資料中,其舊資料日期不一定全是8/1(抱歉沒舉例好)
所以不全然用單一的取代,請問如何獲取逐欄位置,加入當日日期資料
謝謝

oobird

1. Sub yy()
   
2. With ActiveSheet
   
3. If .FilterMode Then
   
4. For Each c In .[b:b].SpecialCells(2, 23)
   
5. If c.Row > 1 Then c.Value = c.Value & "," & Application.Text(Date, "m/d")
   
6. Next
   
7. End If
   
8. End With
   
9. End Sub

複製代碼

巴克斯

回復 4# oobird

謝謝木工版大,問題解決了
程式又精簡,我要好好學習