youtuber Posted January 5, 2018 Share Posted January 5, 2018 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 Link to comment Share on other sites More sharing options...
water Posted January 5, 2018 Share Posted January 5, 2018 If you could tell us what this code snippet is intended to do we might assist in writing something in AutoIt. youtuber 1 My UDFs and Tutorials: Spoiler UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki Link to comment Share on other sites More sharing options...
youtuber Posted January 5, 2018 Author Share Posted January 5, 2018 for erase all of the similar words Link to comment Share on other sites More sharing options...
water Posted January 5, 2018 Share Posted January 5, 2018 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: Spoiler UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now