请教有条件下的单元格合并，该怎么写

不好理解

恕直言，不光人不好理解，EXCEL估计也理解不了在什么情况下210是二百一十，还是还是二连接的一零。

210也是合并来的，是2和10所以也只认两个数值而已

Option Explicit
Sub abc()
　Dim a, i, j, k, p, n, s
　a = Range("b2:d" & Cells(Rows.Count, "b").End(xlUp).Row).Value
　ReDim b(1 To UBound(a), 1 To 1) As String, t(1 To 4)
　For i = 1 To UBound(a)
　　If Len(Replace(a(i, 1), "0", vbNullString)) = 2 And _
　　　Len(Replace(a(i, 3), "0", vbNullString)) = 2 Then
　　　n = 0: ReDim t(1 To 4)
　　　For j = 1 To 3 Step 2
　　　　p = 1: a(i, j) = a(i, j) & "?"
　　　　For k = 2 To Len(a(i, j))
　　　　　If Mid(a(i, j), k, 1) <> "0" Then
　　　　　　n = n + 1
　　　　　　t(n) = Mid(a(i, j), p, k - p)
　　　　　　p = k
　　　　　End If
　　　　Next
　　　Next
　　　For j = 1 To 3
　　　　For k = j + 1 To 3
　　　　　If Val(t(j)) > Val(t(k)) Then
　　　　　　s = t(j): t(j) = t(k): t(k) = s
　　　　　End If
　　　　Next
　　　Next
　　　b(i, 1) = Join(t, vbNullString)
　　End If
　Next
　[f2].Resize(UBound(b)) = b
End Sub