エクセルの表作成と集計についておしえてください

質問

宜しくお願いします。

個人のペットショップで動物たちを管理する表を引き継ぎました。
その表はエクセルで作ってあります。

・シート１に全ての動物情報が入力してある表があります。
上から、犬の各犬種別に分けてある表が
1つ目の犬種の表があり
その犬種の合計
1行空けてあって
2つ目の犬種の表があり
その犬種の合計
1行空けてあって
と言う感じでずらーっと1枚のシートに入力してあります。

・その表に新しく入荷した動物を行を追加しながら入力し
売れた動物を削除してと言う感じで1週おきに作り直しています。

シート２～シート12
・シート1に入力してある犬種別に各シートが作成してあり
内容はシート1に入力してある犬種別にコピーしてここに張り付けています。

上記のシート1の全犬種のデータと
各犬種の頭数が合計してあるシート全体を印刷したものと
シート２～シート12の各犬種別に分けてあるシートを印刷して
2週に1回オーナーにFaxするシステムになっています。

ここからが質問なのですが
シート1に各犬種ごとに追加したり削除したりするのを
今は行の追加や削除をして作っているのですが
もっと楽にできる方法や、関数、その他のやり方などありますか？
アクセスは入ってなくエクセルしか使えないのでエクセルを使用した方法でお願いします。

あとシート1からシート２～シート12の各シートへコピーして貼り付けしているのですが
もっと簡単にシート1から各シートに取り出していく方法はありませんか？
今週の火曜日にまたオーナーへの提出日が来ますのでもっとやりやすく作り直したいので
アドバイスをお願いします。

文章でうまく説明できていないのでご質問いただけましたら追加でお話します。
どうぞよろしくお願いします。

回答No.7

kagakusuki

回答No.6の続きです。

　そして、Sheet1や各犬種のシートの表に表示されている犬種の文字列をクリックしますと、入力シートの該当するデータが入力されている行へ自動的に移動しますから、もし在庫の個体が売れて店頭から居なくなった場合には、入力シートの該当するデータの行を削除するのではなく、その行のA列のセルに「出荷済」と入力して下さい。
　同様に、
もし購入先へ返品した事によって店頭から居なくなった場合には「返品」、
もし店外に移動した事によって在庫品ではなくなった場合には「移動」、
もし死亡する等の「出荷済」、「返品」、「移動」等の何れにも該当しない理由で店頭から居なくなった場合には「処分」、
と入力して下さい。
　また、もし「売約済みとなった個体」もSheet1や各犬種のシートの表に表示させる場合には「売約済」と入力して下さい。

　そして、新しい個体が店の在庫品となった場合には、そのデータを入力シートの表に追加し、その行のA列のセルに「在庫」と入力して行く様にして下さい。

回答No.6

kagakusuki

回答No.5の続きです。

　次に、Sheet1の表のデータと書式(罫線も含む)を全て削除して下さい。
　次に、Sheet1のA3セルに次の関数を入力して下さい。

=入力!B$3

　次に、Sheet1のA3セルをコピーして、Sheet1の「B3セル」～「表の中で最も右端の列の3行目のセル」のセル範囲に貼り付けて下さい。
　次に、Sheet1のB4セル(犬種を表示させるセルの中で最も上のセル)に次の関数を入力して下さい。

=IF(B3="",IF(COUNTIF(B$3:B3,B$3)<COUNTIF(作業用!$A:$A,"*?"&CHAR(1)&1)-1,B$3,""),IF(ISNUMBER(B3),"",IF(OR(B3=B$3,COUNTIF(B$3:B3,B3)<COUNTIF(作業用!$A:$A,B3&CHAR(1)&"*?")),HYPERLINK("#"&CELL("address",INDEX(入力!$A:$A,MATCH(IF(B3=B$3,"*?",B3)&CHAR(1)&COUNTIF(B$3:B3,B3)*(B3<>B$3)+1,INDEX(作業用!$A:$A,MATCH(INDEX(B:B,ROW()-3*AND(B3=B$3,ROW()>ROW(B$3)+4)-1)&CHAR(1)&1,作業用!$A:$A,0)+1):INDEX(作業用!$A:$A,MATCH(CHAR(1),作業用!$A:$A,-1)),0)+MATCH(INDEX(B:B,ROW()-3*AND(B3=B$3,ROW()>ROW(B$3)+4)-1)&CHAR(1)&1,作業用!$A:$A,0))),IF(B3=B$3,SUBSTITUTE(VLOOKUP("*?"&CHAR(1)&1,INDEX(作業用!$A:$A,MATCH(INDEX(B:B,ROW()-3*AND(B3=B$3,ROW()>ROW(B$3)+4)-1)&CHAR(1)&1,作業用!$A:$A,0)+1):INDEX(作業用!$A:$A,MATCH(CHAR(1),作業用!$A:$A,-1)),1,FALSE),CHAR(1)&1,),B3)),COUNTIF(B$3:B3,B3))))

　次に、Sheet1のA4セルに次の関数を入力して下さい。

=IF($B4="","",IF(OR($B4=$B3,$B3=$B$3),IF(ISERROR(1/(INDEX(入力!$B:$I,MATCH($B4&CHAR(1)&COUNTIF($B$3:$B4,$B4),作業用!$A:$A,0),MATCH(A$3,入力!$B$3:$I$3,0))<>"")),"",INDEX(入力!$B:$I,MATCH($B4&CHAR(1)&COUNTIF($B$3:$B4,$B4),作業用!$A:$A,0),MATCH(A$3,入力!$B$3:$I$3,0))),IF($B4=$B$3,A$3,IF(ISERROR(MATCH(A$3,{"金額","定価","価格","入荷額","消費税"},0)),"-",SUMIF($B$3:$B3,$B3,A$3:A3)))))

　次に、Sheet1のA4セルをコピーして、Sheet1の4行目の中で、表で使用していて尚且つ「犬種を表示させるセル」以外のセルに貼り付けて下さい。
　次に、以下の操作を行って、Sheet1において表に使用する列のセルに条件付き書式を設定して下さい。

Sheet1のA3セルを選択
　　↓
Excelウィンドウの[ホーム]タブをクリック
　　↓
現れた「スタイル」グループの中にある[条件付き書式]ボタンをクリック
　　↓
現れた選択肢の中にある[ルールの管理]をクリック
　　↓
現れた「条件付き書式ルールの管理」ダイアログボックスの中にある[新規ルール]ボタンをクリック
　　↓
現れた「新しい書式ルール」ダイアログボックスの「ルールの種類を選択して下さい」欄の中にある[数式を使用して、書式設定するセルを決定]をクリック
　　↓
現れた「次の数式を満たす場合に値を書式設定」欄の中に

=$B3<>""

と入力
　　↓
「新しい書式ルール」ダイアログボックスの[書式]ボタンをクリック
　　↓
現れた「セルの書式設定」ダイアログボックスの中にある[罫線]タブをクリック
　　↓
現れた「スタイル」欄の中に並んでいる線のサンプルの中から実線を選択してクリック
　　↓
「プリセット」欄内にある[外枠]ボタンをクリック
　　↓
「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
「新しい書式ルール」ダイアログボックスの[OK]ボタンをクリック
　　↓
「条件付き書式ルールの管理」ダイアログボックスの[新規ルール]ボタンをクリック
　　↓
「条件付き書式ルールの管理」ダイアログボックスの「適用先」欄に入力されているセル範囲を

$A$3:$H$4

に変更（[注]Sheet1において表に使用する列がA列～H列の場合)
※カーソルとマウスの左ボタンによる範囲選択が使えます
　　↓
「条件付き書式ルールの管理」ダイアログボックスの[適用]ボタンをクリック
　　↓
「条件付き書式ルールの管理」ダイアログボックスの[OK]ボタンをクリック

　次に、Sheet1の4行目全体をコピーして、同シートの5行目以下に貼り付けて下さい。

　次に、Sheet1の3行目全体をコピーして、雛形シートの3行目に貼り付けて下さい。
　次に、雛形シートのB4セル(犬種を表示させるセルの中で最も上のセル)に次の関数を入力して下さい。

=IF(COUNTIF(作業用!$A:$A,REPLACE(CELL("filename",B4),1,FIND("]",CELL("filename",B4),FIND(".xls",CELL("filename",B4))),)&CHAR(1)&1),HYPERLINK("#"&CELL("address",INDEX(入力!$A:$A,MATCH(REPLACE(CELL("filename",B4),1,FIND("]",CELL("filename",B4),FIND(".xls",CELL("filename",B4))),)&CHAR(1)&1,作業用!$A:$A,0))),REPLACE(CELL("filename",B4),1,FIND("]",CELL("filename",B4),FIND(".xls",CELL("filename",B4))),)),REPLACE(CELL("filename",B4),1,FIND("]",CELL("filename",B4),FIND(".xls",CELL("filename",B4))),)&"　(在庫なし)")

　次に、雛形シートのA4セルに次の関数を入力して下さい。

=IF(OR($B4="",ISNUMBER(FIND("在庫なし",$B$4))),"",IF($B4=$B$4,IF(ISERROR(1/(INDEX(入力!$B:$I,MATCH($B$4&CHAR(1)&COUNTIF($B$3:$B4,$B$4),作業用!$A:$A,0),MATCH(A$3,入力!$B$3:$I$3,0))<>"")),"",INDEX(入力!$B:$I,MATCH($B$4&CHAR(1)&COUNTIF($B$3:$B4,$B$4),作業用!$A:$A,0),MATCH(A$3,入力!$B$3:$I$3,0))),IF(ISERROR(MATCH(A$3,{"金額","定価","価格","原価","入荷額","仕入値","仕入れ値","消費税"},0)),"-",SUMIF($B$3:$B3,$B3,A$3:A3))))

　次に、雛形シートのA4セルをコピーして、雛形シートの4行目の中で、表で使用していて尚且つ「犬種を表示させるセル」以外のセルに貼り付けて下さい。
　次に、以下の操作を行って、雛形シートにおいて表に使用する列の4行目にも条件付き書式を設定して下さい。

雛形シートのA3セルを選択
　　↓
Excelウィンドウの[ホーム]タブをクリック
　　↓
現れた「スタイル」グループの中にある[条件付き書式]ボタンをクリック
　　↓
現れた選択肢の中にある[ルールの管理]をクリック
　　↓
現れた「条件付き書式ルールの管理」ダイアログボックスの「適用先」欄に入力されているセル範囲を

$A$3:$H$4

に変更（[注]雛形シートにおいて表に使用する列がA列～H列の場合)
※カーソルとマウスの左ボタンによる範囲選択が使えます
　　↓
「条件付き書式ルールの管理」ダイアログボックスの[適用]ボタンをクリック
　　↓
「条件付き書式ルールの管理」ダイアログボックスの[OK]ボタンをクリック

　次に、雛形シートの4行目全体をコピーして、同シートの5行目以下に貼り付けて下さい。

　次に、雛形シートのコピーシートを犬種の数だけ作成して(犬種が12種類の場合は「雛形 (2)」～「雛形 (13)」)、そのコピーシートの各々のシート名を「入力シートに入力されている犬種名と同じ文字列」に変更して下さい。

　以上で準備は完了で、Sheet1や各犬種のシートに表が自動で作成されている事を確認して下さい。

※まだ途中なのですが、そろそろこのサイトの回答欄の入力文字数の限界に達しそうですので、残りはまた後で投稿する事に致します。

回答No.5

kagakusuki

各シートごとに、どの列にどの様なデータが入力されているのかという事や、何行目からデータが入力されているのかという事などといった、どの様な表になっているのかという事に関して、質問者様が何も説明されていないため、どのような状況なのかという事が不明です。
　ですから、取り敢えず仮の話として、Sheet1においてはA列～H列の列範囲に表が作成されていて、その内のB列には犬種を入力し、E列には仕入れ値を入力し、F列には定価を入力し、G列には消費税を入力する事になっていて、

>その犬種の合計

を表示する際には、犬種が入力されているB列のところに頭数の合計を表示し、それ以外ではE列の入荷額、F列の定価、G列の消費税に関しては合計を表示させるのに対し、その他の列のデータに関しては合計値は求めないものとします。
　また、各シートで最初にデータを入力或は表示させる行は、何れも4行目からであり、3行目は「犬種」や「仕入れ値」、「定価」、「消費税」等々の項目名を入力するための最初の行となっているものとします。
　また、Sheet1の表のデータは、必ず「1行が特定の1頭の個体に関してのデータ」となっていて、例えば「『シベリアンハスキー　3頭』などといった具合の1行に複数の頭数のデータが記載されている」様な例は無いものとします。
　また、使用するExcelはバージョンがExcel2007かそれ以降のバージョンのものであるものとします。

　尚、当然の事ながら、上記に挙げた各シートのレイアウトは、質問者様がどの様な表になっているのかという事に関して何も説明されていないために、仕方なく設けた仮定の話に過ぎませんので、もしも質問者様が下記の方法を元にして、実際の各シートの表のレイアウトに合わせて自力で関数や条件付き書式等を修正する事が出来ない様であれば、回答No.4様も

>「ずらーっと」で済ませずに、せっせとサンプルデータを表形式に書いたものを提示してください。

と仰っておられる様に、Sheet1とSheet2の表のレイアウトがどうなっているのかという事を「お礼コメント」欄か「補足コメント」欄を使ってちゃんと説明して下さい。
　その際には、
一番上の項目欄が何行目なのかという事や、
犬種が入力されている列は何列(A列、B列、C列、・・・等々)で、その列の項目は何という項目名(「犬種」で良いのか？「犬　種」の様に間に全角スペース等が挟まってはいないのか?)なのかという事、
合計を求めなければならないのは何列と何列のデーターで、それらの列はそれぞれ何という項目名になっているのかという事、
表が設けられているのは何列から何列にかけての事なのかという事
を現行のSheet1とSheet2のそれぞれの場合に関して、もらす事無く全て御説明願います。

　さて肝心の

>もっと楽にできる方法や、関数、その他のやり方などありますか？

に関してですが、(この回答の冒頭部分で挙げた仮定が正しかった場合には)以下の様にしますと、

>行の追加や削除をして作っているのですが
>シート1からシート２～シート12の各シートへコピーして貼り付けしている

などという面倒な事をせずとも、新たに設けた入力用のシートにデータを入力した上で、その入力用のシートに「在庫品」ないしは「売約済みで買い手の受け取りを待っている品」として店に置いて居る状態なのか、それとも「売れて出荷済みとなっている品」ないしは「死亡等で商品価値が無くなり処分してしまった品」として既に店内からは居なくなっている状態なのか、という事を入力して行くだけで、自動的にSheet1の表や、各犬種のシートの表に「店内にいる個体のデータのみ」が反映される様になります。
　入力用のシートの表のデータを削除しなくとも良いので、その方が売れてしまった商品のデータも記録として残す事が出来ます。
　また、Sheet1や各犬種のシートの表内に表示される各行のデータの中の「犬種」欄に表示されている犬種名をクリックしますと、入力用のシートの該当するデータが入力されている行へジャンプする様になっておりますので、商品が売れた際に、入力用シートのデータを「在庫」から「出荷済」に書き換える際に便利です。

　これらの機能を実現するには以下の様な操作を行って下さい。
　まず、もし途中で操作を間違えてデータを消してしまった場合に備えて、念のためにSheet1のコピーシートを作成して下さい。
　次に、新しいシートを3枚作成し、その内の1枚目のシートの名称を

入力

に、2枚目のシートの名称を

作業用

に、3枚目のシートの名称を

雛形

にそれぞれ変更して下さい。
　次に、Sheet1の「1番上の表の左上の隅のセル」～「1番下の表の右下の隅のセル」のセル範囲をコピーして、入力シートのB3セルに貼り付けて下さい。
　次に、入力シートの

>犬種の合計
>1行空けてあって

となっている行の全てと、1番上の1行以外の「項目名が入力されている行」を削除して下さい。
　次に、入力シートのA3セルに「在庫状況」と入力して下さい。
　次に、以下の操作を行って、入力シートのA列のセルにドロップダウンリストを設定して下さい。

入力シートのA4セルを選択
　　↓
Excelウィンドウの上の方に並んでいるタブの中にある[データ]タブをクリック
　　↓
現れた[データツール]グループの中にある[データの入力規則]ボタンをクリック
　　↓
現れた選択肢の中から[データの入力規則]を選択してクリック
　　↓
現れた「データの入力規則」ダイアログボックスの[設定]タブをクリック
　　↓
現れた「入力規則の種類」欄をクリック
　　↓
現れた選択肢の中から[リスト]を選択してクリック
　　↓
現れた「元の値」欄に次の様に入力

在庫,出荷済,売約済,返品,処分,預かり,移動

　　↓
「データの入力規則」ダイアログボックスの[OK]ボタンをクリック
　　↓
入力シートのA3セルをコピーして、同シートのA4以下に貼り付ける
　　↓
入力シートのA3セルを選択し、その右端に現れた「▼」マークのボタンをクリックし、現れた選択肢の中から[在庫]を選択してクリック
　　↓
入力シートのA3セルをコピーして、「『同シートのB列にデータが入力されている全ての行』のA列のセル」に貼り付ける

　次に、作業用シートのA3セルに次の関数を入力して下さい。

=入力!$C$3&CHAR(1)&1

　次に、作業用シートのA4セルに次の関数を入力して下さい。

=IF(A3="","",IF(INDEX(入力!$C:$C,ROW())="",IF(COUNTIF(INDEX(入力!$C:$C,1):INDEX(入力!$C:$C,ROW()),"*?")<COUNTIF(入力!$C:$C,"*?"),"(空欄)",""),IF(AND(ISNUMBER(MATCH(INDEX(入力!$A:$A,ROW()),{"在庫","売約済"},0)),INDEX(入力!$C:$C,ROW())<>入力!$C$3,ISERROR(FIND("計",INDEX(入力!$C:$C,ROW())))),INDEX(入力!$C:$C,ROW())&CHAR(1)&SUMPRODUCT(COUNTIFS(入力!$C$3:INDEX(入力!$C:$C,ROW()),INDEX(入力!$C:$C,ROW()),入力!$A$3:INDEX(入力!$A:$A,ROW()),{"在庫","売約済"})*1),"非在庫")))

　尚、もしもSheet1や各犬種のシートに、一時的に店で預かっている犬も表示させたい場合には、上記の関数の中で

{"在庫","売約済"}

となっている箇所を全て

{"在庫","売約済","預かり"}

に変更して下さい。
　次に、作業用シートのA4セルをコピーして、作業用シートのA5以下に貼り付けて下さい。

※まだ途中なのですが、このサイトの回答欄には4000文字までしか入力する事が出来ない仕様となっていて、これ以上入力しますと切りの悪い所で区切らねばならなくなりますので、残りはまた後で投稿する事に致します。

回答No.4

msMike

察するところ、貴方は Excel 初心者とお見受けしました。
「と言う感じでずらーっと1枚のシートに入力してあります」の「ずらーっと」で済ませずに、せっせとサンプルデータを表形式に書いたものを提示してください。
その方が、回答者にも都合が好いし、貴方も回答を理解しやすくなります。
初心者がズボラをするのはいただけません！

お礼

ご回答ありがとうございます。
失礼な質問の仕方をしてしまい申し訳ございませんでした。
以後気を付けたいと思います。

回答No.3

Prome_Lin

これから仕事で使われるファイルで以下のマクロをいきなり、試してはいけません。

必ず、「F12」で「名前を付けて保存」から、何か適当な名前を付けて「～.xlsm」で保存して、そのファイルで実験してください。

なお、「～.xlsm」は、ファイル名を入力する１行下の「Excel ブック」と表示されている右端の「∨」をクリックすると、「Excel ブック」のすぐ下に「Excel マクロ有効ブック」がありますので、それを選択してください。

まず、名前を変え、「～.xlsm」としたファイルで、「Alt＋F11」（「Alt」（「オルト」と読みます）キーを押しながら「F11」を押す）で、「Visual Basic」の画面を出します。

メニューの「挿入」から「標準モジュール」を選択すると、画面の右側が白くなるので、その白くなった部分に、以下のマクロをコピー＆ペーストして、「F5」で実行すると、結果が得られます。

なお、このマクロは以下の内容を実行します。

１．
一番左端以外のシートをすべて削除します（シートが１つしか存在しない場合は、この点については、何も起こりません）。

２．
一番左端のシートを11個、コピー作成します（１番目のシートと同じものが11個できます）。

３．
新たに作成したシートの不要な部分（行）を削除し、それぞれのセル「A1」の値をシートの名前にしています（それぞれの犬種が、最初に来ていると想定しているので、この部分は環境に合わせて直してください）。

４．
結果として、12個のシートができ、それぞれ必要な部分だけが残っているはずです。

Sub Test()
Dim i, r, v(10) As Long
Dim c As Integer
Application.DisplayAlerts = False
For i = Worksheets.Count To 2 Step -1
Worksheets(i).Delete
Next i
c = -1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Value = "" Then
c = c + 1
v(c) = i
End If
Next i
For i = 1 To 11
Worksheets(1).Copy After:=Worksheets(1)
Next i
For i = 12 To 3 Step -1
With Worksheets(i)
.Rows("1:" & v(i - 3)).Delete
r = .Range("A1").End(xlDown).Row
.Rows(r + 1 & ":" & .Rows.Count).Delete
.Name = .Range("A1").Value
End With
Next i
With Worksheets(2)
r = .Range("A1").End(xlDown).Row
.Rows(r + 1 & ":" & .Rows.Count).Delete
.Name = .Range("A1").Value
End With
End Sub

少し、マクロそのものの説明です。

Application.DisplayAlerts = False

シートを削除するとき、削除していいかメッセージが表示されないようにしています。

For i = Worksheets.Count To 2 Step -1
Worksheets(i).Delete
Next I

シートの削除。

c = -1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Value = "" Then
c = c + 1
v(c) = i
End If
Next I

今、シートは１つ（一番左端）しかないので、そのシートの「A」列が空白だった場合、その行を覚えています（あとで、不要な部分を削除するため）。

したがって、「A」列には、必ず何か文字なり数値なりが入っていなければなりません。
これは、極めて重要です。

For i = 1 To 11
Worksheets(1).Copy After:=Worksheets(1)
Next I

一番左端のシートのコピーを11個作っています。

For i = 12 To 3 Step -1
With Worksheets(i)

後ろのシートから処理しています。

.Rows("1:" & v(i - 3)).Delete
r = .Range("A1").End(xlDown).Row
.Rows(r + 1 & ":" & .Rows.Count).Delete

詳しくは説明しませんが、不要な行を削除しています。

.Name = .Range("A1").Value

削除した上で、セル「A1」に犬種が入っているという判断で、セル「A1」の値を、そのシートの名前にしています。

従って、この部分は質問者の環境に合わせてください。

With Worksheets(2)
r = .Range("A1").End(xlDown).Row
.Rows(r + 1 & ":" & .Rows.Count).Delete
.Name = .Range("A1").Value
End With

左端から２番目のシートだけは、上記のようにできないので（シート3～11は、１行目から削除していますが、２番目のシートは１行目から削除できない）、別途、同じ処理（不要な行の削除）を行っています。

これだけでも、だいぶ効率的になるのではないでしょうか？

最後に、
今、犬が売れました。

１行削除するわけですが、それをどうすれば、効率的に作業できるのかが分かりません。

せいぜい、行削除のアイコンを画面に出しておき、削除したい行にカーソルを合わせておいて、そのアイコンをクリックするのが、一番効率的に思えるのですが・・・

それとも、どこかに売れた犬が入力されているのですか？

もし、それなら、そのデータから「VBA」などで自動的に削除していくことは可能です。

ちなみに、エクセルのバージョンも分からないので、その「行削除」や「行挿入」のアイコンの出し方も合っているかどうか分かりませんが、多分エクセル２００７以降でしたら、

「ファイル」→「オプション」→「クイックアクセスバー」で、左側の「シートの行削除」や「シートの行挿入」を右側に「追加」しておくと、エクセルの画面、左上にそのアイコンが表示されるようになり、いちいち、右クリックからとかしなくてもすみます。

もう一度言いますが、犬が売れたとき、行削除するのに、関数を使うといっても、どの犬が売れたか、という情報がどこにあるのですか？

その情報を書き込んで、それを元に関数で削除したり「VBA」で削除したりするより、その行にカーソルがある状態で、上記のアイコンで行削除するのが、一番簡単だと思います。

また、行挿入についてもそうです。

どこかに、新しく来た犬の情報がないと、関数や「VBA」で行挿入して、その犬の情報を入れることはできません。

その情報を初めて行挿入によって書き込むのでしたら、単純に、挿入したい位置にカーソルを置いて、上記のアイコンで行挿入するのが手っ取り早いです。

お礼

ご回答ありがとうございます。
今No.２にご回答くださった方のやり方で今秋提出する分は作りました。
教えていただいたやり方を覚えてみたいので今買ってきた本を見て意味を調べながらやってみます。

回答No.2

hayasi456

ソート１の一部の行（範囲）を他のシートにコピーして貼り付けされているならば
「リンク貼り付け」を利用してはいかがでしょう。

・コピーする行（範囲)を選択し右クリック、コピー
・貼り付ける（範囲)を選択し右クリック「形式を選択して貼り付け」を選択
・「リンクして貼り付け」を選択

これでソート１に入力すると他のシートでも同じ内容なります。

添付画像
犬種　ハ　の　セルB2 の式は　=all!B6　　になっています。

参考URL
Excel2003以前
http://d.hatena.ne.jp/kazuki2life/20081212/1229081218
Excel2007以降
http://pasofaq.jp/office/excel/excel2010linkpaste.htm

ついでに複数のシートを同時に開く方法を
Excel2003以前
https://kokodane.com/tec1_38.htm
Excel2007以降
http://www.becoolusers.com/excel/new-window.html

お礼

ご回答ありがとうございます。
今週提出する分を教えていただいたこの方法でやってみました。
ありがとうございました。

回答No.1

bunjii

>今週の火曜日にまたオーナーへの提出日が来ますのでもっとやりやすく作り直したいのでアドバイスをお願いします。
文面から判断するとあなたの収入源のお仕事のように感じます。
システムエンジニアに有償で処理プログラムを作成して貰うと良いでしょう。
あなたの希望を面談で伝えれば効率良く作業が進みます。
無料のアドバイスを望むのは甘えすぎていませんか？
自作で処理したいときはそれなりの努力をすべきです。
ネット検索でExcelの使い方について基本的なテクニックを探せます。
基本テクニックを習得すれば応用で目的に合う仕組みを作れるでしょう。

お礼

ご回答ありがとうございます。
安易に質問をしてしまい申し訳ございませんでした。
以後気を付けたいと思います。