<div>
You could use a simple expression using Replace to identify matches: 
 

<pre><code class="code-1 nolinks" id="code-20-42730047-1">Replace(Replace(Replace([Tag design], &quot;-&quot;, &quot;&quot;), &quot;#&quot;, &quot;&quot;), &quot; &quot;, &quot;&quot;) = Replace(Replace(Replace([Tag actual], &quot;-&quot;, &quot;&quot;), &quot;#&quot;, &quot;&quot;), &quot; &quot;, &quot;&quot;)
</code></pre>
</div>

Consultant

Alan

Sam OZ

<div>
<a href="https://filedb.experts-exchange.com/incoming/2018/11_w45/1400802/similair.png" target="_blank" title="similair.png (9 KB)"><img alt="similair.png" class="file-block lazyload" style="max-width: 597px;" data-src="https://filedb.experts-exchange.com/incoming/2018/11_w45/1400802/similair.png" /></a>I got this file from a PAQ, sorry did not record the Expert 

<pre><code class="code-100 nolinks" id="code-20-42730190-1">Public Function Similarity(ByVal String1 As String, _
 ByVal String2 As String, _
 Optional ByRef RetMatch As String, _
 Optional min_match = 1) As Single
Dim b1() As Byte, b2() As Byte
Dim lngLen1 As Long, lngLen2 As Long
Dim lngResult As Long

If UCase(String1) = UCase(String2) Then
 Similarity = 1
Else:
 lngLen1 = Len(String1)
 lngLen2 = Len(String2)
 If (lngLen1 = 0) Or (lngLen2 = 0) Then
 Similarity = 0
 Else:
 b1() = StrConv(UCase(String1), vbFromUnicode)
 b2() = StrConv(UCase(String2), vbFromUnicode)
 lngResult = Similarity_sub(0, lngLen1 - 1, _
 0, lngLen2 - 1, _
 b1, b2, _
 String1, _
 RetMatch, _
 min_match)
 Erase b1
 Erase b2
 If lngLen1 &gt;= lngLen2 Then
 Similarity = lngResult / lngLen1
 Else
 Similarity = lngResult / lngLen2
 End If
 End If
End If

End Function

Private Function Similarity_sub(ByVal start1 As Long, ByVal end1 As Long, _
 ByVal start2 As Long, ByVal end2 As Long, _
 ByRef b1() As Byte, ByRef b2() As Byte, _
 ByVal FirstString As String, _
 ByRef RetMatch As String, _
 ByVal min_match As Long, _
 Optional recur_level As Integer = 0) As Long
'* CALLED BY: Similarity *(RECURSIVE)

Dim lngCurr1 As Long, lngCurr2 As Long
Dim lngMatchAt1 As Long, lngMatchAt2 As Long
Dim I As Long
Dim lngLongestMatch As Long, lngLocalLongestMatch As Long
Dim strRetMatch1 As String, strRetMatch2 As String

If (start1 &gt; end1) Or (start1 &lt; 0) Or (end1 - start1 + 1 &lt; min_match) _
Or (start2 &gt; end2) Or (start2 &lt; 0) Or (end2 - start2 + 1 &lt; min_match) Then
 Exit Function '(exit if start/end is out of string, or length is too short)
End If

For lngCurr1 = start1 To end1
 For lngCurr2 = start2 To end2
 I = 0
 Do Until b1(lngCurr1 + I) &lt;&gt; b2(lngCurr2 + I)
 I = I + 1
 If I &gt; lngLongestMatch Then
 lngMatchAt1 = lngCurr1
 lngMatchAt2 = lngCurr2
 lngLongestMatch = I
 End If
 If (lngCurr1 + I) &gt; end1 Or (lngCurr2 + I) &gt; end2 Then Exit Do
 Loop
 Next lngCurr2
Next lngCurr1

If lngLongestMatch &lt; min_match Then Exit Function

lngLocalLongestMatch = lngLongestMatch
RetMatch = &quot;&quot;

lngLongestMatch = lngLongestMatch _
+ Similarity_sub(start1, lngMatchAt1 - 1, _
start2, lngMatchAt2 - 1, _
b1, b2, _
FirstString, _
strRetMatch1, _
min_match, _
recur_level + 1)
If strRetMatch1 &lt;&gt; &quot;&quot; Then
 RetMatch = RetMatch &amp; strRetMatch1 &amp; &quot;*&quot;
Else
 RetMatch = RetMatch &amp; IIf(recur_level = 0 _
 And lngLocalLongestMatch &gt; 0 _
 And (lngMatchAt1 &gt; 1 Or lngMatchAt2 &gt; 1) _
 , &quot;*&quot;, &quot;&quot;)
End If


RetMatch = RetMatch &amp; Mid$(FirstString, lngMatchAt1 + 1, lngLocalLongestMatch)


lngLongestMatch = lngLongestMatch _
+ Similarity_sub(lngMatchAt1 + lngLocalLongestMatch, end1, _
lngMatchAt2 + lngLocalLongestMatch, end2, _
b1, b2, _
FirstString, _
strRetMatch2, _
min_match, _
recur_level + 1)

If strRetMatch2 &lt;&gt; &quot;&quot; Then
 RetMatch = RetMatch &amp; &quot;*&quot; &amp; strRetMatch2
Else
 RetMatch = RetMatch &amp; IIf(recur_level = 0 _
 And lngLocalLongestMatch &gt; 0 _
 And ((lngMatchAt1 + lngLocalLongestMatch &lt; end1) _
 Or (lngMatchAt2 + lngLocalLongestMatch &lt; end2)) _
 , &quot;*&quot;, &quot;&quot;)
End If

Similarity_sub = lngLongestMatch

End Function


'Actual function that compares two strings.
Private Function PercentTheSame(ByVal Text As String, ByVal CompareWith As String, Optional ByVal CaseSensitive As Boolean = False) As Single
 Dim lonLenText As Long, lonLenCompare As Long
 Dim lonLoop As Long, lonDiff As Long
 Dim strCur As String, strC As String
 
 lonLenText = Len(Text)
 lonLenCompare = Len(CompareWith)
 
 For lonLoop = 1 To lonLenText
 
 If lonLoop &gt; lonLenCompare Then
 lonDiff = lonDiff + 1
 Else
 
 If CaseSensitive = False Then
 strCur = LCase$(Mid$(Text, lonLoop, 1))
 strC = LCase$(Mid$(CompareWith, lonLoop, 1))
 Else
 strCur = Mid$(Text, lonLoop, 1)
 strC = Mid$(CompareWith, lonLoop, 1)
 End If
 
 If Not strCur = strC Then
 lonDiff = lonDiff + 1
 End If
 
 End If
 
 Next lonLoop
 
 PercentTheSame = CSng(((lonLenText - lonDiff) / lonLenText) * 100)
End Function
 
'Finds which string is longer to use in the comparison function.
Public Function StartCompare(ByVal Text As String, ByVal CompareWith As String, Optional ByVal CaseSensitive As Boolean = False) As Single
 
 'Quick test so we don't waste time.
 If Text = CompareWith Then
 StartCompare = 100
 Exit Function
 End If
 
 If Len(Text) &gt; Len(CompareWith) Then
 StartCompare = PercentTheSame(Text, CompareWith, CaseSensitive)
 Else
 StartCompare = PercentTheSame(CompareWith, Text, CaseSensitive)
 End If
 
End Function
</code></pre>
</div>

similair.png

<div>
<div class="content wysiwyg-content">
I have two excel sheets &nbsp;TagDesign and TagActual &nbsp; &nbsp;There are many entries which are similar but slightly different &nbsp;(For example TG-1234 and TG1234) 
Can we have a list in excel &nbsp;showing the entries &nbsp;with difference in just one character 
(It can be MS Access or Sql Server or a small macro by which I can get this result) 
 
&nbsp; The typical result I look will be something like 
&nbsp; &nbsp;Tag design &nbsp; &nbsp; &nbsp; &nbsp;TagActual 
&nbsp; &nbsp; &nbsp; &nbsp;TG-1234 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;TG1234 
&nbsp; &nbsp; &nbsp; &nbsp;P#3456 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;P3456 
&nbsp; &nbsp; &nbsp; &nbsp;PVT 12 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PVT-12 &nbsp; &nbsp; &nbsp; &nbsp;( Space and hyphen)
</div>
</div>

I have two excel sheets  TagDesign and TagActual    There are many entries which are similar but slightly different  (For example TG-1234 and TG1234) 
Can we have a list in excel  showing the entries  with difference in just one character 
(It can be MS Access or Sql Server or a small macro by which I can get this result)

  The typical result I look will be something like 
   Tag design        TagActual
       TG-1234          TG1234
       P#3456            P3456
       PVT 12             PVT-12        ( Space and hyphen)

Match in excel for almost same entries

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.