エクセルであるセルに入力したものだけを別のシートに溜める事は可能でしょうか？

質問

エクセルであるセルに入力したものだけを別のシートに溜める事は可能でしょうか？
例えば
Sheet1　　A列～　　　　　　　　　　　　　　
1行目　　会社名　住所　担当　Tel．．．．応対日　内容
2行目　　中村建設　　　　　　　　　　　
3行目　　中川商会
このSheet１で入力した応対日、内容を

Sheet2　　A列～　　B列　　C列　　D列
1行目　　会社名　応対日　内容
2行目　中村建設　7/16　　．．．　　　　　　　　　　　　　
3行目　中村建設　7/17　　．．．
　↓　 中川商会　7/16　　．．．　　　
　↓ 中川商会　7/17　　．．．
と溜まっていくように作れるのでしょうか？
誰か御存知なかた教えて頂けませんでしょうか？
宜しくお願いいたします。

回答No.6

hallo-2007 · ベストアンサー

No4 No5です。
>(3)ダイレクトにSheet2の既に蓄積されている企業の最下位行に移し変えるか？
sheet2
　　　　　A　　　　B　　　C
1行目　　会社名　応対日　内容
2行目　
3行目　
4行目　　会社名　応対日　内容
－　－　－　－　－　－　－　－←にはウィンドウ枠の固定　しておく
5行目　中村建設　7/16　　．．．　　　　　　　　　　　　　
行目　中村建設　7/17　　．．．

２行目を　入力のために使います。
A2 B2 C21に　会社名　応対日　内容　入れて
Sub Test1()
Range("A65536").End(xlUp).Offset(1, 0).Value = Range("A2").Value
Range("B65536").End(xlUp).Offset(1, 0).Value = Range("B2").Value
Range("C65536").End(xlUp).Offset(1, 0).Value = Range("C2").Value
End Sub
を実行してみてください。

お礼

ありがとうございます。
上手くいきました。
明日から仕事に役立てたいと思います。
ホントにありがとうございました。

回答No.5

hallo-2007

たまたま　今日の質問に回答載せてしまいましたが。
>Sheet1をフィルター等かけて、数百件中から対応先を探し出し
別の新しいブックで以下試してみてください。入力規則の実験です。
Sheet1に　今のシートをコピイして　
Sheet1　　A列～　　　　　　　　　　　　　　
1行目　　会社名　フリガナ　　住所　担当　Tel．．．．応対日　内容
2行目　　中村建設　　　　　　　　　　　
3行目　　相田商会
　フリガナの列を入れる
　　　　　あ　　　ア
　　　　　い　　　イ
・・・
　　　　　を　　　ヲ
と会社名とフリガナの下に一文字を入れていく
フリガナで並び替えを行うと
1行目　　会社名　フリガナ　　住所　担当　Tel．．．．応対日　内容
2行目　　あ　　　　ア　　　　　　　　　　
3行目　　相田商会　アイダ
・・・
?行目　　な　　　　ナ
?行目　　中村建設　ナカムラ
・・・
と並び替えになります。
この1列目の選択して　「挿入」「名前」「定義」で会社名　とでも定義します。
Sheet2
1行目　　会社名　応対日　内容
2行目 *****
A2セルを選択して　「データ」「入力規則」で　入力値の種類　で　リストを選択
元の値に　=会社名　といれてOK
A2セルに　な　といれて　セル右の▽を押すと　な　で始まる会社名のリストが出てきます。

応用で日付も入力規則で選択　内容を　キーで文字入力　後はマクロで
そのシートの最終の行に追加する

>マクロでSheet1アクティブセルをコピーし、Sheet2でCTRL+Fで検索ダイアログに貼り付け、検索するマクロ
では　ヒットした行の書き換わるだけで
溜まっていく　事にはならないと思います。

お礼

丁寧にありがとうございます。
上手くいきました。
明日から仕事に役立てたいと思います。
ホントにありがとうございました。

回答No.4

hallo-2007

>このSheet１で入力した応対日、内容
登録のマクロのボタンが出来たからといっても
Sheet1で会社名を上下キーで移動しながら探して右へ移動し
日付と内容を手入力するのが大変面倒ではないでしょうか。

Sheet2の各列に入力規則を設定して
最終の行に追加していく方が作業は楽だと思います。

必要であれは、Sheet1に最終の対応日と内容を関数で表示できます。

お礼

ありがとうございました。

補足

ありがとうございます。あまりＰＣ詳しくありません。
現状、Sheet1をフィルター等かけて、数百件中から対応先を探し出し、最右セルに応対日、内容を入力しています。この作業は省略できないように思っています。
むしろ、マクロでSheet1アクティブセルをコピーし、Sheet2で
CTRL+Fで検索ダイアログに貼り付け、検索するマクロを作ってみましたが、マクロ実行２回目から上手くいきません。これはモジュールで検索ダイアログで貼り付けるところで””に変えても駄目でしたが？どうするか御存知でしたら教えて頂けませんでしょうか？
宜しくお願いいたします。

回答No.3

imogasi

こんなことどうして質問になるのかな。何が聞きたいのか。
ーー
あるいは、Sheet1の
2行目　　中村建設　　　　　　　　　　　
3行目　　中川商会
の部分は毎回消してしまう（上書き的）のか。
それならそれを質問で力説しないと。
VBAを使わないと無理だろう。VBAの経験ありますか。
ーー
式ばっかりになるが
Sheet2に（見出しはコピー貼り付けするとして）
A2 に＝Sheet1!A2
B2　にはCTRL+；　
C2に　=Sheet1!F2(応対日の列）
D2に　=Sheet1!G2(内容の列）
を入れて
以上を下方向に式を複写。
＝＝＝＝
これで不満な点、間違い点はどこですか？
ーー
B2の本日の日付は
（１）上記のように日付を人手で入れるか
（２）VBAで日付を入れるか
しないとだめだ。TODAY()関数では操作日に変わるから。

お礼

ありがとうございました。

補足

ありがとうございます。あまりＰＣ詳しくありません。
ＶＢＡはマクロのことでしょうか？ほんの少しだけ知っています。
Sheet1　　A列～　　　　　　　　　　　　　　
1行目　　会社名　住所　担当　Tel．．．．応対日　内容
2行目　　中村建設　　　　　　　　　　　
3行目　　中川商会
　↓　　
は数百件ありまして。どの企業がその日の応対情報を入力するか解りません。
(1)それを一旦、Sheet2の２行目に移し、最終下位の行に蓄積していくか？
(2)最初からSheet2の最下位行に移し変えるか？
(3)ダイレクトにSheet2の既に蓄積されている企業の最下位行に移し変えるか？
出来れば(3)希望なのですが？

回答No.2

kigoshi

以下３点補足願います。

１）ＶＢＡは使用してもいいですか？
２）Sheet1の「対応日」と「内容」の列名は何ですか？（Ｆ列、Ｈ列などとお答え下さい）
３）Sheet1の「対応日」とSheet2の「対応日」関係をご説明下さい。
　　たとえば、Sheet1は毎日全体がクリアされるということですか？
　　それとも、Sheet1は会社名が同じ会社名がひとつずつしか無く、Sheet1の
　　対応日は対応した最終日付にその都度書き換える、ということでしょうか？

お礼

ありがとうございました。

補足

ありがとうございます。
１）ＶＢＡマクロを使用すると言う事でしょうか？
２）Sheet1の「対応日」ＡＫと「内容」ＡＬです。
３）Sheet1の「対応日」とSheet2の「対応日」関係は、
Sheet1は毎日全体がクリアされせん。
Sheet1は会社名が１行目から下に数百件あります。
Sheet1の対応日は対応した最終日付にその都度書き換える、ということです？
日報のような感覚で、Sheet1は企業の詳細情報Sheet２は対応履歴にしたいのです。
あまりＰＣ詳しくありません。回答になりましたでしょうか？

回答No.1

NYAx2

Sheet1での入力は最新日のみと認識しましたが、よろしかったですか？
つまり、「中村建設」との応対情報が、Sheet1では、7/16の応対情報を消して、7/17のみ入力表示されているが、7/16に応対した情報はSheet2に溜め込んで、会社名と応対日をキーにして、ソート結果を格納しておく。
もし、認識に誤りが無いのであれば、Excel VBAでマクロコーディングするしかなさそうです。詳しい方に作成してもらうよう、相談すれば１日くらいで作成してもらえるのでは、と思います。ここにはコーディングを記述できるほどの余地が無いので、記述できませんでした。

お礼

ありがとうございました。
参考にさせていただきます。