|
こんにちは。かみちゃん です。
> A B
>1 86.4 100
>2 90.2 57
>3 0 0
>4 102.3 0
>5 52.6 0
>6 6553.5 123.4
>… … …
>
>
>このようにAとBの2列でずっと下の行まで、ある数字が表示されているとします。
>A列とB列の中で「0」と「6553.5」の数字を検索し、
>検出したセルの数値を、ひとつ上の数値に置換したいのです。
Findメソッドを使って、以下のような感じでできると思います。
Sub Sample()
Dim FR As Range
With Range("A2:B10")
Set FR = .Find(0, , xlValues, xlWhole)
If Not FR Is Nothing Then
Do
FR.Value = FR.Offset(-1).Value
Set FR = .FindNext(FR)
Loop While Not FR Is Nothing
End If
Set FR = .Find(6553.5, , xlValues, xlWhole)
If Not FR Is Nothing Then
Do
FR.Value = FR.Offset(-1).Value
Set FR = .FindNext(FR)
Loop While Not FR Is Nothing
End If
End With
End Sub
|
|