- ベストアンサー
エクセル マクロの記述をご教示下さい。
Bickyonの回答
- Bickyon
- ベストアンサー率41% (42/101)
単純にするならこうなります。 Workbooks.Open Filename:= "C:\My Documents\B-FILE.xls" Sheets("Sheet1").Select Rows("6:2000").Select Selection.Delete Shift:=xlUp Windows("A-FILE").Activate １行目：Ｂファイルを開く ２行目：削除したいデータがあるシートを選択 ３行目：６～２０００行目を選択 ４行目：選択した行を削除 ５行目：Ａファイルをアクティブにする。
関連するQ&A
- エクセルのマクロ記述について
Ｂ列～Ｉ列に入力されている最終行まで下記処理を行うマクロの記述を教えてください。 整数のみ小数点以下１桁表示にする。（例： 2→2.0） 小数（例：1.32、2.4）の場合は何もしない。
- 締切済み
- Visual Basic
- エクセルのマクロ記述について
Ｊ列、Ｋ列に入力されている行まで下記処理を行うマクロの記述を教えてください。 Ｊ列のセルの文字列がにＳＨＡＰＥの場合、その行のＢ～Ｅ列のセルの色を黄色にする。 Ｋ列のセルの文字列がにＳＨＡＰＥの場合、その行のＦ～Ｉ列のセルの色を黄色にする。
- 締切済み
- Visual Basic
- Excel 2007のマクロ記述について
Excel 2007で、B4セルからＩ最終行までの整数のみを小数点以下１桁にする処理をマクロで実行したいのですが、どのように記述したらよいか教えてください。 最終行とはＩ列にセルの値がある最後の行です。 下記の例のマクロ実行結果は、1→1.0、2→2.0となります。 （例） 列 A B C D E F G H I J K 行4 A1 0.9 0.9 0.9 0.9 1.2 1.2 2 2 CIRCLE CIRCLE 5 A2 1.4 1.4 1.6 1.6 1 1 1.5 1.5 CIRCLE CIRCLE 6 A3 0.71 0.71 0.71 0.71 1 1 1.5 1.5 CIRCLE CIRCLE マクロ実行結果 列 A B C D E F G H I J K 行4 A1 0.9 0.9 0.9 0.9 1.2 1.2 2.0 2.0 CIRCLE CIRCLE 5 A2 1.4 1.4 1.6 1.6 1.0 1.0 1.5 1.5 CIRCLE CIRCLE 6 A3 0.71 0.71 0.71 0.71 1.0 1.0 1.5 1.5 CIRCLE CIRCLE
- 締切済み
- Visual Basic
- エクセルのマクロ記述について
下記の処理をエクセルのマクロで行いたいのですが、どのように記述したよいか教えてください。 4行目から入力されている行まで下記の処理をマクロで行う。 １．J列のセル入力がCIRCLEの行で、B～E列の数値が同じセル間を結合する。 ２．K列のセル入力がCIRCLEの行で、F～I列の数値が同じセル間を結合する。 ３．J列のセル入力がOBLONG_XまたはOBLONG_Yの行で、B,D列及びC,E列の数値が同じ場合、B列をB列の数値ＸC列の数値とし、B～E列のセルを結合する。 ４．K列のセル入力がOBLONG_XまたはOBLONG_Yの行で、F,G列及びH,I列の数値が同じ場合、F列をF列の数値ＸG列の数値とし、F～I列のセルを結合する。 ５．J列のセル入力がOBLONG_XまたはOBLONG_Yの行で、B,D列及びC,E列の数値が同じでない場合、B列をB列の数値ＸC列の数値とし、B,C列のセルを結合する。又、D列をD列の数値ＸE列の数値とし、D,E列のセルを結合する。 ６．K列のセル入力がOBLONG_XまたはOBLONG_Yの行で、F,G列及びH,I列の数値が同じでない場合、F列をF列の数値ＸG列の数値とし、F,G列のセルを結合する。又、H列をH列の数値ＸI列の数値とし、H,I列のセルを結合する。 ７．J列のセル入力がSHAPEの行で、B～E列は何もしない ８．K列のセル入力がSHAPEの行で、F～I列は何もしない
- 締切済み
- Visual Basic
- エクセル２０００マクロ記述について
Ｂ列の２行目から下記のようなデータがあります。（例４件の18桁） AD120000110000000P AD120000110000000P AD120000110000000P AD120000110000000P 頭から７桁目と8桁目の間、12桁目と13桁目の間に半角のスペースを空けたいのですが マクロでの記述はどうすればよいか教えてください。 データの件数はその都度変わります。
- ベストアンサー
- オフィス系ソフト
- 【再】エクセル2013 マクロをご教示ください
Sheet1で選択しているセルの行をSheet2に転写したいです。 Sheet1とSheet2の4行目に見出し。 Shet1にはA～U列までデータがあります。(途中空白セルの場合もあり) Sheet1の5行目以降の、あるセルを選択してマクロを実行すると Sheet1のC～S列までをSheet2のA～Q列へコピペしたいです。 Sheet1は H列に必ずデータがあるので それらを最終行の判断基準とします。 Sheet1での選択セルは複数の場合もあります。 ただし、同じ行のセルを複数選択しても Sheet2への貼り付けは1行とします。 マクロを実行する度に、Sheet1での選択セルの該当行が Sheet2へ追加されるようにしたいです。 (Sheet2へコピペされたデータは残します) また、Sheet2への貼り付け内容が同じだった場合は 注意喚起のため メッセージで 「重複データが存在します」を表示したいです。 重複の判断基準はSheet2の B、D、F列とします。 宜しくお願い致します。
- ベストアンサー
- Excel（エクセル）
- エクセルマクロでご教示ください
エクセルで作られたデータファイルに対し、ある操作を施して上書き保存するというマクロを作りました。 そのマクロを走らせるとファイル名を聞いてきまして、そこでファイル名を入力してやれば、ある操作を施したあと 自動的に上書き保存までしてくれるのですが、対象ファイルが複数個あると、ひとつ実行したあとまたひとつ ファイル名を入れて、またそれが終ったら次のファイル名を・・・というように、ひとつひとつ実行しなければならない というのが現状です。 これを次のように改良したいのですが、どうすればいいのでしょうか？ １．マクロを立ち上げる。 ２．処理する複数のファイルが入っている「フォルダ」を選ぶ。 （一覧表示のウィンドウが出てきて、その中で「フォルダ」を選ぶ） ３．そのフォルダの中に入っているエクセルファイル全てに対し、既に作成済みのマクロを順次実行する。 というものです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロの行削除の記述の仕方
ＡＩ列の６行目からデータが入っています。 ＡＩ列にk000000が入っている行をすべて削除したい。 そのマクロの記述の仕方を教えてください
- ベストアンサー
- その他（プログラミング・開発）
- Excel２０００マクロ記述について
下記の条件で下記のようなマスターを参照してマクロを作成したいのですが、どのように記述したら良いでしょうか シート名 滞留在庫表 条件 ｃ列の５行目からdataが入っています。data例(AD1200S0110000000P)18桁 dataの頭８桁目がBの場合はL221をV列に表示 dataの頭８桁目が、A又はM又Ｐの場合はL222をV列に表示 dataの頭８桁目がB、Ａ、Ｍ、P以外の場合は、ブランクをV列に表示 シート名 表示再設定マスタ Ａ列 Ｂ列 ５行目****************** ６行目*******B********** L221 ７行目*******A********** L222 ８行目*******M********** L222 ９行目*******P********** L222
- ベストアンサー
- オフィス系ソフト
- Excel 空白行を上に詰めるマクロ
関数を使用して、sheet1からsheet2に必要なデータを抜き取りました。 sheet２のセルには関数が入っています。 sheet2の抽出データには１行単位（まれに２～３行続けて）空白が発生します。 この行を削除し、かつ上に詰めて表示をしたいのですが、下記の条件で実行可能でしょうか？ （例） sheet1 ⇒ sheet2 A B C A B C 1 あ い う 1 あ い か 2 か 2 （空白行） 3 き く け 3 き く し 4 こ さ し 4 （空白行） ●２行目、４行目を削除し、且つ５行目以降に入力されている関数は削除したくない ●空白行削除のマクロは自動？（sheet1のデータを変更したら）で実行できるようにしたい よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
Bickyon様 ●御礼 行毎の解説までつけていただき、助かりました。 本当にありがとうございました。 今後とも宜しく御願い申し上げます。 oguno
補足
Bickyon様 早朝の御指導ありがとうございました。 ●質問記載内容 ・BファイルのB列の６行目から２０００行に入力されている、データを 削除する ●御回答内容 ＞３行目：６～２０００行目を選択 → B列のみ（B6:B2000） ＞４行目：選択した行を削除 → B列のデータのみ削除 ●御指導いただきたき内容は → の内容で記載したつもりでしたが・・・。