- ベストアンサー
エクセル マクロ
mar00の回答
- mar00
- ベストアンサー率36% (158/430)
マクロでもいいのですが、エリアの数が少ないのであれば オートフィルタをかけてエリアで抽出して(例えば東北) Ctrl+Gキー→セル選択→可視セルにチェックを入れてOK 選択された範囲をコピーして新規ブックに貼り付ければいいのではないでしょうか。
関連するQ&A
- Excelマクロのコンボボックスに関して
マクロを初めて扱います。 どなたか詳しい方、ご教授ください。 Excelのシート上にActiveXのコンボボックスを作成しました。 このコンボボックスに同じブックの別シートのＡ列のX行目からY行目までを格納したいと考えております。 どうかコードの書き方をお教えいただけませんでしょうか？
- ベストアンサー
- その他MS Office製品
- エクセルのマクロで悩んでます
はじめて投稿いたします。 現在、エクセル2000でマクロを組んでいるのですが、何日も悩んでそこから動けないので質問させていただきます。 やりたいことは、 (1)検索フォームの入力テキストに記載した数値を読んで検索ボタンを押すと、 (2)データブック.xls内の完全に一致した数値のセルの行をアクティブにして (3)その行のＡ列からＯ列の値をコピーして (4)入力ブック.xlsの入力シートのB4:B18に数値だけ貼り付け したいと考えています。 検索フォームは入力ブック.xls内で作成しています。 今のところ、(3)でＡ列の値を読んで、(4)でＢ４セルに貼りつけということはできているのですが、複数になるとできていません。 根気よく、同じプログラムを書くのが良いのでしょうか？ かなり面倒なので、もっと簡単にかける方法があれば教えてください。
- 締切済み
- Windows XP
- こんな関数ありますでしょうか？
こんな関数ありますでしょうか？ 日頃お世話になっております。 Excel2000で、指定した検索条件に一致する隣のセルの 個数を取り出したいのですが、出来ますでしょうか？ 「例」 Ａ列 Ｂ列 1 みかん 東北 2 りんご 東北 3 りんご 関東 4 いちご 関西 5 りんご 九州 6 みかん 九州 7 いちご 四国 8 みかん 関東 上記データーより、Ａ列の「みかん」を検索条件として Ｂ列より「東北」＝1 「九州」＝1 「関東」＝1 というデーターを、取り出したいのですが。。。 ご教示お願い致します。 m(__)m
- ベストアンサー
- オフィス系ソフト
- エクセルマクロで空欄と空欄の間のデータを取得する
添付画像のようなデータが並んだエクセルシートがあります。（ブックＡ） ブックＡsheet1のＡ列に数値が入っている行のＢ列～Ｄ列のデータを別のブックＢから取得したいのです。 ブックＢにsheet1～sheet20まであります。 ブックＡsheet1のＡ列に数値が入っている行のＢ列～Ｄ列のデータを１セットとして、ブックＢのsheet1のＢ１にコピーする。 次のグループをブックＢのsheet２のＢ１にコピーする、 また次のグループをブックＢのsheet３のＢ１にコピーする。 ブックＢには書式設定してあるので、値のみコピーします。 ブックＡのＢ列～Ｄ列の数値の配置はそのままでコピーします。 この作業をブックＢからマクロで行う方法を教えて下さい。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロについての質問お願いいたします。
エクセルのマクロについての質問お願いいたします。 コピーについてお願いいたします。 Ａ列に文字（文章）が１行目から１５０行ぐらいや２０００行ぐらいなど文字があります。この行の間には空白の行もあります。 Range("A1:A2000").Copyこちらですと最終行の以下の空白行もコピーするので困っております。 例えば、文字が１０００行までで終わっていたら、１０００行までコピーする方法をどうぞご教授ください。
- ベストアンサー
- オフィス系ソフト
- コピーするExcelマクロを作りたいです（２）
「コピー元」ブックから「コピー先」ブックにコピー＆ペーストを 行うマクロを作りたいのですが、列の計算が複雑で困っています。 Excelブックのキャプチャ画像を加えて再投稿します。 画像ではシートになっていますが、画面左のシートのような表から 右のシートの当てはまるセルにデータを写すようにお考えください。 「コピー元」ブックは月に一度ダウンロードするデータで、ピボット テーブルです。一月ごとに、前月の列が各営業所ごとに増えていき ます。行には、商品ごとの売上げが入力されています。 また、各営業所ごとに、年度合計列があります。（営業所の数は１０ 前後、商品の行は50以上はあります。） 「コピー先」ブックは、あらかじめ年度末までの行列セル、合計列が 用意されていて、「コピー元」ブックからデータを移動してくるのみ でレポートとして毎月提出する体裁です。 単純にコピーするだけならばよいのですが、毎月各営業所一列ずつ 増えていくというのが式にして表せません・・・また、できる限り 数値の変更を最低限にして、毎年度利用できるマクロにするという 希望もあります。 ご面倒かと思いますが、お力を貸してください。
- ベストアンサー
- その他MS Office製品
- エクセルのマクロの繰り返し
よろしくお願いします。 「Ａ1からＡ5までの数値を数字の大きい順に並び替えして、 そのＡ1からＡ5のデーターをＣ1からＣ5にコピーする。 次にＢ列に1列挿入する。」 ここまではエクセルのマクロ機能で出来ましたが それを100回くり返すコードというか、 コードの書き方、仕方がわかりません。 このばあいどのようなコードでしょうか
- 締切済み
- Visual Basic
- エクセルで変化する行数に対応してコピーするマクロ
エクセルワークブックAを検索して見つかった範囲をワークブックBのシートとセルを指定して転記するマクロ。 このようなマクロコードを教えてください。 ブックAのシート１に以下のような配置で文字と数値が入っています。 A列 B列 C列 D列 E列 あいう えお 10 aa かかか 123 20 ss ききき 456 くくく 8910 けけけ 234 こここ 5678 さささ 9123 -------------スペース-------------------------------- かきく けこ 10 aa かかか 123 20 ss ききき 456 30 dd くくく 8910 けけけ 234 こここ 5678 -------------スペース-------------------------------- さしす せそ 10 aa かかか 123 20 ss ききき 456 くくく 8910 けけけ 234 -------------スペース-------------------------------- 上記の様にスペースとスペースの間を１グループとしてコピーしたいのですが、行数が変化します。 また列によって入力されてる行数も違います。 ブックBから操作するマクロでブックAのシート１の”あいう”という文字列を含んだセルを検索して、 次のスペースまでの１グループをコピーしてブックBのシート１のA1に貼り付ける。 （あいう えお～9123まで） 続いてブックAのシート１の”かきく”という文字列を含んだセルを検索して、 次のスペースまでの１グループをコピーしてブックBのシート２のA1に貼り付ける。 （かきく けこ～5678まで） ブックAのシート１の”さしす”という文字列を含んだセルを検索して、 次のスペースまでの１グループをコピーしてブックBのシート３のA1に貼り付ける。 （さしす せそ～234まで） *ブックAのファイル名は固定ですが、ブックBは毎回違います。 マクロの実行はブックBから行います。 この様な条件でのマクロを教えてください。 行数変化に対応している部分に但し書きを付けて頂けると応用が利きますので有難いです。
- ベストアンサー
- オフィス系ソフト
- エクセル：マクロの起動条件
お世話になります。 以下の条件でのマクロを起動する方法、及びそのマクロを教えてください。 《条件》 ブックを開いた時、あるシートのＣ列でデータが入っている最下行の行番号とＡ列のデータが入って最下行の行番号の差が１００以下だった場合、マクロを実行する。 （なおＣ列の行番号の方が必ず大きいです） ちなみに実行したいマクロは１～６の手順です。 １．ブックを開いたとき ２．「入力用」という名前のシートのＣ列でデータが入っている最下行の行番号とＡ列のデータが入っている最下行の行番号の差が１００以下だった場合 ３．「入力用」というシートにかかっているシートの保護をはずし ４．データが入っているＣ列の最下行のＡ～Ｚ列を選択して、５０行分 下にコピーする。 （例えば、Ｃ列の最下行が３５０行の場合、Ａ３５０～Ｚ３５０まで を選択したあと４００行まで下にコピーする。） ５．再度シートの保護をかけ ６．Ａ列でデータが入っている最下行の１つ下のセルを選択する ちなみに、２の条件に当てはまらないときはマクロを実行しません。 またＣ列の最下行よりＡ列の最下行が大きい数字になることはないはずですが、もし同じかＡ列の方が大きい場合、「エラー：Ｃ列よりＡ列が大きくなっています」と画面に表示させたい。 なお、行番号の差：１００、選択するＡ～Ｚ行、５０行分下にコピー は変わる可能性があるので、修正する場合どの部分を修正すればよいかも教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 至急お願いします。エクセルのマクロに関してです。
かなり至急です＞＜エクセル2010のマクロの質問です。 2つ質問があります。 1つ目です。 以下の一連の作業を1つのマクロで行いたいのですが、どうしたらいいでしょうか？ 現在は、シート1にデータがあります。 (1)選択した3列を、B~D列に移動する (2)B列に含まれるセルのうち、0（空白）でないセル数分だけシートを追加する。 (たとえば、シート1のB14~B18に数字がはいっていたら、シートを5枚追加するという感じです。) (3)B列に含まれるセルのうち、0（空白）でないセル数分に対し、2行ずつ各シートの3・4行目にコピーする。 (たとえば、シート1のB14~B18に数字がはいっていたら、シート2の3・4行にシート1の14・15行のコピーを貼り付け、シート3の3・4行にシート1の15・16行のコピーを貼り付け、シート4の3・4行にシート1の16・17行のコピーの貼り付ける・・・という感じです。) 現在は (1)Sub () Selection.Cut ActiveCell.Columns("A:C").EntireColumn.Select Selection.Cut Columns("B:B").EntireColumn.Select Selection.Insert Shift:=xlToRight End Sub (2) Sub Macro() Dim n As Long For n = 14 To 18 ' Sheets.Add Next End Sub (3) Sub Macro() Dim n As Long For n = 14 To 18 ' Sheets("Sheet1").Rows(n & ":" & n + 1).Copy _ Sheets("Sheet" & n - 252).Range("A3") Next End Sub と別々のマクロに分けてます。 また(2)(3)でみられる For n = 14 To 18 ' の部分の数字は手動でいれてますが、かなり時間をくってしまうので・・・。 2つ目です。 複数ブックに同じ動作をするエクセルのマクロが知りたいです。 現在100ほどブック(Book1~100)を開いていて、100のブックすべてのSheet1のA1のセルに「１」と入れたいのですが、 そのようなマクロはどうくんだらよろしいでしょうか。 ちなみにExcel2007です。 困っているので、お願いします。
- 締切済み
- その他MS Office製品
補足
マクロを実行で、エリアの数分のbookが出来上がる方が良いので、マクロのコードの書き方を教えて下さい。