ラフマニノフ回答ポイント 100pt

1524098235

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

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

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

ログインして回答する

みんなの回答

たか2018/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
```
これで、クイックアクセスツールバーにでもボタン作れば１クリックで進んでいきます。
スター
- 2件のコメントを見る
- ラフマニノフ 2018/04/21 07:16:43
  
  ショートカットキーはないでしょうか？
  
  スター
- たか 2018/04/22 10:45:22
  
  マクロにショートカットキー割り当てれば使えます。
  
  https://www.officepro.jp/excelmacro/run/index1.html
  
  スター

この質問へのコメント

コメントはありません

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

質問の情報

登録日時: 2018-04-19 09:37:15
終了日時: 2018-04-26 09:40:05
回答条件: 1人1回まで

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問