请教大佬们一个问题，两列文字能不能做最后的百分比

2楼以“笔”字为抓手，3楼以换行符char(10)为抓手，3楼的普适度更高，但需要注意数据源的规范，如果多打换行符也会出现问题

Option Explicit
Sub abc()
　Dim a, i, j, t
　a = [a1].CurrentRegion.Offset(1).Resize(, 2).Value
　For i = 1 To UBound(a) - 1
　　t = Split(a(i, 1), vbLf)
　　For j = 0 To UBound(t)
　　　If t(j) = a(i, 2) Then
　　　　a(i, 1) = 1 / (UBound(t) + 1)
　　　　Exit For
　　　End If
　　Next
　　If j = UBound(t) + 1 Then a(i, 1) = 0
　Next
　[c2].Resize(UBound(a) - 1) = a
End Sub

这个默认的这个空白符要怎么破大佬们，没输入数据 也会有个25在那 我使用实际到货除项次固定的4