Your second data set is very different from your first.

In your first data set each value in Column A was unique, so “finding” it in Column B was either TRUE or FALSE.

In your second data set, with it’s repeating values in Column A, the same value might appear multiple times in Column B, so a simple .Find no longer works since .Find will find the first occurrence and then stop searching.

There was no way for me to know that…I can only work with the example data that is provided.

In the following code I use a helper column (Column C) and place a “combined pair” next to each pair from Columns A and B.

e.g.

      A      B       C
1    373    374    373374
2    374    218    374218
3    374    362    374362
4    374    373    374373

Once the combined pair is created, the code will search Column C for a string created from the values in Column A and B, but reversed.

e.g.

B1 & A1 = 374373

If the “reversed combined pair” in found in Column C, then that un-combined pair must exist in Column A and B.

e.g.

      A      B       C
1    373    374   <----- 
2    374    218    
3    374    362    
4    374    373    374373 <----- B1 & A1 = 374373

If the reverse pair is not found in Column C, then the reverse values are placed at the bottom of Columns A & B.

Sub MatchPairs()
'Determine last Row with data Column A
  lastRw = Range("A" & Rows.Count).End(xlUp).Row
'Create reverse pair in Column C
   For rw = 1 To lastRw
    Range("C" & rw) = Range("A" & rw) & Range("B" & rw)
   Next
'Loop through Column C, looking for a matching reverse pair
   For rw = 1 To lastRw
    With Range("C1:C" & lastRw)
     Set m = .Find(Range("B" & rw) & Range("A" & rw))
      If m Is Nothing Then
'If matching reverse pair isn't found, determine next empty Row
       nxtRw = Range("A" & Rows.Count).End(xlUp).Row + 1
'Copy reverse pair into next Row
         Range("A" & nxtRw) = Range("B" & rw)
         Range("B" & nxtRw) = Range("A" & rw)
      End If
    End With
   Next
'Clear Column C
   Columns("C").ClearContents
End Sub

Click Here Before Posting Data or VBA Code —> How To Post Data or Code.

See less

30C idle is good for stock cooler.
67C for Prime95 for 10 minutes is not bad at all.
Your Max temp is listed at 100C:
http://www.cpu-world.com/CPUs/Core_…
If your normal use it stays in the 30’s and 40’s C and your occasional peaks are in the low to mid 50’s C then you are just fine. If you tend much higher then a cleaning off the original thermal compound and applying a quality compound (the right amount) or possibly a more advanced air cooler may be in your future (unlikely needed). Please note that the thermal compound will have to break in a little bit from normal heating and cooling of the CPU and after that the temps may actually go down a bit more.

You have to be a little bit crazy to keep you from going insane.

See less

here’s one way, based on the first script:
@echo off
for /f %%a in (copyjob.txt) do (
xcopy /e /i c:\source”%%a” c:\destination”%%a”
:: i don’t think the following is required, but ya never know.
:: del /s c\source”%%a”\*.*
rd /s /q c:\source”%%a”
)
::==== end

and here’s another approach, based on Tony’s and Mike’s excellent suggestions (which i did not think of):
@for /f %%a in (copyjob.txt) do move c:\source”%%a” c:\destination”%%a”
:: end

See less