エクセルの移し変え作業(A表のデータをコピー、B表にペーストする)で
もっと楽で時間の掛からない方法があれば教えてください。

現在のやり方
A表に、1日24時間毎のデータが1年分(365日×24時間=約8800行)あります。
上(1行目は1月1日1時のデータ)から、下(最終行目は12月31日24時のデータ)に向かってあります。

このデータをB表に移します。
B表の1行目は、1月1日のデータで、右方向に1時~24時までのセルがあります。
   2行目は、1月2日のデータで、右方向に1時~24時までのセルがあります。
     〃    〃   〃   〃   〃
   365行目は、12月31日のデータで、右方向に1時~24時までのセルがありま   す。

データ移し変え方法は、
A表から1日分(24データ)をコピー、B表の右方向へ行列を変更してペーストしています。
次に、1月2日を同様にしてコピー、ペースト、365回これをくりかえして1年分をまとめています。

この方法で7年分済ませましたが、作業してくれる方(私を含めて)が全員泣いてます。
花粉症なら分かっているけど風邪だと言い張って作業を休んだり、急に里帰りしたり、目が疲れるから3時間だけ、他にしなくてはならないことが、腱鞘炎だ、など、単調な作業でやたら時間がかかるので嫌われています。

今後、残りの作業年数が20年あり、エクセルの機能の中にこれが楽にできる
方法があれば、是非、是非、教えてください。
マクロは知らないので、出来るだけ、一般的な方法で。よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (17件中1~10件)

原因不明ですね。



〔第3段階〕
Sheet2のA1に
 =INDEX(Sheet1!$A$1:$A$8760,(ROW()-1)*24+COLUMN(),1) としてみてください。

『Sheet1』はシートタブに表示されているシート名です。
『$A$1:$A$8760』はとりあえず『$A$1:$A$500』でもかまいません。


だめなら、
〔第3段階〕
Sheet1のA列のデータの入っている範囲に名前をつけます。
 Sheet1のA列のデータの入っている範囲(A1からA列のX行まで)を選択して、
  挿入→名前→定義で『DATA』を入力

Sheet2のA1に
 =INDEX(DATA,(ROW()-1)*24+COLUMN(),1) とします。

2.66がでればコピーします。

2.66がでなければ、
 セルA1で =(ROW()-1)*24+COLUMN() がどうなるか教えて下さい。
 セルA2で =(ROW()-1)*24+COLUMN() がどうなるか教えて下さい。
 セルB1で =(ROW()-1)*24+COLUMN() がどうなるか教えて下さい。

Excelのバージョンが関係する?
Indexを使ってみています。
    • good
    • 0
この回答へのお礼

nishi6様

誠に申し訳ないことが分かりました。
今まで、数式を入れて数式欄が表示されている左横のチェックで
入れておりました。
そうすると、値の更新シートがでてきますが、意味が分からず
恐ろしくてキャンセルしておりました。
たまたま OK をクリックしましたら、数値が正常に出てくる
ことに気がつきました。
すると、その間何回もわずらわしいことを、nishi6様に考えていただき、
大変申し訳ありません。
教えていただいた、#1の回答で、すべてができた訳です。
本当に、ごめんなさい。
私の無知のため、時間を取らせたことをお侘びします。

この質問でマクロに手をつけたので、その結果が確認できてから
締め切りします。
ありがとうございました。

追伸;明日はちょっとでなく、ピノキオで鼻高々です。
   いい忘れたこと:エクセル2002を使ってます。

お礼日時:2002/04/08 01:29

締め切られる前にもう一つ。



先のアドバイスで『例えば、A1~A365に数値1~365を入力しておき』としたのは、質問の例では、『Y1~Y365に数値1~365を入力しておき』としたほうが良いでしょう。

そうすればA1~X1に入っている式をダブルクリックでオートフィルすれば、A365~X365までが一瞬に求まります。

ダブルクリックのオートフィルを覚えたのは数年前に友人から聞いたものです。当時のExcel97でも使えました。解説本に載っているという話は聞いたことがありません。

お仕事が順風満帆で何よりですね。
もう、お礼は不要ですよ。
    • good
    • 0

《以下、先刻ご承知の内容でしたらごめんなさい》


数式をコピーする際、ダブルクリックのオートフィルを利用されていますか?

例えば、A1~A365に数値1~365を入力しておき、B1~X1に入っている式をダブルクリックでオートフィルすれば、一瞬で365行に式がコピーされます。

もう少し具体的に言いますと、
式が入っているB1~X1を選択した状態で、セルX1の右下へマウスカーソルを置き小さな+記号が出たらダブルクリックします。するとA列に数値の入っている行の最後(365列)まで、一瞬に式がコピーされます。

《上記、先刻ご承知の内容でしたらごめんなさい》
    • good
    • 0
この回答へのお礼

ubonoti01様
アドバイスありがとうございます。
ダブルクリックのオートフィルの方法は、知らなかったので、実験です。
列、行の大きさが異なってもできました。また、列、行ともに、
途中に空(から)のセルがあっても出来ました。
これまた、ビックリ機能です。資料を整理するのに利用出来ますね。
このような使い方というのは、皆さんは解説本で会得されたのでしょうか?

今回お願いした質問への回答を使ったエクセル作業は、順風満帆で快調そのもの、後ろから台風の追い風が来ているみたいなスピードで、楽に、笑いながらよそ見してても仕上がります。実感として今までの3日分作業が3時間終了!!!

別件;今夜、マクロのやり方についての連絡をいただけなかったら、質問を締め切ります。相手様の立場では、1から教えるのは大変なことで疲れだけが残るでしょう。本来は私がマクロをある程度理解してから教えてもらうのがスジであり、基本的な立場を忘れておりました。その方に重荷をかけたことを今恥じております。

お礼日時:2002/04/10 18:18

(追報)


1.Test01()は終わったようですね。ただ心配なのは最下行が、41Aまでと書いておられるが、8760行目(=24*365)に365zが入っているはずで
そうなっていませんか。
2.Test02()ですが、新規作成のBook1のSheet1のA列のデータに対し、プログラムが加工して、Sheet2のA列からZ列かつ1から365行までに書き出します。これで良いか良く考えてください。
3.OKWebの画面の幅に合わせかたが判らなくて、苦しんでいます。下記の/より/までは行を変えずに打ち込み、かつ/では必ず改行してください。
スペースを入れるところは@マークを入れます。
4.本例ではSheet1のA列の1列をSheet2のAからZ列に並べ替えていますが、Sheet1には何列も有るのではないかと思う。
最大10列に限り(10×24<256<11×24)
増やすようプログラムを改められます。
5.「私の解釈では」と書いておられるところは違います。ブックを新規で作成すると、取りあえずSheet1,Sheet2、・・・が出来ますが
それをそのままテストで使うことを前提にして、WorkSheets(”Sheet1”)とかWorkSheets(”Sheet2”)とかとしています。
5.本番のBook(ファイル名)のデータが入っているSheetにおいて、下記の操作をしてください。
Test01()はテストデータ作成用ですので、本番では実行不要。
<本番のVBA Test2()実行操作>
●本番の元データの入っているシートの画面を開く。
●その画面のメニューバーのツール-マクロ-VisualBasicEditorを順にクリックして、その後メニュバーの挿入-標準モジュールをクリックし、左のプロジェクトエクスプローラー部に「Module1」があらわれるから、それをダブルクリックして右側部分の白紙画面に前記のテストの時のTest02()以下をそのままコピーし貼りつける。
(テストの時のBook1のSheet1のModule1のTest02()からEndSubをコピーし、Book1を閉じても、本番のデータの入っているSheetのModule1に貼りつけることが出来ます。)
●Test02()のEnd subまでの途中ならどこでも良いからカーソルをおき、メニューバーの「実行」をクリックすると実行される。
@は1スペース、/は改行を示す(我流です。またVBEがスペースを自動的に入れる個所がありますが、そのままにまかせて良い。)
Sub@test02()/
Worksheets("sheet1").Activate/
For@i@=@1@To@24 * 365/
j@=@i@Mod@24/
If@j@=@0@Then/
j@=@24/
k@=@Int(i/24)/
Else/
j@=@j/
k@=@Int(i/24)@+@1/
End@If/
Worksheets("sheet2").Cells(k,j)@=@Worksheets("sheet1").Cells(i, 1)/
Next@i/
End@Sub/

この回答への補足

imogasi様
今晩は!追記ありがとうございます。
1)sheet1の8760行目は365Zが入って、sheet2への移し変えは
  期待したとおり、365行になっています。
2)実際のデータは、A列からF列まであります。
  (テストはA列が、sheet2へ移ればよいとの考えですが、
   6列とも入れてテストしています。)
3)"私の解釈"は、今回はっきり理解できました。
 (行の後ろに引っ付けるというのは、実行した時、そこが赤い色がついたので
  理解できました。)

本番の実行で:
ご指示のように、進めたつもりですが、、、、

左の枠の上部にVBAProject(Book1)があり、Module1 と Module2が見れます。
その下に、VBAProject(本番データのタイトル)とModule1があり、Module1が
反転しています。

右に入っているプログラムの中で、Worksheets("sheet1").Activateの1行に
黄色に色がついてます。(なぜがは分かりませんが)
"sheet1"を本番データのシートの名前”data”をいれても同じ結果でした。

実行すると、
『実行時エラー'9'
インデックスが
有効範囲にありません』とメッセージが出ます。
最初からやり直して、何回か実行してみましたが、その都度
同じメッセージです。
私の操作ミスがどこにあるのか判断していただけませんか?

補足日時:2002/04/09 01:19
    • good
    • 0
この回答へのお礼

imogasi様

先日はマクロの件で、ご指導いただきましてありがとうございます。
それ以来、テストしましたが結果はまだできません。

私がマクロについて基礎的な解説書を読み、一般的な理解ができた後に
imogasi様のご回答が分かるはずです。そうします。
または、私の知人でマクロの理解者がおれば、imogasi様の回答書を元に
解説してもらいます。
imogasi様に折角回答をいただきましたが、ご負担をかけたことをお侘びします。

今後も、私に、教えて!問題が起これば投稿する機会があろうと思いますので、
その際は、よろしくお願いします。
ありがとうございました。
(これにて、質問を締め切ります)

お礼日時:2002/04/11 09:49

aboukaさん、大変なお仕事、同情します。

わたしも興味ありましたので回答を逐次拝見していました。
すでに解決されておられると思いますが、まだ締めきっていないので、立ち寄らせていただきます。

わたしは#1-nishi6さんの回答で出来ました。
aboukaさんの「#印が目いっぱいに広がってます」と言うのは、単にセル幅が狭かったためではないんですか?

因みに、Sheet1のA列、A1~A9999に数値1~9999を入力し、あらかじめSheet2のセル幅を狭くしておいてからnishi6さんの式を入れると、「#印が目いっぱい」になります。これらのセル幅を広げてやると、数値がバッチリ表示されました。テスト済みです。

#1-nishi6さんの回答が一番判りやすく簡単と思います。
    • good
    • 0
この回答へのお礼

ubonoti01様

ご心配かけましたが、昨夜、回答番号12の xxsadayanxx様の方法で
解決しました。
すぐ、nishi6さんの、#1-の指示どおりにセットすると、解決しました。

この原因は、私の操作ミスです。
10年間パソコンを触っていましたが、初めて『値の変更シート』が出てきて、恐ろしいので常にキャンセルしていたのでした。
(1週間前にエクセル2002に変えたからかな?と思いますが)

昨夜、nishi6様にはお詫びのご連絡をしました。(#11の回答欄 参照)

まだ、締め切りしていない理由は、今夜マクロのことで、#8と#13-回答者imogasi様のご指示でマクロをテストします。
初めてマクロに触るので、何が飛び出すか、不安と興味でいっぱいです。

今回もそうですが、新しい数式(INDIRECT、OFFSET、加えてマクロ)などを
教えてもらえるこのgoo教えてシステムには感謝、感謝です。

お礼日時:2002/04/08 17:11

朝6時30分補足を見ました。

出勤時間まで時間がなく、解答を入れられません。本日昼に解答を考え、夜解答を
入れさせていただきます。悪しからず。
コピーは使いません。Sheet1は貴殿の原データであり、
Sheet2は自動的にできあがるシートの名を指します。
WorkSheets(”●”)の●の部分のSheet1やSheet2に
本番では、原データシート名と結果シートのシート名を
プロウラム中に置き換えて入れるのです。
    • good
    • 0

No.5の回答をしたxxsadayanxxです



Sheet2のA1に式を入力してその式をA1~X365にコピーと言うのは
A1~X365の"全てのセル"に式をコピーして下さいと言う意味なのですが・・

どうも、返信の内容では、A1に式を入力して、1行目を2~10行目に
コピーされているのではないでしょうか??
(B~X列に式が入力されていない)

式のコピーは色々な方法が有りますが
以下の手順通りに試して見てください
1)Sheet2のA1に下の式を入力(返信に記載された式でOKです)
   =OFFSET(Sheet1!$A$1,(ROW()-1)*24+COLUMN()-1,0,1,1)

2)A1を右クリックして"コピー"を選択

3)X365をShiftキーを押しながらクリック

4)Enterキーで式がコピーされます
    • good
    • 0
この回答へのお礼

xxsadayanxx 様

ご回答ありがとうございます。

コピーの方法およびOFFSETの数式を教えていただき、
指示どおりにしました。
煙草に火をつける時間も無く、なんと簡単に、
数学的に、エクセレントに、エクセルの機能はすばらしいのでしょう!!
多量のデータを瞬時に入れ込むことができました。

xxsadayanxx様は一般人と表示されておりますが、
高度のエクセルを日常的にお使いになっていらしゃると
思われます。

もし、一般人とすれば、私は無知人となり、明日パソコンを
中古屋に出し、枝ぶりの良い樹を探した方が
世のためかも知れないと思われます。

今回作業で現在初めてマクロの世界に触れてます。
こちらの結論と、もう1つの方法を教えていただいた後で
締めきりますので、少し時間をください。

驚いた夜でした。今夜はゆっくり休めます。

お礼日時:2002/04/08 01:10

編集モードはF2を押すことの意味で使いました。



〔第1段階〕
まず、Sheet2は全部クリアしてください。A列から24列の削除でかまいません。

〔第2段階〕
クリアしたら、Sheet2のA1を選択して、
 = を入力、
 Sheet1タブをクリック
 Sheet1のA1を選択
 Enter

これで、Sheet2のA1には 2.66と表示され、算式は『=Sheet1!A1』となっているはずです。
これがうまくいっていなければ、Sheet1に問題があります。

〔第3段階〕
うまく2.66がでれば、この算式を修正して
 =INDIRECT("Sheet1!A"&(ROW()-1)*24+COLUMN())
にして下さい。面倒かもしれませんが入力してみてください。『Sheet1』が大文字、小文字の違いがあるかもしれません。

〔第4段階〕
算式を修正して2.66がでれば下、右にコピーします。

〔第1段階〕~〔第4段階〕まで行って、補足をして下さい。

この回答への補足

nishi6様

〔第1段階〕〔第2段階〕はご指示どおりに出てきます。

〔第3段階〕で、式入力を何回か試みました。
 手入力を数回やコピーでもやりました。

 入れた式です =INDIRECT("sheet1!A"&(ROW()-1)*24+COLUMN())
 〔第3段階〕の式の入力では私はミスしていないと思います。

 しかし、〔第4段階〕では

 結果;sheet2のA1セルに #REF! が現れ、2.66の数値が出てきません。
 このsheetには、sheet1、sheet2、しか入れてありません。

補足日時:2002/04/07 22:55
    • good
    • 0

>=INDIRECT("Sheet1!A"&(ROW()-1)*24+COLUMN())が、{ }で囲まれて・・・



{ }は意図していません。
=INDIRECT("Sheet1!A"&(ROW()-1)*24+COLUMN())を登録する時、Ctrl+Shift+Enterで配列数式になっているようです。
普通の算式なので登録する時は普通にEnterです。

Sheet2のA1を選択状態にして、ファンクションキーF2を押して編集モードにして、Enterとします。2.66が表示されればOKです。下、右にコピーします。これでもダメかな??

前の質問の回答が尾を引いてた?



ちなみに
>※ 実際の作業は、sheet1のC2がデータのトップで下方向、
>sheet2ではB8がデータのトップで右方向に24個です。

このままの状態で算式をセットすれば、Sheet2のB8は

 =INDIRECT("Sheet1!C"&(ROW()-8)*24+COLUMN())

となるはずです。うまくいってから確かめられてはどうでしょうか。

この回答への補足

nishi6様へ

今度の数式は普通の算式として正しく入れました。

Sheet2のA1を選択状態にして、ファンクションキーF2を押して編集モードにして、Enterとしますが、数値の2.66は出てきません。
F2を押して、Enter してますが、F2を押しながら、どこかで編集モードにするのであれば、その操作はしておりません。

素人考えですが;
テストは2日分であるため、数式内のどこかに変更箇所があるような
気がしますが、
=INDIRECT("Sheet1!A"&(ROW()-1)*24+COLUMN()) の中にはありそうもないですね。

補足日時:2002/04/07 21:06
    • good
    • 0

なんか悲惨な様子が伝わってきましたので、解答する気になりました。

ただVBA(俗に言うマクロ)なので、判らないといわれるかもしれないですが、まあ考えてそっくり真似することを検討してください。
他の方の関数作成、式のコピー方式も結構複雑なようで
下記の法が簡単かも。
下記Test2()は10秒以内に終わります。Test1()も10秒以内です。
もし下記を使われるなら、まずTest1()を実行して、sheet1のテストデータを良く見て、私の理解が、実情と違っていないか考えて、良ければTest2()を実行して下さい。
データは特徴をモデル化してあるつもりですので、。
そしてsheet2を良く見て貴殿が考えている通りのパターンに並べ替えられたか良く考えてください。
それから本番のデータにTest2()を実行してください。
'--------<テストデータの作成>
Sub test01()
b = "abcdefghijklmnopqrstuvwxyz"
For i = 1 To 24 * 365
j = i Mod 24
If j = 0 Then
j = 24
k = Int(i / 24)
Else
j = j
k = Int(i / 24) + 1
End If
Worksheets("sheet1").Cells(i, 1) = k & Mid(b, j, 1)
Next i
End Sub
(Next iの上の行「1)」はWorksheets("sheet1")の行の後に引っ付けてください。横幅制約の為に無理に改行されていますのでご注意。この()の部分はプログラムでないのでプログラムの打ち込みの時は省くこと。)
'-----<行と列の日別に入れ替え>
Sub test02()
Worksheets("sheet1").Activate
For i = 1 To 24 * 365
j = i Mod 24
If j = 0 Then
j = 24
k = Int(i / 24)
Else
j = j
k = Int(i / 24) + 1
End If
Worksheets("sheet2").Cells(k, j) = Worksheets
("sheet1").Cells(i, 1)
Next i
End Sub
(Next iの上の行はWorksheets("sheet2")の行の後に
引っ付けてください。横幅制約の為に無理に改行されて
いますのでご注意。この()の部分はプログラムでないのでプログラムの打ち込みの時は省くこと。)
'---<VBAの実行のし方>
●エクセルでのメニュバーのファイル-新規作成をクリックしsheet1の画面を開く。
●メニュバーのツール-マクロ-VisualBasicEditorを順にクリックして、その後メニュバーの挿入-標準モジュールをクリックし、左のプロジェクトエクスプローラー部に「Module1」があらわれるからそれをダブルクリックして右側部分の白紙画面に上記のTest1()以下とTest2()以下をそのまま入力する。
●し終わったら、Test1()のEnd subまでの途中ならどこでも良いからカーソルをおき、メニュバーの「実行」をクリックすると実行される。
●出来たsheet1を良く見てください。
●Test2()のEnd subまでの途中ならどこでも良いからカーソルをおき、メニュバーの「実行」をクリックすると実行される。
●出来たsheet2を良く見てください。
●Test2()でプログラムのやっている理屈や内容が知りたければ、補足に表明していただければ説明文を作ります。
●私の方法に関わらず、いかなる方法でやるにせよ、実本番データは別にバックアップを取って置いて実行すること。

この回答への補足

imogasi様

ご返事が遅くなり失礼しました。
マクロ以外の方法をテストしてきましたが、まだ最終まで到達できません。

imogasi様より教えていただきました方法でマクロの世界に入ります。
ご指示どおりに●1、●2、●3、●4、まで進めてできたsheetを
見ております。
sheet1の、A列にA1から下方向に、1a,1b,1c,と1が24行並び、
25行目から2a,2b,2c,が 最終の 41a まで見れます。

しかし、私のデータと、それをペーストするsheetはまだ入れてありません。

以下、私の不明な点の質問となります。
1)sheet3、にデータを入れ、sheet4にペースト先のものを入れるのでしょうか?
2)以下の文章の内容指示ですが、これをどこに貼り付けるのしょうか? を 指  示してください。
  ※ Next iの上の行はWorksheets("sheet1")の行の後引っ付けてください。
    → 私の解釈;
      マクロ-テスト-1とシートに名をつけておりますが、
      下側にあるsheet表示欄のsheet1のタイトルの後ろに
      スペースを空けずに、Cells(i, 1) = k & Mid(b, j, 1) と
      つけるのでしょうか? 
      ご指示の後方に("sheet2")につけることも書かれております。
      そうなると、データなどはsheet3以降に入れるのでしょうか?

 夜分遅くなり、ご連絡が遅く失礼します。
 私ごとですが、まだ、2時間位この作業を進める道を探しますので
 起きております。

補足日時:2002/04/07 23:00
    • good
    • 0

このQ&Aに関連する人気のQ&A

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

このQ&Aを見た人が検索しているワード

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

Qエクセル プルダウンの作り方

お世話になります。
エクセルでプルダウンの作り方を教えていただけませんでしょうか?
住所を▼のボタンでクリックしたら【北海道,青森,秋田,岩手・・・】などの選択ができるようにしたいのです。
宜しくお願いします。

Aベストアンサー

メニューから「データ」、「入力規則」、「設定」で「入力値の種類」を「リスト」を選択します。
そうすると「元の値」という表示がでますので、そこで前もって作っておいたリストの範囲を指定します。
多くないのでしたら、そのままそこにカンマで区切って入力しても出来ます。

Qシート1の下方向に等間隔に記載されてるデータを別シートで右方向抽出したい。

何度やっても解決できず。
写真にて説明しますので解決策を教えてください。

画像のような表が下に30セット記載されてるフォーマットがあります。
その赤字部分を別シートに右に1列ずつ抽出したいのですがその数式を教えてください。

以前質問して下記の数式でアドバイスいただいたのですがどうもできず、なぜできないかも分からないため教えてください。
=OFFSET(Sheet1!$A1,2+(COLUMN(A1)-1)*3,)
=INDIRECT("Sheet2!A"&COLUMN()*3)
=INDEX(Sheet1!$A:$A,COLUMN(A1)*3)
=INDIRECT("Sheet1!A"&ROW()*3)

Aベストアンサー

こんばんは

まずは、シートの構成を変えてみてはいかがでしょうか?
>画像のような表が下に30セット記載されてるフォーマットがあります。
>その赤字部分を別シートに右に1列ずつ抽出したいのですがその数式を教えてください。

1枚のシートに下に並べるのではなく、1案件1枚のシートを30枚にしてみてはいかがでしょうか?

Qエクセルでプルダウンメニューの作り方

  エクセルの画面で、よく三角形を逆さまにした形をクリックするといくつかメニューが出てき、どれかを選べるようになっていますが、その作り方を教えてください。
 会社で人事を担当していますが、三角形(プルダウンボタン)をクリックすると社員氏名一覧が表示され、そこから選択できるようにしたいのです。
 しばらく自力でいろいろやってみましたが、さっぱり見当がつかず、どうやればいいのか分かりませんでした。よろしくお願いします。

Aベストアンサー

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならないでしょうか?
Excel2007の場合は↓のURLが参考になるかもしれません。

http://www.eurus.dti.ne.jp/~yoneyama/Excel2007/excel2007-ny_kis2.html

尚、同一Sheetに「名簿表」を作成する場合は名前定義する必要はなくて
「元の値」の右側の四角をクリックし、リスト表示したいセルをそのまま範囲指定すればOKです。

以上、お役に立てば良いのですが・・・m(_ _)m

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならない...続きを読む

Qエクセルで365×24の表を8760×1に並び替えたいです

 エクセルで、下のような365×24の表で
   A  B  C  ・・X
1  ● ● ●   ●          
2  ● ● ●   ●
3  ● ● ●   ●       
・               
365  ● ● ●   ●           

で、これを8,760×1の表に簡単に変換したいのですがやり方がわかりません。少なかったらコピーして行と列を入れ替えるで、やってもいいのですが今回はこれが、かなりの量があり手作業だと時間がかかりすぎ、実用的ではありません。ですので、この作業を簡単に出来る方法を探しております。どうぞ宜しくお願いします。
 なお、こちらはオフィス2000、2002を使用しております。

Aベストアンサー

 まずCSVファイルに書き出します。すると次のようになっているでしょう。

●,●,●,●,●
●,●,●,●,●
●,●,●,●,●

 それで、縦一列ですので、「カンマ」をすべて「改行」に置換します。ワープロソフト、またはテキストエディタを使います。
 すると、次のようになります。
 これを再度、Excelで読み込みます。以上です。















Qエクセル(Excel) 納品書の作り方【画像修正版

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が見にくかったのでシート<CENTER></CENTER>だけにしました。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルでコピー!
そのまま最後の24行目までコピーしておきます。

F4セルには
=IF(COUNTBLANK(B4:E4),"",D4*E4)
という数式を入れ、F24までオートフィルでコピー!

これでB列に商品番号を入力すればSheet2のデータが反映され、
E列に数量を入力でF列に金額が表示されると思います。

最後に合計金額のF26セルは
=IF(COUNT(F4:F24),SUM(F4:F24),"")
手数料のF27セルは
=IF(F26="","",F26*0.2)

これで何とか形にならないでしょうか?

※ 振込金額の欄は不明ですので手を付けていません。

参考になりますかね?m(_ _)m

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルで...続きを読む

Qbook1の表データからbook2の表データと合致した時に”主”と表示させたい

エクセル初心者です。
book1の表データの中でbook2の資格を持っている者を抜出し
book1 x列にある作業主任者の欄に”主”と表示させたいのですが

book2の表 B列(B3:B35)を作業主任者と名前を付けて
=IF(COUNTIF(C4:V4,作業主任者),"主","")と数式を作ってみましたが上手くゆきません

資格番号を1つづつ拾ってゆくと数式も長くなりスッキリとしません

短い数式で

各作業員の持つ資格とbook2のA-2~B-41とで一致するデータが1つ以上ある時”主”と表示し
一致するデータが無い時は””とする

を表すことは出来ないのでしょうか?

宜しくお願いします。

Aベストアンサー

一案です
=IF(ISNA(LOOKUP(2,1/COUNTIF(C4:V4,作業主任者))),"","主")
でもいいかも。参考まで

Qエクセル(Excel) 納品書の作り方【改めて】

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が貼り付けてあります。商品名は1番以外伏せさせていただいています。
くっつけてありますが、左側がシート1・右側がシート2です。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

画像がいまいちよく見えないのですが、納品書の項目は左から、No、商品番号、商品名、単価、数量、金額でいいのでしょうか(名前は多少違っていても意味があっていればもんだいないです)

でしたら、
C1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,2,FALSE))
D1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,3,FALSE))
E1セルは空白で
F1セルに=IF(D2="","",D2*E2)
といれて、C1からF1までをコピーしてその下の行にタテに貼り付ければ出来ますよ。
おそらくエラーが出たのは、コピーしたときにVLOOKUP関数の最初のセルの指定がずれてしまっているのでは無いかと思いますよ。     

QExcel でシート間の重複データ(Sheet1のA=Sheet2のA かつ Sheet1のB=Sheet2のB)

Excel2000です。

Sheet1のA列・B列・C列・・・にデータが入っています。
Sheet2のA列・B列・C列・・・にデータが入っています。

Sheet1のA列とSheet2のA列は、似たようなデータが入っています。
Sheet1のB列とSheet2のB列も、同様です。
C列以降のデータは、シート間で全然関係ありません。

Sheet1の行データ(A列・B列)が、Sheet2(A列・B列)にも存在しているかどうか、
を知るには、どうすればよいですか。
C列以降の列のデータは、比較する際に使いません。

つまり、
Sheet1のA = Sheet2のA
かつ
Sheet1のB = Sheet2のB
であるような行を知りたいのですが、

どうすればよいのでしょうか。

Aベストアンサー

Sheet1、Sheet2 ともに空いている列に =A1&B1 のような連結データを作り、Matchなどで比較するとか、、、

Sheet1 の E1 =A1&B1
Sheet2 の E1 =A1&B1
Sheet1 の F1 =MATCH(E1,Sheet2!E:E,0)

Qエクセル2007でプルダウンで選んだものに反応

Excel2007でプルダウンで選んだものに反応して隣のセルが自動入力される方法(エクセル2007)
A1をプルダウンで「猫」「犬」から選べるようにし、「猫」を選んだ場合B1に自動に「111」が、「犬」を選んだ場合B1に自動に「222」と入力されるようにしたいです。
ご教授の程、宜しくお願いします。

Aベストアンサー

VLOOKUP関数での方法です。
(1)別シートに入力文字列と対応コード表を作成。(仮にSheet2のA:B列範囲で順不同)
(2)B1に=IF(COUNTIF(Sheet2!A:A,A1),VLOOKUP(A1,Sheet2!A:B,2FALSE),"")を設定
   入力文字列が存在しない場合は空白としています。

QEXCEL_VBA 縦方向のデータを横方向に更新について

EXCELの作業(VBA処理)で困っています。

このサイトでご教授いただけたらと思い投稿しました。

縦方向に入った値を No.を基準として横方向にコピーする作業です。

「No.」ごとに読み込んで 行列貼り付けするという処理ですが
”同一No.”を感知して 列方向に貼り付けが動作がどうにも思いつきません

システムの方に質問したらEXCELのVBAで容易に出来るということです。

データが大量のため手動で行き詰ってしまいました。
なにとぞよろしくお願いいたします。


※更新例は(1)の状態を(2)にするです。

(1)現在の状態
No.とそれに対応する値が入っています

No. │値
───────
1  │300
1  │4,000
1  │1
2  │2
3  │1,000
3  │15,000
4  │200
4  │450
5  │165,000
6  │0
6  │10
7  │150,000


(2)更新後の状態
No.をキーとし 同一No.の値を列方向に 貼り付け更新

No. │値1   │値 2  │値3  │
───────────────────
1  │ 300│ 4,000│ 1│
2  │ 2│ │ │
3  │ 1,000│ 15,000│ │
4  │ 200│ 450│ │
5  │ 165,000│ │ │
6  │ 0│ 10│ │
7  │ 150,000│ │ │

EXCELの作業(VBA処理)で困っています。

このサイトでご教授いただけたらと思い投稿しました。

縦方向に入った値を No.を基準として横方向にコピーする作業です。

「No.」ごとに読み込んで 行列貼り付けするという処理ですが
”同一No.”を感知して 列方向に貼り付けが動作がどうにも思いつきません

システムの方に質問したらEXCELのVBAで容易に出来るということです。

データが大量のため手動で行き詰ってしまいました。
なにとぞよろしくお願いいたします。


※更新例は(1)の状態を(2)に...続きを読む

Aベストアンサー

ピボットテーブルがシンプルかもしれませんね
A列挿入して =COUNTIF(B$2:B2,B2) 下フィル
範囲指定して、「データ」「ピボットテーブル」でウィザードに従って
ピボットテーブル(右クリックして表示)のフィールドの設定で合計を選択


人気Q&Aランキング

おすすめ情報