移除第一个连字符到空字符串

目前使用下面的代码,输出将是 ~ abc~ etc~ etc~. 如何删除第一个 ~. 所以它应该从 abc 立马 ~.

Function SpecialLookup(lookup_value As String, src_rng As Range, column_index As Long)

    Dim rng As Range
    Dim xResult As String
    xResult = ""
    For Each rng In src_rng
        If rng = lookup_value Then
            xResult = xResult & "~ " & rng.Offset(0, column_index - 1).Value
        End If
    Next
    SpecialLookup = xResult
End Function

解决方案:

Mid 应该可以做到


SpecialLookup = Mid(xResult, 3, Len(xResult))

给TA打赏
共{{data.count}}人
人已打赏
未分类

能否将查询次数从5次减少到1次?

2022-9-8 3:51:39

未分类

如何更紧凑地打印导数(下标符号)

2022-9-8 3:51:41

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索