Excel trick,find common digit between two number in two different cells

I have 7899 in A1 and 567 in B2

in E1 I am getting the mode 7

the formula is

=MODE(VALUE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)),VALUE(MID(B1,ROW(INDIRECT("1:"&LEN(B1))),1)))

it's an array formula so you have to use ctrl+shift+enter

Selecting range example in VBA

Sub SelectingLastCellOfContiguousRange()

'Go To last cell

ActiveSheet.Range("a1").End(xlDown).Select

End Sub

Sub SelectingBlankCellOfContiguousRange()

'Go to first blank cell after laste cell

ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select

End Sub

Sub SelectEntireRangeofContiguousCells()

'Select Range Of Cells No Blanks

ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown)).Select

ActiveSheet.Range("a1:" & ActiveSheet.Range("a1").End(xlDown).Address).Select

End Sub

Sub SelectEntireRangeofNonContiguousCells()

'Select Range of Cells That Includes Blanks

ActiveSheet.Range("a1", ActiveSheet.Range("a65536").End(xlUp)).Select

ActiveSheet.Range("a1:" & ActiveSheet.Range("a65536").End(xlUp).Address).Select

End Sub

Sub SelectEntire()

'Select Entire Row

Range("1:1").Select

'Select Entire Column

Range("A:A").Select

End Sub

Sub SelectRectangularRange()

'Select Current Region

'ActiveSheet.Range("a1").CurrentRegion.Select

'ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Select

'ActiveSheet.Range("a1:" & ActiveSheet.Range("a1").End(xlDown).End(xlToRight).Address).Select

'Build Current Region

lastCol = ActiveSheet.Range("a1").End(xlToRight).Column

lastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).Row

ActiveSheet.Range("a1", ActiveSheet.Cells(lastRow, lastCol)).Select

'Including a blank row

lastCol = ActiveSheet.Range("a1").End(xlToRight).Column

lastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).Row

ActiveSheet.Range("a1:" & ActiveSheet.Cells(lastRow, lastCol).Address).Select

End Sub

Sub SelectMultiNonContColumns()

StartRange = "A1"

EndRange = "C1"

Set a = Range(StartRange, Range(StartRange).End(xlDown))

Set b = Range(EndRange, Range(EndRange).End(xlDown))

Union(a, b).Select

End Sub

Attribute VB_Name = "SelectingLast"