エクセルのマクロについての質問です。

質問

エクセルのマクロについての質問です。

複数のシートのデータを一つのシートにまとめるマクロを使用しています。
以下のものになります。

Sub まとめ()
Dim i As Long, ii As Long
ii = 1
With Worksheets
.Add before:=.Item(1)
For i = 2 To .Count
.Item(i).Range("BX6:CQ15").Copy .Item(1).Cells(ii, "A")
.Item(i).Range("C59:U68").Copy
.Item(1).Cells(ii, "U").PasteSpecial Paste:=xlPasteValues
ii = ii + 10
Next i
End With

Application.CutCopyMode = False
Range("1:1").Insert

Sheets(2).Range("BX5:CQ5").Copy Sheets(1).Range("A1")
Sheets(2).Range("C58:U58").Copy Sheets(1).Range("U1")

Columns("B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Sheets(1).Columns("C:D").Delete
Sheets(1).Columns("F:G").Delete
Sheets(1).Columns("G:O").Delete

End Sub

このマクロを使用してまとめたシートの数値の部分（各シートのC59:U68のデータを貼り付けた部分、まとめたシートのH2のセルが起点です）を変更するとコピー元（各シートのC59:U68）の数値も同じように変わるというものを作りたいです。

いろいろと調べましたが手も足も出ませんでした。
ご教示いただけないでしょうか？
宜しくお願いいたします。

回答No.1

WindFaller · ベストアンサー

こんにちは。

>このマクロを使用してまとめたシートの数値の部分……（中略)……を変更するとコピー元……の数値も同じように変わるというものを作りたいです。

できそうな気はするのですが、なんとなく釈然としない部分も残ります。
ご自身は、まだ、マクロの実力は初級レベルだと思います。ご自身が後先考えないで作り上げてしまった後で、その先は、こうしたいけれども、どうしたらよいか振れられても、こちらが、最初から作るならともかく、付け足しでは格好が付かないのです。掲示しているマクロは、あまり意味をなしません。

>いろいろと調べましたが手も足も出ませんでした。
手も足も出ないのではなく、そういうのはなかった、ということではありませんか？

イベント(Worksheet_Change)か、元データの各々の範囲を、名前登録しておいて、位置関係を明確にして処理するということは想像つきますが、コピー先のデータから、元データを変更するのは、かなり特異な常識的ではない考え方だなって思います。

それから、
> Sheets(1).Columns("C:D").Delete
> Sheets(1).Columns("F:G").Delete
> Sheets(1).Columns("G:O").Delete

これは、本来は、列を非表示程度にすればよいのですが、削除してしまっていますから、元のデータからの位置関係を壊すことになるだろうな、と感じました。

今のところ、私がみた雑感程度にしかコメントできません。お役に立てなくてすみません。