標題: 如何用vba刪除不是當日日期 [打印本頁]

---

作者: jerrystock    時間: 2015-3-15 02:05     標題: 如何用vba刪除不是當日日期

請問如何用VBA
A欄位為日期欄位
若不是當日日期則刪除那一整列
謝謝

---

作者: lpk187    時間: 2015-3-15 13:14

回復 1# jerrystock

給你參考

1. Public Sub 刪除_Range()
   
2. b = Date
   
3. 100:
   
4.     For Each Ran In Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row)
   
5.         If Ran <> b Then
   
6.             工作表2.Rows(Ran.Row).Delete Shift:=xlUp
   
7.             GoTo 100
   
8.         End If
   
9.     Next
   
10. End Sub

複製代碼

---

作者: jerrystock    時間: 2015-3-16 11:33

回復 2# lpk187
謝謝大大指導 執行程式碼後整個EXCEL沒回應當住 需要強制關閉EXCEL
日期格式是20150316
謝謝

---

作者: lpk187    時間: 2015-3-16 13:53

回復 3# jerrystock


    可以傳你的檔案上來看嗎？

---

作者: stillfish00    時間: 2015-3-16 16:05

回復 1# jerrystock

1. Sub Test()
   
2.     Dim i As Long
   
3.    
   
4.     With ActiveSheet
   
5.         '刪除要由後往前刪
   
6.         For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 1 Step -1
   
7.             If StrComp(.Cells(i, "A").Text, Format(Date, "yyyymmdd"), vbTextCompare) <> 0 Then .Rows(i).Delete Shift:=xlUp
   
8.         Next
   
9.     End With
   
10. End Sub

複製代碼

---

作者: jerrystock    時間: 2015-3-16 21:51

回復 5# stillfish00
謝謝大大回覆 可以成功執行
可以再請教一個疑問是如果A1欄位為標題姓名 B1標題為日期 B2開始格式為2015/03/16請問這樣VBA如何刪除不是當日日期的一整列
麻煩大大 謝謝

---

作者: stillfish00    時間: 2015-3-17 09:19

回復 6# jerrystock
你覺得應該怎麼改?

---

作者: jerrystock    時間: 2015-3-17 21:22

回復 7# stillfish00
我有試過很多方法 因不了解才在發問 我有試過例如
        Sub Test()
        Dim i As Long
        With ActiveSheet
            For i = .Cells(.Rows.Count, "B2:B").End(xlUp).Row To 1 Step -1
                If StrComp(.Cells(i, "B2:B").Text, Format(Date, "yyyy/mm/dd"), vbTextCompare) <> 0 Then .Rows(i).Delete Shift:=xlUp
            Next
        End With
    End Sub
不懂欄位從B2開始跟日期表示
還請大大指導
謝謝

---

作者: stillfish00    時間: 2015-3-18 11:28

回復 8# jerrystock

For i = .Cells(.Rows.Count, "B").End(xlUp).Row To 2 Step -1
    If StrComp(.Cells(i, "B").Text, Format(Date, "yyyy/mm/dd"), vbTextCompare) <> 0 Then .Rows(i).Delete Shift:=xlUp
Next

---

作者: jerrystock    時間: 2015-3-19 03:04

回復 9# stillfish00
感謝大大在百忙中多次回覆小弟的愚問 真心謝謝您的指導 謝謝^^

---

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