1524098235 エクセルとアクセスで以下のショートカットの仕方を教えてください

キャプチャにあります、
槇書店→黎明書房→黎明出版→驢馬出版→駸々堂出版
などのような列をショートカットで項目別に1クリックずつで飛ばすようなやり方を教えてください
*1クリックで同じ名前の物は飛ばして次にいくような感じです。

回答の条件
  • 1人1回まで
  • 13歳以上
  • 登録:2018/04/19 09:37:15
  • 終了:2018/04/26 09:40:05

回答(1件)

id:takashi_m17 No.1

たか回答回数106ベストアンサー獲得回数122018/04/20 10:08:56

ポイント100pt
Sub test()
    x = ActiveCell.Column
    i = ActiveCell.Row
    Do Until Cells(i, x) = ""
        If Cells(i, x) = Cells(i + 1, x) Then
            i = i + 1
        Else
            Cells(i + 1, x).Select
            Exit Sub
        End If
    Loop
End Sub

これで、クイックアクセスツールバーにでもボタン作れば1クリックで進んでいきます。

id:seconduser2008

ショートカットキーはないでしょうか?

2018/04/21 07:16:43
id:takashi_m17

マクロにショートカットキー割り当てれば使えます。

https://www.officepro.jp/excelmacro/run/index1.html

2018/04/22 10:45:22

コメントはまだありません

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

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

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

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません