[已解决]批量实现保留指定年份数据，其余年份数据删除

richalken · 发表于 2015-9-21 19:50

本帖最后由 richalken 于 2015-9-21 22:36 编辑

我需要做的是：不同的机构（ecode列）只要保留注册年份（regyear列）前一年（year列）和后三年（year列）的数据，其他的数据都删除。

因为数据量比较大，手动处理非常慢且容易出错，VBA还在学习过程中，处于晕乎阶段，请大侠路过出手相助，谢谢啦！！！

最佳答案

月排行榜 / 总排行榜

gdpgdp317

2015-9-21 20:55

保留指定年份数据tw.rar (33.95 KB, 下载次数: 5)

Hsiao · 发表于 2015-9-21 20:30

Sub test()
Dim arr, x%, y%, brr(), s%, num%, lrow%, lcol%
arr = Sheet1.Range("a1").CurrentRegion
Sheet2.Cells.ClearContents
lrow = UBound(arr): lcol = UBound(arr, 2)
ReDim brr(1 To lrow, 1 To lcol)
For x = 2 To lrow
num = CLng(arr(x, 1)) - CLng(arr(x, 3))
If num > -2 And num < 4 Then
s = s + 1
For y = 1 To lcol
brr(s, y) = arr(x, y)
Next
End If
Next
Sheet2.[a2].Resize(s, y) = brr
Rows("1:1").Copy Sheet2.[a1]
MsgBox "完毕"
End Sub

复制代码

gdpgdp317 · 发表于 2015-9-21 20:55

这个最佳答案由 gdpgdp317 给出，感谢 gdpgdp317 的回答。

单击隐藏图章

保留指定年份数据tw.rar (33.95 KB, 下载次数: 5)

richalken · 发表于 2015-9-21 22:34

gdpgdp317 发表于 2015-9-21 20:55
传代码，说网络防火墙限制

谢谢，可以用的，帮我节省了很多时间，非常感谢！！！{:11:}{:11:}{:11:}

richalken · 发表于 2015-9-21 22:36

Hsiao 发表于 2015-9-21 20:30

感谢您的代码，不过运行后报类型错误，不过还是要感谢您的帮助，谢谢！！！

		自动登录	找回密码
密码			注册

[已解决]批量实现 保留指定年份数据，其余年份数据删除

相关帖子

[已解决]批量实现保留指定年份数据，其余年份数据删除