excel vba中找出字符

1。B15:B24为范围(如果修改为C列时，如何修改请注解)
2。从“-”号后面的最多字符中找出缺少的字符

Leaf leaf = new Leaf("Leaf D");
root.Add(leaf);
root.Remove(leaf);
root.Display(1);
Console.Read();
}

Sub xx()   Const a = 2 '在这里修改   Set d = CreateObject("Scripting.Dictionary")   Set d1 = CreateObject("Scripting.Dictionary")   arr = Cells(15, a).Resize(10)   ReDim brr(1 To UBound(arr, 1))   For i = 1 To 10     arr(i, 1) = Right(arr(i, 1), Len(arr(i, 1)) - InStr(arr(i, 1), "-"))     brr(i) = Len(arr(i, 1))     If brr(i) > c Then c = brr(i)   Next   For i = 1 To 10     If brr(i) = c Then       For j = 0 To 9         d.Add j, ""       Next       For j = 1 To Len(arr(i, 1))         t = --Mid(arr(i, 1), j, 1)         If d.exists(t) Then d.Remove (t)       Next       k = d.keys       For j = 0 To UBound(k)         d1(k(j)) = ""       Next       d.RemoveAll     End If   Next   Cells(13, a) = Join(d1.keys, "") End Sub

在d13输入公式：=right(left(substitute(d13,"/",""),e12+1),1) sub 查找() 'activesheet.name = "验证表" sheets("验证表").select i = range("e65536").end(xlup).row j = range("d65536").end(xlup).row k = replace(cells(5, 4), "/", "") if application.worksheetfunction.isnumber(cells(i, 5)) = true then cells(i + 1, 5) = right(left(k, cells(i, 5) + 1), 1) else msgbox "e列最后一行不为数字，不能进行查找！！" end if end sub