連続した値の、間の値を削除したい。
すみません、誰か教えていただけませんか。
A列に値が入力されていて、連続の値が3つ以上値が連続
していたら間の値を削除したいのですが、どのようにしたら
良いのでしょうか。
すみませんが、教えていただけませんでしょうか。
下記の様に記述しましたが、うまくいきません。
リンゴ 1
リンゴ 2
リンゴ 3
リンゴ 4
ばなな 5
ばなな 6
ばなな 7
みかん 8
みかん 9
みかん 10
みかん 11
パイナップル 12
パイナップル 13
イチゴ 14
イチゴ 15
イチゴ 16
リンゴ 1
リンゴ 4
ばなな 5
ばなな 7
みかん 8
みかん 11
パイナップル 12
パイナップル 13
イチゴ 14
イチゴ 16
Sub 値削除テスト()
Dim Te As Long
Dim Re As Long
Te = Cells(Rows.Count, 1).End(xlUp).Row
For Re = 1 To Te
If Cells(Re, 1).Value = Cells(Re, 1).Offset(1, 0).Value And Cells(Re, 1).Value = Cells(Re, 1).Offset(2, 0).Value Then
Cells(Re, 1).Offset(1, 0).Delete (xlUp)
End If
Next Re
End Sub
宜しくお願いします。
補足
回答ありがとうございます。 pHが単位だということだけは理解しております。 今回の目的は、各食材の有機酸の量を調べるのに、各果実の絞り汁を取り、中和の適定を行ったのですが一般的には大体それぞれのpHがどれくらいとされているのかを知っておきたかったということなのです。 たとえばレモンが2くらいである、など、、 有機酸の量を計算で出すための工程で使うので大体で良いので知りたかったのです。