|
▼Yuki さん:
お礼が遅くなりました。申し訳ございません。
回答をありがとうございます。
>▼本山中 さん:
>>F列の2行以下のセルには
>>セルF2:-2(-0.55%)
>>セルF3:+400(+0.57%)
>>などの形で、値が入力されています。
>>( )の左側の数値が負の場合、その行を削除する
>
>こんにちは。
>こんな感じでどうですか。
>
>Sub Macro1()
> Dim strF As String
> ' 検索値は下記から今は -2(…)を削除しています。
> strF = "*(-*" '-2(-0.55%)
> ' ↑が -
> strF = "-*" '↑が -
>
> With Worksheets("Sheet1")
> .AutoFilterMode = False
> With .Range("F1:F" & Range("F" & .Rows.Count).End(xlUp).Row)
> .AutoFilter Field:=1, Criteria1:=strF
> .Offset(1).EntireRow.Delete
> End With
> .AutoFilterMode = False
> End With
>End Sub
|
|