- ベストアンサー
【Excel2003】コピーするマクロ
【Excel2003】コピーするマクロ Excelファイルで以下のようなデータがあります。 A B 1 佐藤雄一 2 男 3 (空白行) 4 山本優子 5 女 6 (空白行) 7 ・・・ 8 ・・・ 9 (空白行) 上記のようなデータを下記のように変更したいです。 マクロ等を使用し、楽に修正するやり方を教えて下さい。 マクロを使用しなくても楽に修正する方法があればそれでも良いです。 分量が膨大なのでよろしくお願いします。 A B 1 佐藤雄一 男 2 山本優子 女 3 ・・・ ・・・
- riridew
- お礼率1% (8/488)
- その他MS Office製品
- 回答数1
- ありがとう数2
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
マクロの一例です。 標準モジュールに書いてください。 オリジナルのデータは必ずコピーをとってから試してくださいね。 配置はお書きのとおり、1行目から始まっていることが前提です。 Sub test01() Dim x As Long, i As Long '変数宣言 With ActiveSheet x = .Cells(Rows.Count, "A").End(xlUp).Row '最終行取得 For i = 1 To x Step 3 '1行目から最終行まで、3行おきに .Cells(i, "B") = Cells(i + 1, "A") '転記 .Cells(i + 1, "A").ClearContents 'クリア Next i '繰り返し .Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '空白行削除 End With End Sub
関連するQ&A
- エクセルで、毎回違う行数をコピーするマクロ
こんにちは Excel2003 を使用しています。 マクロを使って毎回行数が違うデータをコピー貼り付けをしたいのですが よく分かりません。コピー先の最終行そろえのコピーの方法もお願いします。 毎回データ行数が違う2つの表を、新しい表の上の部分と下の部分に分けてコピーしたいのです。 コピー元1 0~20行 コピー元2 0~20行 1と2の合計は、0~20行です。多くても20行まで。 コピー元1を1行目から、コピー元2の最下行を20行目に揃えて、 貼り付け先の表には、上部と下部の間に空白行が入っOKです。 (例) コピー元1 コピー元2 X Y Z AA AB AC 1鈴木 千葉 男 1山本 大阪 男 2田中 東京 女 2高橋 京都 女 3 3 ↓↓ 貼り付け先 A B C 1鈴木 千葉 男 2田中 東京 女 3 ・ ・ 18 19山本 大阪 男 20高橋 京都 女 のように上部と下部に分けてコピーしたいのです。 行数は毎回ちがい、合わせて20行の場合は、空白行はなくなります。 説明が、つたなく申し訳ありませんが よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excelのマクロで質問します
A列には氏名が入っています。 B列には性別が入っています。(例えば男なら○印,女なら空白) そこで,B列に○があれば男の列(C列)に,空白なら女の列(D列)に それぞれ上から(1行目から)氏名を入力していくようにしたいです。 (つまり,C1は男の1番,C2は男の2番・・・・・,D1は女の1番,D2は女の2番・・・という感じです。) このようなマクロについて,どなたか教えてください。 ちなみに1000行ぐらいまでデータがあるとします。
- ベストアンサー
- その他MS Office製品
- Excel2000のマクロで
Excel2000のマクロで B1 AAA B2 B3 BBB B4 B5 CCC B6 B1~最後の行までで データがいくつ入ってるか知りたいのですが分かりません。 このときデータは3つ だから3を取りたいです。 それから A1に1 A3に2 A5に3 B列にデータが入ってる行に1から順に 数字を入れるにはどうしたらいいですか? 教えてください。よろしくお願いします。
- ベストアンサー
- Visual Basic
- EXCEL2003でマクロを作りたいのですが教えて下さい。
エクセル2003を使っています。 マクロの初心者なので、 下記のようなマクロの作り方を詳しく教えて下さい。 他にも簡単な方法があればお願いします。 <シート1> <シート2> A B C D A B C D 1 名前 郵便番号 住所 金額 1 名前 2 以下、データ 2 郵便番号 3 3 住所 ・ ・ 10 10 金額 <シート1>にはA1~D1までデータがあります。(50行) <シート2>の1ページ目に<シート1>の1行目のデータを入れたいです。 <シート1>は全部で50行のデータがあり、 <シート2>は1~10行までを1ページとし、50ページ作りたいです。 いろいろ調べてみたのですが、わからなかったので 説明不足かもしれませんが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロのつくり方がわかりません。
以下はEXCELです。 A1のabcを同ブロックの13-07-31の 下(A5)にコピーするマクロをつくりたいのですが。 A7はA9にしたい。 -------A--------B 1-----abc------123 2---13-07-01--(空白)- 3----(空白)----456 4---13-07-31--(空白)- 5----(空白)---789 6-------空白行------- 7-----abc------123 8---13-07-31--(空白)- 9---(空白)---789 10-------空白行------- 以下続きます。
- ベストアンサー
- オフィス系ソフト
- 【Excel】マクロを使用した重複チェックについて
教えて下さい! 以下のような表があります。 月|日|A担当|コード|サブ|コード|B担当|コード 5 1 田中 1 佐藤 5 鈴木 3 5 2 佐藤 5 鈴木 3 田中 1 5 3 鈴木 3 田中 1 佐藤 5 5 4 佐藤 5 鈴木 3 田中 1 行ごとにかぶっている人がいると”■行の○○さんが重複しています”といったようなメッセージが表示されるようにしたいのです。 行は30行ほどあります。 一つフォームのボタンを作り、それをクリックすることにより重複チェックのマクロが流れるようにするにはどうしたらいいのでしょうか?
- ベストアンサー
- オフィス系ソフト
- 空白を埋めるマクロについて
マクロで教えて下さい! A B C D ...... 数量 名前 種類 購入者 .... 1 2 あ A 2 く 3 5 DD 4 まま 5 さ 6 ぱぱ と右は何十項目・下は何千行と項目が続くデータがあります。 この空白に上の文字をコピーし埋めて行くマクロを作成するにはどうしたら良いでしょうか? ただし以下の条件があります。 (1)D列の様に1行目が空白のセルは4行目の様に文字が入っている所までは空白のまま (2)A列はそのファイルにより何行目までデータが入っているかは不明 A B C D 数量 名前 種類 購入者 1 2 あ A 2 2 く A 3 5 く DD 4 5 く DD まま 5 5 さ DD まま 6 5 さ DD ぱぱ 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- EXCEL2007マクロ/オートフィルについて
VBA初心者です。 EXCEL2007でオートフィルのマクロを作ったのですが、下記のケースで困っています。 A列のデータが入っている行までB列のデータをオートフィルで入力したく、 A列の最終行からデータが入っている行までを求めてB列のデータをオートフィルで入れるため、下記のマクロを設定しました。 Sub test() Range("B1").AutoFill Destination:=Range("B1", Range("A1048576").End(xlUp).Offset(, 1)) End Sub ところが、A列のデータが2行以上ある場合はうまくいくのですが、一行のみだった場合オートフィルができなくてマクロがとまってしまいます。 一行なので当然なのですが、このような処理をしたい場合、他に方法はないものでしょうか? お知恵を拝借できますと大変助かります。 どうぞよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- 【Excel365】マクロを削除するマクロ
特定のシート(仮にAとします)に添付画像のマクロ(別のマクロを実行するマクロ)を組み込んであります。 シートAをコピーしてシートBを作成し、値コピー・行削除などいろいろ編集した後にxlsxとして保存するという作業をしています。 しかし、シートBにも画像のマクロが組み込まれたままなので、1行目を削除するとマクロ「更新」が実行されてしまいます。 シートをコピーした後、画像のマクロを削除する方法はありませんか? 各Q&Aサイトをググるといろいろ出てきますが、理解できませんでした。 もしくは、シートAとそっくりなシート(ページレイアウトや書式もそのままでデータのみ値コピー)を作成するマクロの提示でも構いません。
- ベストアンサー
- Excel(エクセル)
- エクセルで連番をマクロで
こんにちは いつもお世話になっています。 Windows7、エクセル2010で教えてください。 B3から仮にB100まで文字列があるとします、空白セルはありません。 この状態でA3からA100まで1から始まる連番をマクロで実行したいのです。 実際はB列のデータの最終行は不定です。つまり、B列にデータがなくなるまで(空白セルになるまで)A列に連番をつけたいのです。現在はA3,A4に1,2と入力し、オートフィルで該当セルを選択し「予測」で連番をつけています。 マクロ記録ではB列にデータがなくなる判断ができなくて作れません。 この作業が頻繁にあるものですからマクロができれば助かります。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト