Looped Find & Delete row, Code works but too slow

Hi,
My data set is >320,000 rows deep, 45 columns. There is column headed by "Record Status Code" populated by "1" or "3". Another column "Transaction ID" has a number in string format.

My instructions were:
"9. All claims with RecordStatus = 3 are reversals. We need to remove them, along with the original claim they reversed. To find the original claim, look at the Transaction ID for the reversal, and replace the last digit (1) with a 0."

In other words, for every row with Record Status Code = "3", also find the row containing Transaction ID with altered last digit, and delete both rows.

I wrote a code that seems to work. However, it takes way too long. Is there an alternative/optimized method?

Please Login or Register  to view this content.

Can you upload a copy of your workbook?

Originally Posted by stnkynts

Can you upload a copy of your workbook?

Hi.

The file is too large. Also full of PI's. It's for work

Originally Posted by stnkynts

Can you upload a copy of your workbook?

Here it is, stripped of the other 40+ columns and reduced the row count from 320,000+ to <100,000.

Help appreciated.

It would have been helpful to at least include the Transaction ID with its relevant column. What I was going to do was autofilter for the number 3 then loop through and correct the 0 (or possibly use match depending of a couple of factors). Your initial post was very confusing though, which is why I asked for the workbook (e.g., I don't see why you have to delete and entire row twice when it appears to be on the same row). Either way, best of luck with you query.