Excel宏找到一个特定的字符串，并复制它的一部分到另一个细胞

Question

谁能帮我这个 Excel宏找到一个特定的字符串，并复制它的一部分到另一个细胞

，我发现这个宏，但它的副本整个专栏。我只想从列的部分信息

Sub Luxation2() 
    Dim K As Long, r As Range, v As Variant 
    K = 1 
    Dim w1 As Worksheet, w2 As Worksheet 
    Set w1 = Sheets("Sections") 
    Set w2 = Sheets("retry") 
    w1.Activate 
    For Each r In Intersect(Range("B:B"), ActiveSheet.UsedRange) 
     v = r.Value 
     If InStr(v, "periode") > 0 Then 
      r.Copy w2.Cells(K, 1) 
      K = K + 1 
     End If 
    Next r 
End Sub 

Answer 1

目前无聊和杀戮的时间，所以在这里你去。

Sub Luxation2() 
    Dim K As Long, r As Range, v As Variant, p As Long, q As Long 
    K = 1 
    Dim w1 As Worksheet, w2 As Worksheet 
    Set w1 = Sheets("Sections") 
    Set w2 = Sheets("retry") 
    For Each r In Intersect(w1.Range("B:B"), w1.UsedRange) 
     v = r.Value 
     p = InStr(1, v, " - ") 
     q = InStrRev(v, " - ") 
     w2.Cells(K, 1) = Mid(v, p + 3, q - p - 3) 
     K = K + 1 
    Next r 
End Sub 

该代码做出各种假设。 “Sections”工作表B列中的所有使用的单元格必须采用您在上面注释中指定的“hello - world - today”格式。如果它遇到空白单元格或不是这种格式的单元格，将会出错。