ある文字を含んだ行を、別列の別行に移動したい

Question

###前提・実現したいこと
エクセルで見積りのデータベースをつくり、サイズ・印刷・素材別にコストを比較計算したいと考えています。

###発生している問題
データベースの表は、図のようにエクセルに取り込んでまとめましたが、
一つの列に、サイズや印刷方法などの内訳が混ざってしまいました。
そこで、関数か何かを使って、一行にまとめなおしたい（図の59行目、60行目みたいになるように）です。

###試したこと
見出しに該当する文字を含むセルを、ひとつひとつコピーペーストして、整えなおしています。
時間がかかってしまい、何か関数とか使ってよい方法があればアドバイスいただければ幸いです。

試したこと追記
下記マクロを書いて実行したところ、 Range(Size).Selectのところでエラーが出てしまいました。どのように直してよいかわかりません。

Sub サイズをサイズ列に移動()
'
' サイズをサイズ列に移動 Macro
'

'
Set Size = Columns(1).Find(What:="サイズ", LookIn:=xlValues, Lookat:=xlWhole)
Range(Size).Select
Selection.Copy
Range(Cells(Size).Offset(, 1)).Select
ActiveSheet.Paste
End Sub

###補足情報(言語/FW/ツール等のバージョンなど)
Excel2016を使っています。

どうぞよろしくお願いいたします。

Answer 1

解決依頼内容ですが、規則性が難解であるため、結局手作業が一番良い方法ではと考えます。

失礼になるかもしれませんが、画像を密限り、典型的な残念Excelと感じました。
Excel (Excel VBA)の前に、データとは何か？を真剣に考え直して、やり方を見直した方が良いと思います。

Excelは、自由度が高い反面、このように何でも入力できて、結果、集計が出来ない、抽出できない、分析出来ないとの不具合を発生させてしまいます。

ある程度は、綺麗なデータがあるので、入力用のシートがあると推測します。しかし、見積金額のデータ項目に「下記」などを、入力させてはダメです。見積金額は数値データ以外ありえないはずです。
エラーデータを入力させない為に、Excelの入力規則を利用したり、ワークシート関数を利用したり、VBAを駆使したりと、いろいろ工夫があります。

このようなデータベースをExcelだけで管理する場合、データの入力で、例外を絶対に認めないようにプログラムやワークシートを作り込む必要があります。
しかし、そのプログラミング・ワークシートの作成はかなり面倒です。しかし、それを怠ると、このような集計・分析できないExcelが誕生してしまいます。

ま、突き放すのもなんなんで、アドバイスを。
データを見ると、ヘッダ情報と明細情報があるように見えます。見積もり書に番号を採番する工夫をして、データベースには、ヘッダ情報を保存するワークシートとその明細を保存するワークシートを準備した方がいいと思います。そして、何らかの方法で、ヘッダ情報と明細情報をリンクできるように（集計や分析ができるように）する工夫も必要です。

Comments

[退会済みユーザー]

早速のアドバイスありがとうございました！
データを入れるExcelの使い方も具体的にご指摘いただきありがとうございます！とりあえずテーブルにしているからOKと思って何も注意せず今後も使用するところでした。
ヘッダ情報と明細情報を分けて活用する方法も、教えていただきありがとうございます。
活用できるよう調べたいと思います。
アドバイスありがとうございました！