Excelで例えば下記のように同じ列に同じ要素が並んでいる場合、異なる要素が出てくるところ(ほげ2)までセルを飛ばして移動する方法はあるでしょうか?


ほげ
ほげ
ほげ
ほげ
ほげ2
ほげ2
ほげ2

回答の条件
  • 1人5回まで
  • 登録:
  • 終了:2011/09/15 13:20:03

回答1件)

id:takashi_m17 No.1

回答回数120ベストアンサー獲得回数20

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
  • id:takashi_m17
    ちょっと修正
    Cells(x,"A") と、A列を指定しちゃってますけど

    y = Selection.Cells.Column

    これを頭に入れて、"A"→yに変更すればA列じゃなくとも、選択したセルの列でチェック出来ます。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません