Excel 宏未按应有的方式分割-第2部分

我在Stack网站上发布了一个问题来帮助编写一些代码，因为它没有按照我希望的方式工作。一个人善意地回复了下面的建议，但我不知道我的代码中要做什么更改，因为我不理解建议的更改。我想知道是否有人可以帮助我修改代码，这样我就可以使用这些修改。如果需要的话，我可以发布完整的代码，如果这有帮助的话。附言：在任何人回答之前，你为什么不问问给出建议的人：是我

建议：修正后的右括号向左移动4个位置

Val(Left(pair, InStr(pair, "-"))) - 1 

我有一个宏，但只有在除法到19.00时才能工作。当20.00或更高是要除的数字时，它只除以10.00，就是这样。它要做的是将12.00以下的任何数字分成10个单元格，12.00以上的任何数字都要将多余的数字写入找到的对中的第一个数字。我复制了我的Excel表格。要分割的数字位于单元格D30（20.00）中

subdivide（）
Application.ScreenUpdating=False
Dim对作为变型，累加器作为变型
模糊FindFatten为双精度
暗淡余数等于长，发现余数等于长
发现=1
对于范围内的每一对（“B30、F30、J30”）
如果正确（对，2）=15，则
如果pair.Offset（0，2）从中间向外显示：

pair = "400-bar"
Debug.Print InStr(pair, "-")
Debug.Print Left(pair, InStr(pair, "-"))
Debug.Print Val(Left(pair, InStr(pair, "-"))) - 1

导致

4

400-

399

我想你的助手说的是把最右边的参数（-1）移到左边的函数括号里

Debug.Print Val(Left(pair, InStr(pair, "-") - 1))

导致

四百

请发布导致问题以及面临问题的代码。现在这个问题的意思是：“我去找我的机械师，因为我制造的一辆定制汽车出现了一个问题，他建议我扳动上次维修后安装的第二个02箱……这是什么意思？”以目前的形式无法回答。我被要求提供全部代码，但当我这么做的时候，你做了你的回答，非常感谢。这是你要我试试的密码吗？如果accumulator.Offset（-1，0）=Debug.Print Val（左（对，InStr（对，“-”）-1）），那么你好，Jason，我尝试了行“如果accumulator.Offset（-1，0）=Debug.Print Val（左（对，InStr（对，“-”-1）”，然后“但它不起作用”。我不认为这是你想要的行出现的方式，这就是我对这段代码的所有问题所在。“非常感谢你的帮助。这是暗中捅了一刀，”南希斯基说。既然你已经添加了更多的信息，我需要有一个适当的阅读，以了解你试图实现什么。嗨，杰森，一个简短的说明，说我解决了它。谢谢你的帮助。
Debug.Print Val(Left(pair, InStr(pair, "-") - 1))