ほげ
ほげ
ほげ
ほげ
ほげ2
ほげ2
ほげ2
VBAでよろしければこんな感じでしょうか
選択してるセルから異なる要素になるまで1行ずつチェックしていってます。
異なる要素に当たればそのセルを選択して終わります。
Sub a() x = Selection.Cells.Row Do Until Cells(x, "A") = "" If Cells(x, "A") <> Cells(x + 1, "A") Then Cells(x + 1, "A").Activate Exit Sub End If x = x + 1 Loop End Sub
コメント(1件)
Cells(x,"A") と、A列を指定しちゃってますけど
y = Selection.Cells.Column
これを頭に入れて、"A"→yに変更すればA列じゃなくとも、選択したセルの列でチェック出来ます。