Excelに自動で行の増減をしたいです。

Excelについて教えていただきたいです。

おそらくマクロかVBAを使用するしかないと思うのですが、

シート1にシート2とシート3の内容を列単位で反映させたい。

しかし、シート2やシート3は今後行が増えたり減ったりする場合がある。

シート2やシート3の行が増減した場合にシート1の行が自動で増減する方法を教えてください。

例を挙げますと下記のようにしたいのです。

シート1
A列 B列 C列 D列 E列 F列 G列
1行目 名前 無関係列 無関係列 発注先 無関係列 無関係列 個数
2行目 あ A社 2
3行目 い B社 5
4行目 う A社 4
5行目 え B社 10
6行目 お C社 25
7行目 か A社 2
8行目 き B社 1
9行目 く D社 7
10行目 け F社 30
11行目 こ C社 25


シート2
A列 B列 C列 D列
1行目 番号 名前 個数 発注先
2行目 1 あ 2 A社
3行目 2 い 5 B社
4行目 3 う 4 A社
5行目 4 え 10 B社
6行目 5 お 25 C社


シート3
A列 B列 C列 D列
1行目 番号 名前 個数 発注先
2行目 1 か 2 A社
3行目 2 き 1 B社
4行目 3 く 7 D社
5行目 4 け 30 F社
6行目 5 こ 25 C社

シート2の行が増えたらシート1の6行目と7行目の間に自動で内容が追加されるようにしたい。
シート2の行が減ったら削除された行がシート1においても自動で削除されるようにしたい。

シート3の行が増えたらシート1の11行目以降に自動で内容が追加されるようにしたい。
シート3の行が減ったら削除された行がシート1においても自動で削除されるようにしたい。


マクロやVBAは使用したこともなく使い方・コードの書き方も全く分かりませんので、教えていただけると幸いです。
特にコードを書いていただけるととても助かります。

よろしくお願い致します。

No.3 ベストアンサー 回答者： kamejiro 回答日時： 2020/02/24 16:46

こんにちは。

シート２とシート３を合算したのが、シート１でしょうか。
番号が連番でしょうか。

どの行を消したかを判断するのは、マクロで、出来るのでしょうか？。
（前置きはここまで）


自動的に行が増えたり減ったりする考え方をやめて
シート２の最新状態とシート３の最新状態をシート１に反映するのはダメでしょうか。


１．シート２やシート３で追加や削除の作業を終えたら…。
　（当然、シート１は自動で変化しないです。）

２．シート１の２行目以下で値のあるセルを全てクリア
　（セルの領域選択とＤＥＬキー）

３．シート２の２行２列目以下（データがある範囲）をコピーし、
　　シート１の２行１列目以下に貼り付け

４．シート３の２行２列目以下（データがある範囲）をコピーし、
　　シート１の空白行１列目以下（シート２の値が貼り付けられた
　　　最終行の次の行）に貼り付け

マクロを使うなら、
シート１、シート２、シート３の各シートの最終行を算出して、
領域選択の範囲を自動で求め、その範囲ごとにコピペすることも
可能ですが…。目で見ながら確認するのもよいかと思います。

この回答へのお礼

ご回答ありがとうございます。
現在、様々な方法を試行錯誤中です。
教えていただいた方法も試してみようと思います。

お礼日時：2020/02/24 16:53

No.4 回答者： Qchan1962 回答日時： 2020/02/25 05:03

おはようございます。

ご質問を閉じないのは、VBA期待してますか？
＞マクロやVBAは使用したこともなく使い方・コードの書き方も全く分かりませんので、教えていただけると幸いです。

残念ながら、
この処理は、簡単そうでなかなかですよ。
知識がなく作ってもらったコードで実行していてもすぐに、対応できないようになりそうですね。（質問を見る限り）
シート1と他のシートの列の順番が変わっていたり、、
既に皆さんのアドバイスがあるので、

///回答部分
VBAは、諦めた（基本的知識を身に付けるまで）方が良いと思います。
ショートカットキーでストレスなく確認しながら出来るのでは、と思います。
///

VBAの事に触れているので、VBAでやる場合のさわりだけ、、多分意味不明

Option Explicit
Dim MAXROW As Variant
Private Sub Workbook_Open()
　　Dim Sh As Worksheet
　　ReDim MAXROW(1 To ThisWorkbook.Worksheets.Count)
　　For Each Sh In ThisWorkbook.Worksheets
　　　　With Sheets(Sh.Index)
　　　　　　MAXROW(Sh.Index) = .Range("A1", .UsedRange).Rows.Count
　　　　End With
・
・
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim NewRow As Long, i As Long, J As Long
Dim key As String
Dim Arr_Row As Variant
　　If Sh.Name = "シート2" Or Sh.Name = "シート3" Then
　　　　NewRow = Sh.Range("A1", Sh.UsedRange).Rows.Count
　　　　If NewRow > MAXROW(Sh.Index) Then '挿入の場合
　　　　　　If Target.Columns.Count = Columns.Count Then
　　　　　　　　Application.EnableEvents = False
　　　　　　　　Arr_Row =
・
　　If NewRow < MAXROW(Sh.Index) Then　　'削除の場合
　　　　　　On Error Resume Next　’1行目を削除時2行目が空白の場合エラー、キーワードがない
　　　　　　If key = Sh.Cells(Target.Row, "B") = "" Then
　　　　　　　　J = -1
　　　　　　Else
　　　　　　　　J = 1
　　　　　　End If
　　　　　　key = Sh.Cells(Target.Row + J, "B") & Sh.Cells(Target.Row + J, "D") & Sh.Cells(Target.Row + J, "C")
　　　　　　If Sh.Cells(Sh.Selection(1).Row, Sh.Columns.Count) <> Sh.Cells(Selection(1).Row, Sh.Columns.Count).Row Then
・

シート1を考えなくてもこんな感じで、、、簡単な処理なら、説明を付け参考コードを書きますが、ちょっと無理がありますよね。

この回答へのお礼

ご回答ありがとうございます。
現在、様々な方法を試行錯誤中です。
VBAがかなり難しいのは承知しているので今回は他の方法でやっていこうと思っています。

お礼日時：2020/02/25 08:52

No.2 回答者： chonami 回答日時： 2020/02/24 16:02

シート1を作って、シート2と3に分ける方が早くないですか？

この回答へのお礼

ご回答ありがとうございます。
現在、様々な方法を試行錯誤中です。
教えていただいた方法も試してみようと思います。

お礼日時：2020/02/24 16:54

No.1 回答者： 銀鱗 回答日時： 2020/02/24 15:44

数式でもできるけど……面倒。

まずは「名前」を重複なく拾い集める。
「名前」に該当するデータを拾って表示する。
…って手順ですね。

これなら Excel よりも Access のほうが得意な分野です。
マクロとか考えなくても、標準の機能で出来ちゃいますよ。
通信教育などもありますので、そういった物を利用して覚えると良いと思います。


・・・余談・・・

ここは「代わりに作ってください」と作業依頼をする場所ではありません。
自身で作れるようにアドバイスをもらえる場所と思ってください。

もしも「作業依頼」が目的であれば、専門の業者に委託することを強く勧めます。
無責任な回答を採用して不具合が生じても自身で手直しすることもできないのでは業務に支障をきたしますよね。
また気づかずに損害が発生してもそれは質問者さん一人の責任になります。（認めた上司の責任もあるけどね）
ならば専門業者に委託して穴のないシステムを構築することの方が望ましいと思いませんか。

この回答へのお礼

ご回答ありがとうございます。
現在、様々な方法を試行錯誤中です。
教えていただいた方法も試してみようと思います。

余談につきましてはその通りですね。
今後勉強していきたいと思います。

お礼日時：2020/02/24 16:54