Excel Data shorting VBA code

''Exact Match Sub FindMatchAndPastTo3Sheet() Dim xlRange As Range Dim xlCell As Range Dim xlSheet As Worksheet Dim valueToFind Count = Sheets("Sheet1").Range("$A:$A").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count MsgBox "Sheet1 count =" & Count Count2 = Sheets("Sheet2").Range("$A:$A").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count MsgBox "Sheet2 count =" & Count2 For i = 2 To Count valueToFind = Sheets("Sheet1").Range("A" ...
More