エクセルで現在選んでいるセルから特定の規則でセルを選択したい

質問

エクセルで現在選んでいるセルから特定の規則でセルを選択したい

今現在エクセルで様々な形で使っているのですが、最近よくあるのはある位置から特定の規則でセルを選ぶということです。

例えばA1から３つおきに右に１０個セルを選ぶ、B5から３つおきに右に１０個セルを選ぶ、C8から３つおきに右に１０個選ぶ、というのがよくあります。
つまり「３つおきに右に１０個選ぶ」という規則は変わらないのですが、始まりの地点が変わるのです。

現在は面倒ながらも、ctrlを押しながらセルを１０個選択しているのですが面倒で仕方ないです。
場合によっては２０個、３０個選ばなくてはならないときがあります。

他にも
・３つおきに右に５個選んだら、今度はそのまま右に２つおきに５個選ぶ
・３つおきに右に３個選んだら、今度はそのまま下に２つおきに７個選ぶ
・始点のセルとそこから右に３つ目のセル、そこから下に４つ目のセル、そこから右に５つ目のセル、そこから上に３つ目のセルを選ぶ

などの規則で選ぶことが多々あります。

もっと簡単に選びたいです。
解決方法をご存知の方、よろしくお願いします。

回答No.2

MARU4812 · ベストアンサー

マクロで画面を作って
基準のセルと飛ばすセルの数と選択するセルの数を指定すれば、
その通りに選択してくれるようにします。

パターンが複数あるので、リストに登録する形で、選んだ
リストの種類によって指定できる内容が変わるようにします。

回答No.3

mimeu

> もっと簡単に選びたいです。
> 解決方法をご存知の方、よろしくお願いします。

回答としては、「ＶＢＡをお使いなさい」　で終わりです　　（＾－＾）
でも自分でＶＢＡが組める人ならこんな質問はしないでしょうから
一応シート上に貼り付けたボタンに連動するプログラムを例示します。

Private Sub cmd複選択ボタン_Click()
　　Const 選択追加数 = 10
　　Dim r0 As Long, c0 As Long, i0 As Long, s0 As String
　　If TypeName(Selection) <> "Range" Then Exit Sub ' 図形などを選択したときのエラー処理
　　s0 = Selection.Address
　　r0 = Selection.Row
　　c0 = Selection.Column
　　For i0 = 1 To 選択追加数
　　　　s0 = s0 & "," & Cells(r0, c0 + i0 * 3).Address
　　Next i0
　　Application.Range(s0).Select
End Sub

但し、これを動かすには最低限のＶＢＡの知識が必要です
また選択するセルを１０個ではなく２０個にしたくなっても
対応にはＶＢＡの知識が必要です。

お望みでしたらご勉強下さい。
そんなのやってらんない、とお考えでしたら　・・・　（＾－＾）

回答No.1

MackyNo1

同じパターンで相対的な位置関係で複雑なセル範囲を選択したいなら、マクロを使用することになります。

例えば、「特定のセルから３つおきに右に１０個セルを選ぶ」操作がしたいなら、以下のコードのマクロを実行します。

ActiveCell.Range("A1,D1,G1,J1,M1,P1,S1,V1,Y1,AB1").Select

このコードを簡単に取得するなら、Excel2007の場合で説明すると、開発タブの「マクロの記録」で、適当な名前を付けて（必要ならCtrl+Mなどのショートカットを登録して）、「相対参照で記録」ボタンをクリックし、Ctrlキーを押しながら必要なセルを選択し「記録終了」ボタンを押します。

このマクロを実行すれば、特定のセルから相対的な位置関係のセルを選択することができます。

＃エクセルのバージョンによって使用できる機能や操作法が異なりますので、質問の際には必ずバージョンを明記するようにしましょう。

お礼

回答ありがとうございます。
失礼しました、エクセルの２００７を使用しています。
早速試してみたいと思います。