- ベストアンサー
マクロの作成について
今、マクロを組んでいます。 簡単に言うと、 Ａ１～Ｃ５にある表を、 Ａ６～Ｃ１０にコピーする作業です。 ※ただのコピーならマクロを組む必要がないのですが、 行の高さを変えなければならないので、１つ１つ高さを変えるのが面倒なので、 マクロを組んでいます。 Ａ６～Ｃ１０にコピーするマクロは組めましたが、 次にＡ１１～Ｃ１５に同じ表をコピーするには、 どんな設定をすればいいのでしょうか？？ つまり、同じ表を下に下に新しく作っていきたいのです。 ちなみにエクセル２００７です。
- tive_0324
- お礼率66% (4/6)
- その他MS Office製品
- 回答数4
- ありがとう数9
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
＞記録の仕方を変えてやってみました。 ＞コピーは出来たのですが、行の高さは変える事ができませんでした・・。 ＞記録の仕方が悪かったのでしょうか・・・。 行の高さも含めコピーするには、行ごと選択が必要でした＾＾ 操作としては、１～５行を選択（行全体を選択）してコピーし、６行目を選択して右クリックして「コピーしたセルを挿入」で記憶すればOKです。 ご参考まで。
その他の回答 (3)
- keithin
- ベストアンサー率66% (5278/7940)
＞Ａ１～Ｃ５にある表を、 ＞Ａ６～Ｃ１０にコピーする作業です。 ： ＞次にＡ１１～Ｃ１５に同じ表をコピーするには、 ＞どんな設定をすればいいのでしょうか？？ 次の通りに操作してマクロを録ります。 先にＡ１セルを選択しておく 開発タブで「相対参照で記録」を選んで置いてから，マクロの記録を開始する １：５行を行コピーする Ａ６に貼り付ける 記録終了する。 使い方： Ａ６を選ぶ マクロを実行する。 Ａ１１を選ぶ マクロを実行する。 ： [別の方法] ＞同じ表を下に下に新しく作っていきたいのです。 １：５行を行選択する A5セルの左下にオートフィルポインタが現れるので，マウスカーソルを合わせて＋になったら一気にした向けにオートフィルドラッグする。 (しばしばマクロのご質問なのに，実はマクロなんて使いたくありませんでしたというご相談も多いです）
お礼
ありがとうございます。 マクロ初心者で、もうマクロはこりごり・・・って感じですが、 徐々に分かっていきたいです（笑）
- qualheart
- ベストアンサー率41% (1451/3486)
マクロはVBを直接書いて作ってますか？ それとも作業を記録して作ってますか？ VBの編集ができるようであれば、For～Nextを使って行の指定を変数化すればできます。 VBを編集するのが難しいのであれば、この方法はちょっと難しいですね。 マクロの記録のみで対応する場合は、記録の仕方を変えると良いと思います。 現在はＡ１～Ｃ５を選択して、カーソルをＡ６に移動しペーストしているのだと思いますが、それを Ａ１～Ｃ５を選択してカーソルをＡ６に移動し右クリックして「コピーしたセルを挿入」→「下方向にシフト」で記憶すれば良いと思います。 この場合、コピーしたＡ１～Ｃ５の内容を６行目に常に挿入していく形になるので、繰り返し実行するだけで６行目以降に評を挿入していけます。 ご参考まで。
お礼
上にも書きましたが、無事解決しました！ 本当にありがとうございました！
補足
回答ありがとうございます。 作業を記録して作っています。 記録の仕方を変えてやってみました。 コピーは出来たのですが、行の高さは変える事ができませんでした・・。 記録の仕方が悪かったのでしょうか・・・。
- aokii
- ベストアンサー率23% (5210/22062)
Ｃ１０をＣ１５にすれば良いと思いますが、行の高さを変えるのなら、マクロではなくそのセルの文字サイズを決めて全ての行を選び、ダブルクリックして、行の高さを変えることをお勧めします。
お礼
いろいろ試行錯誤しましたが、無事解決しました。 回答ありがとうございました！
補足
行の高さは決まっているんですよね＾＾； しかも、全部同じ高さならいいのですが、２０の所もあれば、２３だったり、３７だったりするのです・・・。
関連するQ&A
- Excelでのマクロ作成について
次のようなマクロをExcelで作りたいのですが上手くできませんでした。みなさんのお力をお借りしたいと思い質問しました。 ［質問内容］ A B C 1 20030303120000 2 3 20030406120000 4 5 20030512120000 6 7 このようなシートで、セルA1の内容を「03/03/2003」に変更して行2を削除する。（セルの内容ではなく行そのものを削除する。） この作業を繰り返して次のようなシートにする。 A B C 1 03/03/2003 2 04/06/2003 3 05/12/2003 4 5 ひとつのマクロを繰り返し実行するのでも構いませんが、数が多いのでできれば100行程度を一度に実行できれば助かります。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロについて 教えてください。
エクセルのマクロについて 教えてください。 １ ２ … A あ い う え お □ □ □ ※□はスペース B か □ □ □ き く け こ C さ し □ □ す せ そ □ ： 上記、表を下のように並べ替えたいのですが… ※１行目は４つのセルの結合 １ A あ い う え ２ A お □ □ □ ： １ B か □ □ □ ２ B き く け こ ： １ C さ し □ □ ２ C す せ そ □ ：
- ベストアンサー
- その他MS Office製品
- エクセルのマクロで特定の文字があるときだけコピーできるようにしたい
エクセルのマクロで特定の文字があるときだけコピーできるようにしたい エクセルでこういう表があるとします ココカラ 1 * 2 b 15 3 * 4 d 19 5 e 25 6 * 7 g 35 8 * 9 j 46 10 k 54 ココマデ このような表があるとき、マクロを使ってもしB列に「*」以外の文字(この場合アルファベットのb) があるときは左のセル(2)をずっと下のセルにコピー（仮にA50とします）した後、右のセル(15)をB51にコピー、 次は文字が「*」なのでコピーはせずにd列になったら4と19をC50,D51にコピー・・・ という作業をセルに「ココマデ」と書いているところまで繰り返す、というマクロを作りたいのですが、どうすれば いいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- Excel のマクロを作成したい。
Excel で作成した作業計画表（テ－ブル）に下記マクロを作成し実行したいので。 当初計画表には後述のＢ，Ｃ，Ｄは存在していない。 下記マクロにてテ－ブル内に追加したセ－ルＢ＝開始日、Ｃ＝終了日、Ｄ＝作業期間を自動に求めたい。 タイトルとして 第1行目コロンＡ＝作業者名、Ｂ＝開始日、Ｃ＝終了日、Ｄ＝作業期間、Ｅ＝2011年10月31日、 Ｆ＝2011年11月7月、次のコラムから1週間後の日付が設定されている（テストとしてＪまで） Ｊ＝2011年12月5日 第2行Ａコラムには作業者＝田中さん、Ｂ，Ｃ、Ｄを自動で求めたい。 第3行Ａコラムには作業者＝鈴木さん、Ｂ，Ｃ、Ｄを自動で求めたい。 第4行Ａコラムには作業者＝林さん、Ｂ，Ｃ、Ｄを自動で求めたい。 Ｅｘｃｅｌ のテ－ブルでは 第2行Ａ＝田中さん ＥからＦに（当初はB～G）赤色で線を塗り2週間の作業とした。 第3行Ａコラムには作業者＝鈴木さん、ＦからＧに赤色で線を塗り2週間の作業、 第4行Ａコラムには作業者＝林さん、ＨからＪに赤色で線を塗り3週間の作業として計画した。 田中さんの作業開始日は2011年10月31日、終了日2011年11月12日、作業期間は2週間との 結果を求めたい。 下記マクロは Sub test() i = Colum(E) ：Ｅコラムの番号 x = Colum(J) ：Ｊコラムの番号 y = EtActivitecell.Row For c = i To x Step 1 If Adresse(Row(y), Colum(c), 4) = "D" Then Adresse(EtActivitecell.Row, EtActivitecell.Colum) = ADRESS(Colum(c), 1, 4) End If Next End Sub
- 締切済み
- その他(業務ソフトウェア)
- エクセルのマクロについて質問です。
エクセルのマクロについて質問です。 たとえば、 セルA1からＡＡ１までのセルの中で、コピーとペーストを行います。（これは記録マクロで作ります） それと同じ作業を、３行下のA3からAA3の行でも行い、 また、３行下のA6からAA6の行で行う といった作業をマクロで作る方法を 教えていただきたいです。
- 締切済み
- その他(学校)
- エクセルのマクロについて。表の下に付け足すには
同一ワークシート上の同形式の表Ａの一番下に別の表Ｂをそのまま付け足したいのです。 まず、表Ｂをｃｕｒｒｅｎｔｒｅｇｉｏｎ使って選択した後、どうすれば、表Ａの一番下の行の次へコピーすることができますか。ちなみに、表Ａの行数はその都度変わります。ただし、表の一行目の列と行はいつも同じです。 なるべくシンプルなマクロで記述したいのですがどうすればいいでしょうか。 よろしくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- エクセルのマクロの記憶・実行について
マクロの記憶と実行についてですが質問があります。 下記のように、1～3までの行をマクロの実行でコピーといういうか表示していきたいのです。 ３行をコピーして、行の挿入をすれば済む話なのですが、これを使う人が、パソコンを触ったことがないので、 マクロの実行というボタン１つで、何回も下に同じ間隔で表示させたいのです。 お助け下さい。 ●月●日 1 あああ あああ あああ あああ 2 いいい いいい いいい いいい 3 ううう ううう ううう ううう 4 5 これより下に、上記と同じ表をコピーしたい。 ↓ １行あけて同じ表を、マクロの実行でその下に表示させたいのです。 表の内容は、毎日変わります。その日の入力が終わったら、次の日、また、同じ事を繰り返していきます。
- 締切済み
- オフィス系ソフト
- エクセル マクロでの繰り返し処理について
エクセル初心者です。エクセル２０１０を使用しています。 とあるホームページから、ページをコピーして、エクセルに「テキストで貼り付け」をおこない、 A列に8行の項目が入ります。この8行と次の8行の間には、自然に空白行が1行ずつ入ります。 これは、完全に手作業です。 次に、下記の作業を、マクロの自動記録を相対参照で行います。 上記のエクセルのデータを、1つめの8行のデータをコピーして(A１からA8)、C1に「行と列を入れ替え」を選択してC１からJ１に貼り付けます。 その後は、次のデータのまとまりのA10のセルに移ります。これをCtrl+a を押し続けることで、数百件か多いときは４０００件ほどの並べ替えをしています。 「データがある間は、この処理を繰り返す。」 というマクロにしたいのですが、参考書等を見ながらチャレンジしてもうまくいきません。 わかる方、教えていただけますか。 以下が、マクロの自動記録でできた物です。データの個数は数百のこともあれば４０００件のこともあります。 Sub 行列入れ替え8行() ' ' 行列入れ替え8行 Macro ' ' Keyboard Shortcut: Ctrl+a ' ActiveCell.Range("A1:A8").Select Selection.Copy ActiveCell.Offset(0, 2).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True ActiveCell.Offset(9, -2).Range("A1").Select End Sub どうぞ、ご指導よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- （Excel2003）すぐ左の最後の行までコピーするマクロを教えてください
マクロ初心者です。 表記の件に就き、何卒ご教授の程、宜しくお願いします。 ・エクセルで以下のような表があるとします。 ＿＿Ａ＿＿Ｂ＿＿Ｃ＿＿Ｄ→ 1＿数量＿単価＿金額 2＿4,000＿100＿=B3＊C3 3＿5,000＿200＿ 4＿3,000＿120＿ 5＿5,000＿160＿ ↓ ・そしてこのAとB列が毎回下に増えるとして、C2セルの数式を B列の最後の行までコピーするマクロを教えて下さい。 (実際は、C2セルにVLOOK関数が入っており、最終行は何千行まであります) 何卒ご教授の程、宜しくお願い申し上げます。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます！ 無事解決しました！