1―1＝0−0

変換前 8*5+2+1+5=48
変換後 7*5+5+2+5=47

変換前 9*9*1=81
変換後 6*6*2=72

53+8=61→55+7=62、43+8=51→45+7=52
左辺の一の位を入れ替えても成立します。
なお、3桁以上の場合、右辺と左辺の左端の2桁の数字の頭に数字列Aを付け加えても成立しますね。
例：A=182の時、18253+8=18261→27555+7=27562

Aを各桁の数字が4,5,6のいずれかであるN桁の自然数とします。Bを任意の自然数とします。
A×B÷B=A

右辺が3つの掛け算の場合の例、
変換前:7×8×1=56
変換後:4×7×2=56

右辺が2つの掛け算の場合は解無し
（いちよう下一桁のパターンで場合分けしたら解が見つかりませんでした。自信無し）
エレガントに解く方法は4,5,6に注目する方法の様な気がしますが今のところ直感4割、試行錯誤6割りですね。

無限桁の自然数を考えれば一の位の数字が4で十の位以上が6の自然数Aと4の掛け算
....66664×4=...6666656となりますがこれはある意味ボケ回答ですね(笑)

「７→３」と置き換えるとき。
3×5＝15
30×46＝1380
33×45＝1485
306×474＝145044
333×455＝151515

「７→４」と置き換えるとき。
3×5＝15
9×80＝720
9×880＝7920
17×17＝289
20×79＝1580
30×46＝1380
33×45＝1485
74×236＝17464
94×816＝76704
333×455＝151515

以下にVBAプログラムコードを示す。(計算し終わるまで20秒程度かかります。)

Sub vipper()

Dim a(9), x(3), y(3), i, j, k, l, m, n As Long

a(0) = 6
a(1) = 2
a(2) = 5
a(3) = 5
a(4) = 4
a(5) = 5
a(6) = 6
a(7) = 3　注：「７→４」の場合には、a(7) = 4 と変更する。
a(8) = 7
a(9) = 6
n = 0

For i = 1 To 1000
For j = i To 1000
x(1) = i
x(2) = j
x(3) = x(1) * x(2)

For k = 1 To 3
y(k) = 0
l = Len(x(k))
For m = 1 To l
y(k) = y(k) + 10 ^ (m - 1) * a(Int(x(k) / 10 ^ (m - 1)) Mod 10)
Next
Next

If (y(3) = y(1) * y(2)) Then
n = n + 1
For k = 1 To 3
Cells(n, k) = x(k)
Next
End If

Next
Next

End Sub

No.7のプログラムの

For i = 1 To 1000
For j = i To 1000

という部分を

For i = 1 To 10000
Cells(1, 4) = i
For j = i To 10000

に変えて計算しているだけです。「Cells(1, 4) = i」は、どの辺りまで計算が進んだかを見えるようにするために入れてます。出力結果は次の通り。


「７→３」へ変換
3×5＝15
30×46＝1380
33×45＝1485
33×4045＝133485
306×474＝145044
333×455＝151515
406×3974＝1613444
3333×4455＝14848515
3333×4545＝15148485
5924×8064＝47771136

「７→４」へ変換
3×5＝15
9×80＝720
9×880＝7920
9×8380＝75420
9×8880＝79920
17×17＝289
20×79＝1580
23×7495＝172385
24×7364＝176736
30×46＝1380
30×4246＝127380
30×4576＝137280
33×45＝1485
33×4045＝133485
36×4374＝157464
74×236＝17464
94×816＝76704
333×455＝151515
439×3580＝1571620
3333×4455＝14848515
3333×4545＝15148485