[已解决][求助]这个程序怎么编

一字头螺丝

A1-A1000中有很多数据,我想用VBA程序实现如下功能:

1.如果A列中某格为空,则该行整行删除    例如:假设A5为空,则第5行整行删除

2.从上往下,如果A列中某格数据与上面的某一格一样,则该行整行删除  例如:假设A5中数据与A2相同,则第5行整行删除

 

谢谢

 

最佳答案

月排行榜 / 总排行榜

搁浅2008

2008-12-30 12:28

SlEa5lrQ.rar (6.49 KB, 下载次数: 11)

2008-12-30 12:45 上传

点击文件名下载附件

Sub 删除()
    Application.ScreenUpdating = False
    Dim x%, y%, rng As Range
    x = Range("A65536").End(xlUp).Row
    For y = x To 1 Step -1
        If Cells(y, 1) = "" Then
            Cells(y, 1).EntireRow.Delete
        Else
            Set rng = Range("A1:A" & x).Find(Cells(y, 1), LOOKAT:=1)
            If Not rng Is Nothing Then
               If rng.Row <> y Then
                Cells(y, 1).EntireRow.Delete
                End If
            End If
        End If
    Next y
    Application.ScreenUpdating = True
End Sub

[此贴子已经被作者于2008-12-30 12:45:39编辑过]

跳转到最佳答案楼层

oobird

Sub yy()
Dim d As Object, c As Range
Set d = CreateObject("Scripting.Dictionary")
For Each c In Range([a1], [a65536].End(3))
If Not d.exists(c.Value) Then
d(c.Value) = ""
Else
c = ""
End If
Next
[a:a].SpecialCells(4).Delete (3)
End Sub

一字头螺丝

抱歉,好象不行

和气生财

QUOTE:

以下是引用一字头螺丝在2008-12-26 15:15:00的发言：

A1-A1000中有很多数据,我想用VBA程序实现如下功能:

1.如果A列中某格为空,则该行整行删除    例如:假设A5为空,则第5行整行删除

2.从上往下,如果A列中某格数据与上面的某一格一样,则该行整行删除  例如:假设A5中数据与A2相同,则第5行整行删除

 

谢谢

 

将顺序颠倒过来，从后面向前面删除就可以了。

搁浅2008

SlEa5lrQ.rar (6.49 KB, 下载次数: 11)

2008-12-30 12:45 上传

点击文件名下载附件

Sub 删除()
    Application.ScreenUpdating = False
    Dim x%, y%, rng As Range
    x = Range("A65536").End(xlUp).Row
    For y = x To 1 Step -1
        If Cells(y, 1) = "" Then
            Cells(y, 1).EntireRow.Delete
        Else
            Set rng = Range("A1:A" & x).Find(Cells(y, 1), LOOKAT:=1)
            If Not rng Is Nothing Then
               If rng.Row <> y Then
                Cells(y, 1).EntireRow.Delete
                End If
            End If
        End If
    Next y
    Application.ScreenUpdating = True
End Sub

[此贴子已经被作者于2008-12-30 12:45:39编辑过]

一字头螺丝

请问

[a:a].SpecialCells(4).Delete (3)
中的Delete()里的3是什么意思

搁浅2008

试试 我这个

[em01]

搁浅2008

楼上那个的方法是 重复时变成空 然后定位空值 整行删除

一字头螺丝

我用二楼的程序试了下,程序拆分成两个能实现各自的功能,但是组合起来却无法得到最后的结果,请帮我看一下，谢谢

一字头螺丝

[em01]