handsometrowa

你可能要把範例檔案放上來大家比較好觀察你要的程序指令
一開始你第一次貼的那個應該是用巨集錄製的 才會有這麼多不需要的指令

If Range("a" & i).Value <> "(元,股)" Then
    Else
    Rows(i).Delete Shift:=xlUp
    End If

這段我有點不懂耶  你的Then 並不執行判斷後動作?
你這段的意思不是就等於

If Range("a" & i).Value <> "(元,股)" Then
      '要做什麼?
    Else '(不然要做以下動作)
    Rows(i).Delete Shift:=xlUp
    End If