Comparing strings with the percentage difference for Google Sheets.

[yeat]

DESCRIPTION KEY IN BY HAND		DESCRIPTION FROM BANK	DESCRIPTION FROM BANK
THUNDER FOUR BY FOUR SDN		THUNDER FOUR BY FOUR SDN.Cn allied	Tyre
SW AUTO TYRE SDN. BHD.		SW AUTO TYRE SDN. BHD. 11111111122759118014
YONG SHENG ENTERPRISE SB		XXXXXX8800 YONG SHENG ENTERPRISE SB	YONG SHENG ENT SB
SALARY 0822		XXXXXX1422 Tn WE E	SALARY 0822
SALARY 0822		TN WE SG/HE WI LGSALARY 0822
UTILITY 0722		XXXXXX5029 CHEN MN CHi	UTILITY 0722

Cell a: is the data I key by hand
Cell c&d: is the data from the bank

I want to compare these two cells and return a matching percentage. I intend to make if the percentage is less than 0.5, then A will be highlighted.

I just wanted to make certain that the description I typed was almost identical to the bank's description.

 

[bebo021999]

What % would you expect, for example, line 3 ("YONG SHENG...") and 5 ("SALARY 0822")?
and how?

 

[yeat]

What % would you expect, for example, line 3 ("YONG SHENG...") and 5 ("SALARY 0822")?
and how?

LINE 3 = 100%
LINE 5 = 100%also (but I don't know is it possible)

for line 3

YONG SHENG ENTERPRISE SB

XXXXXX8800 YONG SHENG ENTERPRISE SB

YONG SHENG ENT SB

100% , 75%
then choose a higher rate, 100%

 

[bebo021999]

What if:
manual input: "YONG SHENG"
Bank: "SHENG YONG"
100% or 0% ?

 

[yeat]

What if:
manual input: "YONG SHENG"
Bank: "SHENG YONG"
100% or 0% ?

this should be 0%. It seems to be getting more and more complicated

 

[bebo021999]

first shot:
for testing, % will be in column E

Option Explicit
Sub test()
Dim lr&, i&, p As Double, rng, arr(), max As Double
Dim ce As String, ceA As String, ceB As String
lr = Cells(Rows.Count, "A").End(xlUp).Row
rng = Range("A1:D" & lr).Value
For i = 1 To lr
    ce = Trim(rng(i, 1)): ceA = Trim(rng(i, 3)): ceB = Trim(rng(i, 4))
    If ce <> "" Then
        p = 0: max = 0
        If InStr(1, ceA, ce) Then
            p = (UBound(Split(ce)) + 1) / (UBound(Split(ceA)) + 1)
            If p > max Then max = p
        End If
        If InStr(1, ceB, ce) Then
            p = (UBound(Split(ce)) + 1) / (UBound(Split(ceB)) + 1)
            If p > max Then max = p
        End If
        Cells(i, "E").Value = max
    End If
Next
End Sub

Book1
	A	B	C	D	E
1	THUNDER FOUR BY FOUR SDN		THUNDER FOUR BY FOUR SDN.Cn allied	Tyre	83%
2	SW AUTO TYRE SDN. BHD.		SW AUTO TYRE SDN. BHD. 11111111122759118014		83%
3	YONG SHENG ENTERPRISE SB		XXXXXX8800 YONG SHENG ENTERPRISE SB	YONG SHENG ENT SB	80%
4	SALARY 0822		XXXXXX1422 Tn WE E	SALARY 0822	100%
5	SALARY 0822		TN WE SG/HE WI LGSALARY 0822		33%
6	UTILITY 0722		XXXXXX5029 CHEN MN CHi	UTILITY 0722	100%
7
8
9
10
11
12
13
14
15
16
17
18
Sheet1

 

[yeat]

It's not perfect, but it's awesome. Can you explain it, please? I would like to remodel it. I actually work with Google Sheet, seems a little too late to say. xD

 

[Fluff]

I actually work with Google Sheet

You should have mentioned that right at the start (preferably in the thread title. You should also post such questions in the General Discussion & Other Applications section of the board.
I have done it for you this time.