Jump to content

Recommended Posts

Posted

Can your friends adapt these codes for autoit
Thank you

Sub CLEAR_SIMILAR_REGISTRATIONS()
    For i = 1 To [A65536].End(3).Row
    COUNT = WorksheetFunction.CountIf([A:A], Cells(i, 1))
    If COUNT > 1 Then
    Columns(1).Replace What:=Cells(i, 1), Replacement:=""
    End If
    Next
    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    MsgBox "Similar entries deleted.", vbInformation
End Sub

 

Posted

If you could tell us what this code snippet is intended to do we might assist in writing something in AutoIt.

My UDFs and Tutorials:

  Reveal hidden contents

 

Posted

Untested:

Global Const $xlGuess = 0 ; Excel determines whether there is a header, and where it is, if there is one.
Global Const $xlNo = 2 ; Default. The entire range should be sorted.
Global Const $xlYes = 1 ; The entire range should not be sorted.
Global $aColumns[] = [1]
Global $oExcel = _Excel_Open()
Global $oWorkbook = _Excel_BookOpen(...)
$oWorkbook.Activesheet.UsedRange.RemoveDuplicates($aColumns, $xlGuess)

 

My UDFs and Tutorials:

  Reveal hidden contents

 

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...