Cross-reference between cells

i have an table with 92 columns filled with 65000 rows. Each cell contains 17 caracters (EX: 968743AB2C96ZA ) 968743 is a product code, AB2C96 is another product code that is a cross-reference to the first code, ZA is present in each line and after ZA are 3 blank spaces.

65000X92 is a lot to check by hand.
I need something to help me find the cross between a code when i need it.

EX: i need to find ALL cross-references to code 968743 and give back the cross-reference for that code(meaning the MID(X,7,6) code).


Is there any chance i can use Excel for what i need? If not will Access be any better?

Are you trying to say that, given a cell, where user put the code 968743, you would like to know in which cells (all 92 columns and 65000 rows) that have 968743 and what is the corresponding cross-reference (AB2C96)?

yes.
it needs to verify all codes that start with a code and reply all corresponding codes that are a cross-reference to that . I can cut those 92 columns and make 184 columns each with a 6 digit code(1 column is base code and 2-nd column is cross-code and so on). What i don't know is how to check all table for corresponding code for a given user code. Some codes may have 10 or more cross-code in the table.

i want to be able to input a code that can be found in any column marked "code"(there are 92 such columns) and right to each "code" column is a "cross" column. My xls table has 220mb so i can't post it here, i just cut few codes from there to see how my table is made

exemple cross.xlsxi uploaded first 2 columns and first 3 rows so you can see what i need. Because i can only upload 1mb i had to cut come rows(all columns have 65000 rows + 1 header
the formula is needed on a new sheet because after i get the cross-reference i will link that code to future formulas.

it works but takes ages to show a report. i need this to work because i want my work to be faster. I have the VBA acction below but by some mistake i don't get any results.


=FindAll('toate echivalentele'!$A$1:$FZ$65000,123456,1)

Where 123456 is the 6 digit code I want (can also be a cell reference like $A$1), and 1 is the columns offset from the found cell (1 to the right of the found cell)

Function FindAll(r As Range, v As Variant, iOff As Integer) As Variant
Dim c As Range
Dim d() As Variant
Dim firstAddress As String
FindAll = ""
ReDim d(1 To 1)
With r
Set c = .Find(v, LookIn:=xlValues, lookAt:=xlWhole)
If Not c Is Nothing Then
d(1) = c.Offset(0, iOff).Value
firstAddress = c.Address
Else
End
End If
Set c = .Find(v, c, LookIn:=xlValues, lookAt:=xlWhole)
If Not c Is Nothing Then
If c.Address <> firstAddress Then
Do
ReDim Preserve d(1 To UBound(d) + 1)
d(UBound(d)) = c.Offset(0, iOff).Value
Set c = .Find(v, c, LookIn:=xlValues, lookAt:=xlWhole)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End If
End With
If Application.Caller.Rows.Count = 1 Then
FindAll = d
Else
FindAll = Application.Transpose(d)
End If
End Function