• 締切済み

エクセルのセル選択について

エクセルで数字を自動で範囲選択し、その範囲の一番上のセルと一番下の行を自動で選択したいと思っております。 下の画像の黄色部分のみを選択したいのですが、自動でできないものかと思い、質問させていただきました 範囲を検索する列はAです。値の範囲は 30~1300 1450~2750 2900~4250 4350~5700 5800~7150 7290~8500 8680~10000 10125~11500 になります。 その後黄色部分の行を選択。という流れです。 画像の方、数値を一部抜粋して表示しております。 できましたらフルサポートの方をお願いしたいと思っております^^; どなた様か御助力、御教授の方頂けましたら幸いです。宜しくお願い致します!

みんなの回答

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.2

回答No1です。自動で選択したいとのことで該当の行を黄色にすることでお答えしましたが、該当の行を別に取り出して表示したいとのことでしたら、回答No1の操作に加えてシート1のF2セルには次の式を入力して下方にドラッグコピーします。 =IF(COUNT(E2)=0,"",IF(OR(COUNTIF(E$2:E2,E2)=1,COUNTIF(E$2:E2,E2)=COUNTIF(E:E,E2)),MAX(F$1:F1)+1,"")) その後にシート3に該当のデータを表示させるとしたらシート3のA2セルには次の式を入力してD2セルまで横にドラッグコピーしたのちに下方にもドラッグコピーします。 =IF(ROW(A1)>MAX(Sheet1!$F:$F),"",IF(INDEX(Sheet1!$A:$D,MATCH(ROW(A1),Sheet1!$F:$F,0),COLUMN(A1))="","",INDEX(Sheet1!$A:$D,MATCH(ROW(A1),Sheet1!$F:$F,0),COLUMN(A1))))

noname543654324
質問者

お礼

返事の方遅くなってしまい申し訳ありませんでした。 質問の内容も全くの丸投げの形でしておりましたので、正直回答の方は来ないだろうと諦めておりました。 早速御回答の記していただいた方法実践してみます^^ 御回答御教授感謝します^^

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.1

お示しの表がシート1に有ってA,B,C,D列の2行目から下方に入力されているとします。 ところで条件とする検索数値の範囲ですがシート2のA列とB列に入力するとします。 1行目がすなわちA1セルおよびB1セルには0を入力します。 次のお示しのデータですがA2セルには30、B2セルには1300と入力します。 A3セルには1450、B3セルには2750と入力します。 以下同様にA列B列それぞれの下方の行に入力します。 その後にシート1の例えばE列を作業列として使用し、E2セルには次の式を入力して下方にドラッグコピーします。 =IF(A2="","",IF(MATCH(A2+0.1,Sheet2!$A:$A,1)=MATCH(A2-0.1,Sheet2!$B:$B,1)+1,MATCH(A2+0.1,Sheet2!$A:$A,1),"")) お求めの行を黄色にする作業ですがA列からD列を選択します。A1セルがアクティブセルの状態になっていることでしょう。 その後に「ホーム」タブの「条件付き書式」から「新しいルール」を選択します。 表示される画面では「数式を使用して書式設定するセルを決定」を選択したのちに下方の数式の窓には次の式を入力します。 =AND($A1>0,OR(COUNTIF($E$1:$E1,$E1)=1,COUNTIF($E$1:$E1,$E1)=COUNTIF($E:$E,$E1))) 「書式」をクリックして「塗りつぶし」のタブから黄色を選択してOKします。

関連するQ&A

  • excelの計算範囲の選択

    今、エクセルで3万近くの行を扱っています。 ある関数をひとつのマスに定義して、それを行の特定の部分まで選択範囲の下の十字キーで計算範囲をドッログするという作業を繰り返しています。しかしかなりの行数を扱っているので、excelのウインドウ外にマウスを持ってきても2,3分はドロッグしっぱなしにしなければならずかなりめんどくさいです。 そこでこの計算範囲の選択も普通の選択範囲の選択のようにshiftを押しながら一気に選択できる方法、またはショートカットはないでしょうか。

  • excelでの,選択範囲

    エクセル2000で,たとえば,1行目から,100行目までを選択するとき, 私は,ドラッグで,選択するのですが,時々スクロールの速度が, 異常に早くなって,うまく選択できないことがあります。 この,スクロールの速度って,設定できるのでしょうか? また,選択範囲を数値で設定して行なうことは,出来るのでしょうか? (例:1,Aから,200,ABを選択等) ちなみに,VBは使ったことありません。 よろしくお願いします。:-)

  • エクセルVBAでセル範囲選択→並べ替え

    大きなデータを選択する場合でA列には空白がない場合、 Range("A1").CurrentRegion.Select でいいと思うのですが、このデータを並べ替えようとするとき、1行から4行めには別の文字列がはいっており、5行目以下がデータであるとき、 Range("A1").CurrentRegion.Offset(4).Selectで下にさげると、最終選択範囲も下がってしまいます。 最終の範囲を変えず、開始位置を5行目にかえるにはどうすればよいのでしょうか?

  • セルの効率的な選択について

    質問なのですが、エクセルにおいて、 VLOOKUPでデータ元を範囲指定する時に、 500行あまりあるデータをいちいちクリックしてドラッグしていき、最後の空白でないセルにたどり着いたら、ドラッグを離すという作業をなんとか簡略に行えないでしょうか。いつも通り過ぎて、3000行とかにいってしまうので、とても効率が悪いのです。また戻ると、はじめの行まで戻ったりして・・・。なにかいい方法を知っている方がいましたら、ご助力ください。よろしくお願いします。

  • エクセルVBA・一定の条件でセルを選択したい

    エクセルVBA・一定の条件でセルを選択したい 添付した画像で、毎日、社員番号等が入力されます。 D列の内線番号は空白の場合もありますがA、B、C列は必ず入力されます。 添付画像だと「A1:D5」という具合に選択したいのです。 考え方としては、A列の*行に入力された場合は、「A1:D*」を選択するという具合になるかと思います。 私の目的は、セル範囲を選択したあと、並べ替えたいと考えています。 この並べ替えは自動記録でできそうです。 よろしくお願いします。

  • エクセルでのセル範囲取得

    セルの選択された範囲をVBAで取得する時、選択開始行は「ActiveCell.Row」で取得出来ますが、 選択終了行を取得するプロパティは無いのでしょうか? 「Selection.Cells.Count」を使用して、選択範囲の行数が返って来るのは分かっています。 問題なのはセルの選択順序です。 セルの範囲選択を上から下方向の場合は問題無いのですが、下から上に選択した場合、 選択開始行より下なのか、上なのかが判断出来ません。 そこで、選択範囲の行数ではなく、選択範囲終了の「行位置」が取得できる方法が無いかと色々調べてみましたが、見つけられませんでした。 どなたか御存知でしたら教えて下さい。

  • エクセルのマクロで複数のセルを連続して選択

     マクロ初心者です。添付画像の黄色いセルのように表の一部のセルを選択したいと思っています。画像には表れていないですが、選択する表が下に均等の間隔で100個程度あります。Range("G11:G12").Selectで一番上のセルを選択して下に11行いったところで選択し、その動作を100回くりかえすようなマクロを組みたいです。  どなたかご教授いただければ幸いです。

  • エクセルVBA セルの選択

    やりたいこと:VBAを動かしている最中に、(ループで何回も処理するごとに選択の範囲がちがうので)ある範囲のセルを手動で選択したい。 この方法をいろいろ調べてみましたが、わかりません。例えば、イメージとして、関数の挿入から関数を選んだときに「関数の引数」がでてきますね。このときに、右側の赤い矢印部分をクリックすると、範囲を選択できます。こんなイメージなのです。 ご存知の方、お教えください。宜しくお願いいたします。

  • EXCELのセル連続選択

    EXCELでオートフィルとかコピーをマウスで選択して行う場合に、ドバーっと一気に下の方まで選択してしまいます。 でも戻そうとするとまた高速に戻って自分の目的のところでとめられません。 例えば選択される範囲の上限を100個までとか、設定する方法はありますでしょうか?

  • セルの選択ができません。

    windws7 Excel2007でマクロ作成中の初心者です。 B列に8月21日から9月20日まで入力されてます。 以下のコードでセルBW28の数値によりセル選択範囲が異なります。 すべて8月21日の行から開始します。 28のときは、8月21日の行から28番目の行まで選択 29のときは、8月21日の行から29番目の行まで選択 30のときは、8月21日の行から30番目の行まで選択 以上正常にセルの選択が出来ます。 しかし31のとき 8月21日の行ただ1行しか選択してくれません。 上の例のように 8月21日の行から31番目の行、つまり9月20日までの行まで 選択したいのですが、どうしたらよいでしょうか。 Sub sersu sentaku() If Range("BW28") = 28 Then Range("B30").Resize(Day(DateSerial(Year(Date), Month(Date), 28)), 66).Select ElseIf Range("BW28") = 29 Then Range("B30").Resize(Day(DateSerial(Year(Date), Month(Date), 29)), 66).Select ElseIf Range("BW28") = 30 Then Range("B30").Resize(Day(DateSerial(Year(Date), Month(Date), 30)), 66).Select ElseIf Range("BW28") = 31 Then Range("B30").Resize(Day(DateSerial(Year(Date), Month(Date), 31)), 66).Select End If End Sub