使用相邻单元格的值填充一列单元格（Excel VBA）

Question

我对VBA还是很陌生，我正在使用它来自动化工作中的一些简单任务。这方面的一个很小的元素就是找到一个整数，该整数始终位于列B的单元格中的一组括号内，但是括号前的信息会定期更改。

我需要获取C列的值以匹配B括号中的数字。当前，我的代码从活动单元格的括号中找到该值，并将其应用于整个列。我认为我的问题出在变量的声明中，但是我希望经验更丰富的编码器可以提供帮助。谢谢！

max(y)

Answer 1

请尝试：

Option Explicit

Sub fillLeads()

    Dim Lastrow As Long, i As Long, StartPoint As Long, FinishPoint As Long
    Dim SearchValue As String, FinalValue As String

    With ThisWorkbook.Worksheets("Sheet1")

        Lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row

        For i = 2 To Lastrow

            SearchValue = .Range("B" & i).Value
            StartPoint = InStr(1, SearchValue, "(") + 1
            FinishPoint = InStr(1, SearchValue, ")") - StartPoint
            FinalValue = Mid(SearchValue, StartPoint, FinishPoint)

            .Cells(i, "C").Value = FinalValue

        Next i

    End With

End Sub

结果：