将 Excel 公式转换为 Mid 和 Find 函数的 VBA

Question

我真的很难将下面的 excel 公式转换为 VBA。我假设下面的函数需要在 for 循环中，并且需要下降动态列长度。我已经四处寻找尝试自己编写脚本，但我似乎无法让它在没有错误的情况下运行。

=MID(A1,FIND(":",A1)+1,FIND("(",A1)-FIND(":",A1)-1)

Answer 1

您可以使用以下方法动态获取列长度（或最后一行）：

dim ws as Worksheet
Set ws = Thisworkbook.Worksheets("mySheetNameHere")
dim lastRow, myLoop, semicolPos, bracketPos
lastRow = ws.Cells(ws.rows.count, "A").End(xlUp).Row ' this gets last row in col A

For myLoop = 1 to lastRow
    ' Find the position of the ";"  and the "(" 
    semicolPos = InStr(ws.Range("A" & myLoop).Value, ":") + 1
    bracketPos = InStr(ws.Range("A" & myLoop).Value, "(")
    newValue = Mid(ws.Range("A" & myLoop).Value, semicolPos, bracketPos - semicolPos)
    ' Put newValue into column B, one cell over from column A
    ws.Range("B" & myLoop).Value = newValue
Next