vba - 从字符串中获取子字符串

Question

我有一些代码将单元格中的值与工作表中的其他值相邻。单元格中的值是“美国的 Nat Rep 可行性检查 - 按地区划分的详细信息”，其中国家/地区有所不同 - 可以是“澳大利亚”；“阿根廷”等。我需要提取该国家并将其放在旁边原因值：

Sub RowInt()
    Dim rng As Range
    For i = 1 To Sheets.Count
        Sheets(i).Select
        Cells.Range("A1").Select
        ActiveCell.EntireColumn.Insert
        ActiveCell.EntireColumn.Insert
        Range("A7").Value = "Channel"
        Range("B7").Value = "Country"
        mystring = Cells(1, 3).Value
        NumRows = Range("C8", Range("C8").End(xlDown)).Rows.Count
        For j = 1 To NumRows - 1
            Cells(j + 7, 2).Value = Replace(mystring, "Nat Rep feasibility check for", "")
            Cells(j + 7, 1).Value = Range("C2").Value
        Next j
    Next i
End Sub

我设法解决了“Nat Rep可行性检查”的问题，但我仍然需要得到其余的字符串，你能帮我吗？先感谢您！

标签： vbaexcel

Answer 1

您可以通过以下公式实现它：

=MID(F8,LEN("Nat Rep feasibility check for ")+1,LEN(F8)-LEN("Nat Rep feasibility check for ")-LEN("Details by Region")-2)

干杯