[已解决]如何定位最后的单元格

股网千王

检查重复.zip (16.89 KB, 下载次数: 9)

2014-4-15 11:11 上传

点击文件名下载附件
A列含有公式，想找到最后的有内容的行号。然后检查A列是否有重复。盼高手解答。当下找到的是所有的行号，所以会提示重复。

最佳答案

月排行榜 / 总排行榜

lisachen

2014-4-15 11:35

1. 
   

复制代码

笨办法
Sub 查检重复项()
    Dim i As Long
    Dim lMaxRows As Long
    lMaxRows = Range("A65536").End(xlUp).Row
    For x = lMaxRows To 3 Step -1
   If Cells(x, 1) <> "" Then lMaxRows = x: Exit For
    Next x
        With Application.WorksheetFunction
            For i = 3 To lMaxRows
                If .CountIf(Range("A3:A" & lMaxRows), Cells(i, 1)) > 1 Then
                    MsgBox "该产品已经登记过了！", , "星语科技提示"
                End
                End If
            Next i
        End With
End Sub

跳转到最佳答案楼层

as0810114

加个判断条件呢
If .CountIf(Range("A3:A" & lMaxRows), Cells(i, 1)) > 1 And Cells(i, 1) <> "" Then

lisachen

1. 
   

复制代码

笨办法
Sub 查检重复项()
    Dim i As Long
    Dim lMaxRows As Long
    lMaxRows = Range("A65536").End(xlUp).Row
    For x = lMaxRows To 3 Step -1
   If Cells(x, 1) <> "" Then lMaxRows = x: Exit For
    Next x
        With Application.WorksheetFunction
            For i = 3 To lMaxRows
                If .CountIf(Range("A3:A" & lMaxRows), Cells(i, 1)) > 1 Then
                    MsgBox "该产品已经登记过了！", , "星语科技提示"
                End
                End If
            Next i
        End With
End Sub

股网千王

as0810114 发表于 2014-4-15 11:26
加个判断条件呢
If .CountIf(Range("A3:A" & lMaxRows), Cells(i, 1)) > 1 And Cells(i, 1)  "" Then

多谢老师指教