[已解决]根据条件 找到第一行符合条件的数据 把这一行之前的数据移到另一单元格中

cocoYan199015

条件是找到数据为当天日期得前一天数据　比如说今天是九月1号　那就是说找到八月31号的数据，并且找到31号中Ａ列第一行以Ｍ开头的数据所对应得行号，例子中为第26行　所以目的是将2到25行所有的数据移到另一单元格中并删除26行以上得空白　也就是说第26行的数据变成第二行了。实际数据很大　希望个位高手能帮我找出一个快捷的方法　谢谢大家

最佳答案

月排行榜 / 总排行榜

七彩屋

2015-9-2 19:07

exemple0902.rar (14.78 KB, 下载次数: 10)

2015-9-2 19:07 上传

点击文件名下载附件

跳转到最佳答案楼层

dsmch

筛选：自动筛选或高级筛选

cocoYan199015

dsmch 发表于 2015-9-2 05:39
筛选：自动筛选或高级筛选

谢谢　但是我需要vba以后，每天自动处理数据

七彩屋

数据移到另一单元格 是指移到哪里？

cocoYan199015

七彩屋 发表于 2015-9-2 17:27
数据移到另一单元格 是指移到哪里？

另一sheet 上     谢谢

cocoYan199015

希望效果

七彩屋

1. Sub qcw()
   
2. Application.ScreenUpdating = False
   
3.   Dim cell As Range, r%, I%
   
4.   I = Range("a65536").End(xlUp).Row
   
5. Set rng = Range("a1:a" & I)
   
6. For Each cell In rng
   
7.   If Left(cell, 1) = "M" And Format(Left(cell.Offset(0, 2), 11), "yyyymmdd") = Format(Date - 1, "yyyymmdd") Then
   
8.     r = cell.Row
   
9.       Rows("2:" & r).Copy Sheet2.Range("A" & Sheet2.Range("a65536").End(xlUp).Row + 1)
   
10.       Rows("2:" & r).Delete
    
11.     If r > 1 Then Exit Sub
    
12.   End If
    
13. Next
    
14. Application.ScreenUpdating = True
    
15. End Sub

复制代码

七彩屋

exemple0902.rar (14.78 KB, 下载次数: 10)

2015-9-2 19:07 上传

点击文件名下载附件

cocoYan199015

七彩屋 发表于 2015-9-2 19:07

十分感谢!!!