ウォーターサーバーとコーヒーマシンが一体化した画期的マシン >>

お世話になります。
画像のようにしたいです。
よろしくお願いいたします。

「Excelでフィルターを使わずに抽出する」の質問画像

質問者からの補足コメント

  • すみません。。。店舗です。
    例えば、店舗でフィルターを兵庫店でかけた場合、画像の様になると思うのですが、これをExcelのフィルター機能や、VBAのAutoFilterを使わずに実現できないものかと思いました。

    No.1の回答に寄せられた補足コメントです。 補足日時:2019/02/17 14:58
  • ありがとうございます!

    下の画像のように店舗ごとに分類したいです。
    それこそ下の画像をそのまま実現したいです。
    コピペではなく、関数やVBAなど使ってです。

    「Excelでフィルターを使わずに抽出する」の補足画像2
    No.3の回答に寄せられた補足コメントです。 補足日時:2019/02/17 15:40
  • 抽出という言葉の選択が間違っていました。。。
    分類して店舗ごとに分けてレイアウトしたいということです。

      補足日時:2019/02/17 15:45
  • 私のやりたいことをまとめますと
    1. 店舗ごとに分類して分けてレイアウトしたい
    2. 店舗名の行の変わり目を判別して、分類したい。

    恐らく、店舗名の行の値が変わったところ(店舗名が変わったところ)をExcelに認識させれば、私が求めていることができそうなのですが、そこから先がわからずです。。。

    こちらのサイトに行の値の変わり目を取る方法がありました。
    参考にしていただければ幸いです。
    https://bit.ly/2NhGSvT

      補足日時:2019/02/17 16:42
  • うれしい

    ご回答を下さった皆様、ありがとうございました!

      補足日時:2019/02/17 18:24

A 回答 (5件)

こんな感じでしょうか(Excelっぽくないけど)。


ちなみに、最初の画像のレイアウトを想定して作っています。列の間隔はご自分で調整してください。

Sub sample()
Dim i As Long
Dim c As Long
Dim r As Long
c = 4
r = 2
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(r, c).Value = Cells(i, "A").Value
Cells(r, c + 1).Value = Cells(i, "B").Value
If Cells(i, "A").Value = Cells(i + 1, "A").Value Then
r = r + 1
Else
c = c + 2
r = 2
End If
Next i
End Sub
    • good
    • 1
この回答へのお礼

解決しました

これです!
ありがとうございます!
こんな短いコードでこんなことができるとは。。。
私もVBAを使えるようになりたいと思いました!

お礼日時:2019/02/17 18:21

これを毎回、容易にしたいならAccess使えばいいよ。

    • good
    • 0

1.関数を使う。


2.ピボットテーブルを使う。
3.一つずつ手作業する。
くらいかなあ。
この回答への補足あり
    • good
    • 1
この回答へのお礼

抽出というよりは、分類といったほうが相応しかったです。。。
わかりづらくて申し訳ないです。
ありがとうございました!

お礼日時:2019/02/17 15:51

うん、私も抽出出なKれば、何をどういう条件で?え?なにがしたいの?と。

    • good
    • 0
この回答へのお礼

抽出というよりは分類といった方がよかったですね。。。
ありがとうございました!

お礼日時:2019/02/17 15:50

「抽出する」ための条件は何処に書いてあるの?


店舗名?日付?
チコちゃんに叱られないように祈ります。
この回答への補足あり
    • good
    • 1
この回答へのお礼

確かにそうでした。。。
ありがとうございました!

お礼日時:2019/02/17 15:48

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aと関連する良く見られている質問

QIF関数について

A1~Z1の列の間に、特定の文字(たとえば”りんごの文字”)がセル内に含まれる場合(あかりんごなど)にその下のA2~Z2の列の間に記入された日付を抜き出す方法をご存知でしたら
どなたか教えていただけませんでしょうか、よろしくお願いします。

A2にあかりんごがあれば、B2の日付を抜き出そうとしています。

Aベストアンサー

では、HLOOKUP関数か、抜き出すのが日付ならSUMIF関数でもできるかと思います。

りんごを含む文字を検索値にする場合で、直接式にいれるなら「*りんご*」のようにしてください。

QVLOOKUPで所定の文字が検出できない

数字とアルファベットであれば問題なく、また、ほかのパソコンだと正常に働きますが、何故か私のパソコンだけダメで再起動しても治りません。
掲載する画像はそれぞれの計算式で誰が見ても簡単なもの。
なお、右側の一覧から列をコピペしているので検索文字に空白はありません。

Aベストアンサー

普通は、Keyになるものが前でその後ろでデータを引っ張るんだよね。
https://dekiru.net/article/15221/

QExcelの関数について

A ・ B ・ C ・ D ・ E ・ F ・ G
1 ・鈴木 ・ 田中 ・ 太田 ・ 佐藤 ・ 石田 ・
2
3

上記のような表に"年休"と入力したら、G欄に入力した人の名前(1列目)をかえしたいのですが、

A ・ B ・ C ・ D ・ E ・ F ・ G
1 ・ 鈴木 ・ 田中 ・ 太田 ・ 佐藤 ・ 石田
2 ・ ・年休 ・ ・年休・ ・ 田中、佐藤
3 ・ 年休・ ・年休・年休・ ・ 鈴木、太田、佐藤

よろしくお願いします。

Aベストアンサー

[No.4]用の添付図です。

Qエクセルの日付自動カウント

エクセルについて質問です。
下記のようにエクセルを作った際に
自動カウント1はA1の日付に対して現在までに何日経過しているかの値
自動カウント2はC1の日付に対して現在までに何日経過しているかの値

*その際に、C1の日付が入力された時点でB1のカウントをストップさせた数値
もしくは(B1=C1-A1)の数値を出力する方法がわかりません。

いろいろ試してはみたのですが、教えていただけますか。

A1       B1       C1      D1
手打ち日付1   自動カウント1  手打ち日付2  自動カウント2

Aベストアンサー

こんにちは

ご質問の文章通りで、A1、C1セルの値はシリアル値とします。
 B1セル: =IF(C1="",TODAY()-A1,C1-A1)
 C1セル: =IF(C1="","",TODAY()-C1)

※ 入力値のチェックやエラー処理は行っていません。

Qエクセルの質問です。 一つのフォルダにエクセルファイルが100個あります。 そのファイル一つ一つに全

エクセルの質問です。

一つのフォルダにエクセルファイルが100個あります。
そのファイル一つ一つに全て同じ計算式
+SUM(a8:a20)を入力するのですが、とても面倒です。

何か良い方法はありませんでしょうか。

なお、ファイルはひとつひとつ別物なので、計算式を入力してからコピーという方法はとれません。

Aベストアンサー

> 同じ計算式+SUM(a8:a20)

計算式およびSUM関数という意味ですよね?


> 何か良い方法はありませんでしょうか。

全てのExcelファイルに対して式を埋め込むVBAマクロを記述したファイルを作成して実行させればよいです。

業務で作成した、雛形ファイルをコピーしてデータを入力したファイル(数百個~千以上)があり、式やマクロのアップデートをする場合に行なっています。
大量のファイルに対して手作業で修正を行うのは時間の無駄です。ミスの発生する可能性もありますしね。

Qエクセルで並んでる文字から1つずつ並べたい

こんにちは。
仕事でエクセルを使う機会が増えそれに関する質問です。
宜しくお願いします。

縦に文字がたくさん並んでいるところから文字を抽出したいのです。
例えば

東京都
新潟県
兵庫県
東京都
千葉県
千葉県
東京都
熊本県

と並んでる文字から文字がかぶらないように

東京都
新潟県
兵庫県
千葉県
熊本県

と文字を別の場所にならべたいのです。
どうしたらよいでしょうか。
宜しくお願い致します。

Aベストアンサー

重複削除方法を知りたいってことですよね?
こうだよ。リボンのデータ>重複削除

Qエクセル リストと完全一致するセルに色をつける

シート1のA列とB列に
aaa ccc
bbb ggg
ccc kkk
ddd ooo
と言うリストがあって、A1〜A4はAチーム、B1〜B4まではBチームと名前を付けています
シート2にAチームのリスト4個が続いているものがあればセルを赤、Bチームのリスト4個が続いているものがあればセルを黄色に塗りたいです
AチームとBチームの中には同じ品番がある時もあります
条件付き書式で設定は出来るでしょうか?

Aベストアンサー

(´・ω・`)
”○” の数を数えるんじゃないんだよなあ。

・・・本題・・・

条件付き書式ですよね。

シート2のリストの並び順は
 aaa
 ccc
 bbb
 ddd
では「Aチーム」と認識しないという事でよろしいでしょうか?
ならば、とても簡単です。

シート2の一覧において、

 判定するセル1
 判定するセル2
 判定するセル3
 色を付けるセル
 判定するセル4
 判定するセル5
 判定するセル6

という範囲について調べれば良いという事。

 判定するセル1
 判定するセル2
 判定するセル3
 色を付けるセル

 判定するセル2
 判定するセル3
 色を付けるセル
 判定するセル4

 判定するセル3
 色を付けるセル
 判定するセル4
 判定するセル5

 色を付けるセル
 判定するセル4
 判定するセル5
 判定するセル6

の4パターンについてそれぞれ調べれば良いだけ。

自分なら
 aaa-bbb-ccc-ddd
のようにシート1から文字列を作り、それが調べるセルで同じパターンになるかを調べます。
シート1はA5セルから、シート2はA11セルからデータが入力されているなら、

 シート1!A5 & シート1!A6 & シート1!A7 & シート1!A8 = A11 & A12 & A13 & A14
 シート1!A5 & シート1!A6 & シート1!A7 & シート1!A8 = A12 & A13 & A14 & A15
 シート1!A5 & シート1!A6 & シート1!A7 & シート1!A8 = A13 & A14 & A15 & A16
 シート1!A5 & シート1!A6 & シート1!A7 & シート1!A8 = A14 & A15 & A16 & A17

という条件になる。
この4つのうちの一つでも条件を満たせばセルに赤色を付ければいい。
「Bチーム」についても同様にすればいいので、
この場合、8つの条件式を設定することになります。

面倒でもこの考え方ができていないと、ちょっと条件が変わっただけで対処できずに終わります。
冒頭で「並び順」について書きましたが、並び順がシート1のリストの通りでなくとも色を付けたい場合でも、この考え方は必要ということです。

・・・
ちなみに厄介なのが、どちらのチームにも「ccc」がいるというところかな。
これが無ければ違う方法でシンプルにできるんですけどねえ。

(´・ω・`)
”○” の数を数えるんじゃないんだよなあ。

・・・本題・・・

条件付き書式ですよね。

シート2のリストの並び順は
 aaa
 ccc
 bbb
 ddd
では「Aチーム」と認識しないという事でよろしいでしょうか?
ならば、とても簡単です。

シート2の一覧において、

 判定するセル1
 判定するセル2
 判定するセル3
 色を付けるセル
 判定するセル4
 判定するセル5
 判定するセル6

という範囲について調べれば良いという事。

 判定するセル1
 判定するセル2
 判定するセル3
 色を付け...続きを読む

Qエクセル売価設定の変更

エクセル初心者です。

500円未満で仕入れた商品を ÷0.3の売価にし
500円以上で仕入れた商品を ÷0.5の売価なるように
数式を入力したいのですが、教えていただけますでしょうか?

Aベストアンサー

また「①未入力は空白で表示」を見落としてました。
=IF(A1="","",ROUND(A1/IF(A1<500,0.3,0.5),-1)) です。

QExcelの「0」だけ非表示、小数点の0.~は表示したいのですが、どうすればいいのでしょう。

EXCELの一部のセルだけ「0」だけ非表示
小数点の0.1などの0.は表示したいです。

ご存知の方がいらっしゃいましたら、何卒ご協力おねがいします!!

Aベストアンサー

ワークシート上で Ctrl+A をチョーンしてワークシート全体を選択状態にする ⇒ ワークシート上でマウスの右クリック ⇒ [セルの書式設定] ⇒ [表示形式]の左側の[分類]窓内で“ユーザー定義”を選択 ⇒ 右側の[種類]直下の横長ボックス内に
G/標準;G/標準;
を入力

此れでOKな筈です。お試しあれ。

Q【関数】複数条件に応じてポイントをつけたい

お世話になっております。

条件によってポイント付与する数式を組みたいのですが
条件が複雑で、どのような関数を組めば良いか、関数の知識も乏しく頭を悩ませております。
詳しい方教えて頂けないでしょうか?

K列 担当者ID
L列 計画
M列 実績
N列 達成率
O列 達成額/未達額
P列 ポイント付与欄

上記のようなデータがあります。

下記条件で、O列「達成額/未達額」の降順にポイントを付与したいです。
その際、下記の条件でポイントを付与したいのです。

ポイント集計先
①黄色セル K5~K18:担当者ID
➁赤色セル K4:部門コード
※画像添付いたします。

ポイント付与条件別表
黄色セル E列:担当者ID ※上記①と紐づく
ピンクセル F列:担当者に紐づく主担当部門コード ※上記➁と紐づく
※補足へ画像添付いたします。

★条件★
・基本
O列
①「達成額/未達成額」が0以上なら降順に10Pからポイント付与
➁「達成額/未達成額」が0orマイナスならポイント付与せず
※ただし、マイナスでも実績があればポイント付与

上記、基本条件に加えて、下記条件も組み込みたいです。
①担当者ID+主担当部門コードが紐づけはO列に10PからポイントMAX付与
➁担当者ID+主担当部門コード以外だったら該当ポイントの1/2付与
かつ、「達成額/未達成額」が0orマイナスなら1/2のポイントの半分付与

何卒、よろしくお願いいたします。

お世話になっております。

条件によってポイント付与する数式を組みたいのですが
条件が複雑で、どのような関数を組めば良いか、関数の知識も乏しく頭を悩ませております。
詳しい方教えて頂けないでしょうか?

K列 担当者ID
L列 計画
M列 実績
N列 達成率
O列 達成額/未達額
P列 ポイント付与欄

上記のようなデータがあります。

下記条件で、O列「達成額/未達額」の降順にポイントを付与したいです。
その際、下記の条件でポイントを付与したいのです。

ポイント集計先
①黄色セル...続きを読む

Aベストアンサー

まず基本条件の方からいきます。
1.セルP5に 「 =IF($M5>0,MAX(10+1-RANK.AVG($O5,IF($M$5:$M$1000>0,$O$5:$O$1000,"")),0),"") 」を入力します。
2.必要なだけ下方向にコピーします。(完了)

*RANK.AVG関数で”達成額/未達成額”の順にランキング(1~)をつけ、11から差し引く、という方法をとります
*”実績”がマイナスのものはランキング付けそのものから除外するので、IF関数で検索対象の配列を絞り込みます
(IF関数に配列を入れたら答えも配列で返してくれるので、その絞り込んだ配列に対してRANK.AVR関数を使います。)
*マイナスのポイントは排除したいので、MAX関数でゼロと比較して正の値のみを採択します

追加条件込みの方は、以下です。
1.セルP5に 「 =IF($M5>0,MAX(10+1-RANK.AVG($O5,IF($M$5:$M$1000>0,$O$5:$O$1000,"")),0)*IF(VLOOKUP($K5,$E$3:$F$1000,2,FALSE)=$K$4,1,IF($O5>0,0.5,0.25)),"") 」を入力します。
2.必要なだけ下方向にコピーします。(完了)

*担当IDから担当部門コードの検索にはVLOOK関数を使います。VLOOK関数が正常に動作するには、担当IDに漏れがない事と番号順に並んでいる事が必要ですので、これ前提で考えて下さい。
*追加条件に準じ、ポイントを1倍したり、0.5倍したり、0.25倍したり、しました。

まず基本条件の方からいきます。
1.セルP5に 「 =IF($M5>0,MAX(10+1-RANK.AVG($O5,IF($M$5:$M$1000>0,$O$5:$O$1000,"")),0),"") 」を入力します。
2.必要なだけ下方向にコピーします。(完了)

*RANK.AVG関数で”達成額/未達成額”の順にランキング(1~)をつけ、11から差し引く、という方法をとります
*”実績”がマイナスのものはランキング付けそのものから除外するので、IF関数で検索対象の配列を絞り込みます
(IF関数に配列を入れたら答えも配列で返してくれるので、その絞り込んだ配列に対してRAN...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング