質問: エクセルのマクロについて質問です。 データが5000行あります。 すべての行にマクロのボタンを設置したいです。
回答: 一行目のボタン「シート1のA1をコピーし、シート2のA1にペーストする」 二行目のボタン「シート1のA2をコピーし、シート2のA2にペーストする」 三行目のボタン「シート1のA3をコピーし、シート2のA3にペーストする」 ・ ・ の間違いでは? すべてシート2のA1セルにコピペするならコードは少し違いますが 標準モジュールに Sub 登録() Dim r As Range Set r = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(, -1) r.Copy Sheets("シート2").Range(r.Address) End Sub としておきます。 B1セルにフォームコントロールのボタンを描画します。 「登録」をマクロ登録します。 名前ボックスに B1:B5000 とタイプしてエンターキーを押します。 Ctrl+D を叩きます。 これで完了です。5分もあればできることです。 ただ、5000個のオブジェクトはブックが重くなるかも、