如何使用VBA编写的自定义公式从Excel单元格中选择特定的字符串片段

Question

在工作中，我需要每周从Salesforce实例中的记录重新格式化不正确的地址。 我们使用报告收集格式错误的地址，并将其导出到Excel文件。 我的工作仅仅是操纵文件中的数据以正确格式化它们，然后将它们重新插入数据库。

通常，地址的格式如下：

芝麻街5号，任何地方，任何地方

手动将它们分开很容易，但是我通常必须一次处理数百个地址，并且使用默认的excel公式往往需要同时处理多个单元格才能将其分解为多个片段。

因此，我编写了一个自定义公式来遍历单元格，并根据给定的“逗号编号”返回字符串的特定片段。 因此，如果我给一个逗号数字1，我​​将得到“ 5 Sesame Street”，2将得到我“ Anytown”，依此类推。

到目前为止，这是我的代码：

 Public Function fragmentAddress(address As String, numberofcommas As Integer) As String seen = 1 lastComma = -1 Dim x As Long Dim frag As Long For x = 0 To Len(address) If Mid(address, x, 1) = "," & numberofcommas = seen Then Exit For ElseIf Mid(address, x, 1) = "," & numberofcommas <> seen Then seen = seen + 1 lastComma = x End If Next frag = Mid(address, lastComma + 1, seen - lastComma) fragmentAddress = frag 

我还没有实现处理最终值的功能，但是它没有给我任何输出，仅输出“ #VALUE！”。 尝试输入时出错

 =fragmentAddress("3 Ashley Close, Charlton Kings",1) 

我有一些编程经验，但这是我第一次用VBA编写任何东西。

任何帮助，将不胜感激，谢谢。

Answer 1

不完全确定您的问题是什么，但这很简单：

Public Function GetAddressFragment(ByVal Address As String, ByVal Index As Integer) As String
    Dim addr() As String

    addr = Split(Address, ",")

    On Error Resume Next
    GetAddressFragment = Trim(addr(Index - 1))
End Function