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」格式。如果它遇到空白單元格或不是這種格式的單元格，將會出錯。