分割function与多位数字

试图分离在必要性发生时在范围内提供的单个交易号码。 交易数字将随着数据库的增长而dynamic变化，所以使用静态数量的地方是无效的。 交易号码格式被列为EG“93246”或“93246-93249”。 我只需要从范围中的一个数字来validation其他数据。 目前我的代码只能捕获 – – 的左边的一个数字。 任何想法的想法？ 这是一个更大规模的一小部分。

提前致谢

dealNum = reportsByFirm.Cells(row_counter, dealCol) FileType = ".pdf" If InStr(1, dealNum, "-") > 0 Then DealArray() = Split(dealNum, "-") tempDeal = LBound(DealArray) ElseIf InStr(1, dealNum, "-") < 0 Then tempDeal = dealNum End If tradeLocation = tradesMaster.Columns(2).Find(What:=tempDeal) 

Answer 1

这一行导致问题：

 tempDeal = LBound(DealArray) 

它实际分配给tempDealvariables的是数组DealArray的基本索引，而不是它的第一个元素。

你需要改变它，如下所示：

 tempDeal = DealArray(LBound(DealArray))