# convert 3n bro

as show  here

here the file
29088846a__3n_bro_from_pair_to.xlsb
###### Who is Participating?

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Excel & VBA ExpertCommented:
No file.
1
ACCOUNTING ASSISTANTAuthor Commented:
now is .
0
Excel & VBA ExpertCommented:

``````Sub BRO()
Dim lr As Long, i As Long, j As Long
Dim x, y()
Dim NumStr As String
Application.ScreenUpdating = False

lr = Cells(Rows.Count, "CD").End(xlUp).Row
x = Range("CD7:CD" & lr).Value
ReDim y(1 To UBound(x, 1), 1 To 1)

On Error Resume Next
For i = 1 To UBound(x, 1)
If x(i, 1) <> "" Then
If IsNumeric(x(i, 1)) Then
NumStr = Right(Mid(x(i, 1), 1, 1) + 5, 1) & Right(Mid(x(i, 1), 2, 1) + 5, 1)
y(i, 1) = NumStr
End If
End If
Next i
Range("CC7:CC" & lr).NumberFormat = "@"
Range("CC7").Resize(lr, 1).Value = y
Application.ScreenUpdating = True
End Sub
``````
29088846a__3n_bro_from_pair_to.xlsb
1

Experts Exchange Solution brought to you by