如何保留固定行 刪除其他

892882677

請問 如何只要2018-06-16 的  那一行的數據 其他日期的都不要  只要前一天的數據

892882677

Public Sub 玂痙㏕﹚︽()
Dim i, a, b
i = 2
b = Format(Date, "yyyy-mm-dd")
a = Mid(Cells(i, "N").Value, 2, 10)
Do
i = i + 1
If a <> b Then Rows(i).Delete shift:=xlUp
Exit Do
End If
Loop


End Sub

892882677

我自己寫的這個不行

看见星光

892882677 发表于 2018-6-21 14:53
我自己寫的這個不行

一行一行删除的时候，需要从后向前遍历，例如从500行到1行。然后日期取值要写到DO循环语句内。

892882677

Public Sub 玂痙㏕﹚︽2()
Dim i, a, b
i = 26
b = Format(Date, "yyyy-mm-dd")

Do
i = i - 1
a = Mid(Cells(i, "N").Value, 2, 10)
If a <> b Then
Rows(i).Delete shift:=xlUp

End If
Loop


End Sub

892882677

看见星光 发表于 2018-6-21 14:55
一行一行删除的时候，需要从后向前遍历，例如从500行到1行。然后日期取值要写到DO循环语句内。

非常感謝 你真厲害 我改了就可以了
我今天花了兩小時沒有對 非常感謝

不知道为什么

892882677 发表于 2018-6-21 15:06
非常感謝 你真厲害 我改了就可以了
我今天花了兩小時沒有對 非常感謝

楼主的学习让人佩服哦。你的代码应该还是有问题把
1、你的需求是留下昨天的数据，但是你的代码是对比今天的
2、你的行数是常量，如果数据增加了，又需要改代码？
3、星光老师点拨的点很对，但是如果行数比较多建议用 union，一次性对符合的单元处理，速度会好些。

供参考！

不知道为什么

892882677 发表于 2018-6-21 15:05
Public Sub 玂痙㏕﹚︽2()
Dim i, a, b
i = 26

楼主，代码运行的结果是你需要的？

892882677

不知道为什么 发表于 2018-6-21 15:41
楼主，代码运行的结果是你需要的？

Public Sub sss()
Dim i, a, b
i = Sheets("ssss1").[A65536].End(xlUp).Row + 1
b = Format(Date + 1, "yyyy-mm-dd")

Do
i = i - 1
If Cells(i, "N").Value = "" Then
Rows(i).Delete shift:=xlUp
End If
If Cells(i, "N").Value <> "" Then
   a = Mid(Cells(i, "N").Value, 2, 10)
   If a <> b Then
   Rows(i).Delete shift:=xlUp
   End If
End If
Loop

有一個地方有問題  頭兩行步參與循環 怎麽寫  現在的吧頭兩行業刪除了

不知道为什么

892882677 发表于 2018-6-21 15:47
Public Sub sss()
Dim i, a, b
i = Sheets("ssss1").[A65536].End(xlUp).Row + 1

不知道什么原因，刚发的信息发不出去。你的代码我觉得有三个问题
1、你需求是找出昨天的数据，但是代码是今天的数
2、数据行数变化，你还要修改i的值（第二段已经修改）
3、一条一条去删除，不停的调用单元格是很耗时的，可以用union 集中一起处理
仅供参考