使用通配符替換文本

Question

我有一個包含千行產品詳細信息的電子表格。在一列尺寸上，細胞具有這種類型的值：

; XXS（缺貨）; XS; S（缺貨）; M（缺貨）; L; XL;

我需要刪除缺貨的值，所以我做了Ctrl + F並替換「; *（缺貨）;」按「;」但是它會將所有內容都替換爲下一個分號，而不是第一個分號。

所以

; XXS（缺貨）; XS; S（缺貨）; M（缺貨），L; XL;

變得

; L，XL;

我如何使用通配符來得到的結果，如：

; XS，L，XL;

Answer 1

如果'列大小'是列A，數據從第2行開始，則運行此例程。

Sub del_Out_of_Stock() 
    Dim rw As Long, str As String, str2 As String, v As Long, vSZs As Variant 

    str = "(out of stock)" 
    With Worksheets("Sheet1") 
     For rw = 2 To .Cells(Rows.Count, 1).End(xlUp).Row 
      With .Cells(rw, 1) 
       vSZs = Split(.Value2, Chr(59)) 
       For v = LBound(vSZs) To UBound(vSZs) 
        If CBool(InStr(1, vSZs(v), str, vbTextCompare)) Then _ 
         vSZs(v) = vbNullString 
       Next v 
       str2 = Join(vSZs, Chr(59)) 
       Do While CBool(InStr(1, str2, Chr(59) & Chr(59))): str2 = Replace(str2, Chr(59) & Chr(59), Chr(59)): Loop 
       .Value = str2 
      End With 
     Next rw 
    End With 
End Sub 

您可能需要a）更改工作表名稱，b）更改列索引號並可能c）更改起始行。