Question

尝试分离出必要时在范围内提供的单个交易号。随着数据库的增长，交易数量将是动态的，因此使用静态数量的地方是无效的。交易号码格式列为E.G. ＆＃34; 93246＆＃34;或＆＃34; 93246-93249＆＃34;。我只需要范围中的一个数字来验证其他数据。目前我的代码仅捕获 - 左侧的单个数字。有什么想法吗？这是一个更大规模的小事。

提前致谢

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)

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

您需要更改如下：

tempDeal = DealArray(LBound(DealArray))

具有多个数字的分割功能

1 个答案: