- ベストアンサー
Excel VBA で行挿入
himajin555の回答
Sub Macro1() Cells.Find(What:="大阪", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _ .Activate Selection.EntireRow.Insert Cells.Find(What:="名古屋", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _ .Activate Selection.EntireRow.Insert End Sub マクロ記録でできたお。
関連するQ&A
- Excelで行の挿入を繰り返し行う
Excel2000を使用しています。 今、データが1万件程あるExcelシートの各行の間に8行ずつ挿入したいのですが、VBAなどを教えてください。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- VBAでの行挿入について
Excel VBAの条件に合った場合、行挿入&挿入した行のセルに特定の値を入力 VBA初心者です。Excel2007、XPを使用しています。 A列からCK列、平均100行程度の顧客データがあります。 このデータは列数は変わりませんが、行数は毎回異なり、 1行1顧客ではなく、同じ顧客で数行で入ることがあります。 しかしA列の顧客番号で判別できるようにはなっています。 目標は下記の点です。 「BC列」に値がある場合、 1行下へ空白行を挿入(できればA~X、Z~AA、AD~CKは1行上と同じ)。 但し挿入する位置は、顧客情報の一番下(1行の場合は2行目、2行の場合は3行目と)です。 挿入した行のY列に「ポイント利用」と入力。 挿入した行のAC列に「BC列の値」を入力。 挿入した行のAB列に「1」を入力。 「BJ列」に値がある場合、 1行下へ空白行を挿入(できればA~X、Z~AA、AD~CKは1行上と同じ)。 但し挿入する位置は、顧客情報の一番下(1行の場合は2行目、2行の場合は3行目と)です。 挿入した行のY列に「送料」と入力。 挿入した行のAC列に「BJ列の値」を入力。 挿入した行のAB列に「1」を入力。 以降に必要な処理はマクロで作成できたのですが、 その後に上記項目を手作業で処理しているのも限度があるので、 最初に挿入処理できればと思ってます。 分かりづらい説明だとは思いますが、 何卒ご教授頂きたくお願い致します。
- ベストアンサー
- その他MS Office製品
- Excelの行挿入で
Excelのシートにデータがつまっているのですが(これから新しく表を作るということではないということです。)、行の挿入をしたいのです。 このとき、行を選択して、右クリックで「挿入」を選べば挿入自体はできます。 しかし、 既にある表は、行が、A列とB列が結合されているのですが、 単に上記のように挿入すると、 A列B列が分かれている行が挿入されてしまいます。 新しく挿入された行のA列とB列を選択して、「セルの書式設定」の「配置」でセルを結合させてもいいのですが、 いちいちそうしなくても 挿入時点ですでに結合されているようにするにはどうすればよいですか。 (Excel2000)
- 締切済み
- オフィス系ソフト
- ■VBAで条件による行挿入方法
VBA初心者です。Excel2007、XPを使用しています。 A列からQ列、平均100行程度の顧客データがあります。 F列に型番(アルファベット+数字等)が記入されており、 その型番内に「半角もしくは全角スペース」が含まれている場合、 該当があった行の下へ、該当行をコピーした内容を追加したいです。 できれば、スペースがある数だけ挿入し、 かつ該当行、挿入行に色付け出来ればなお良いです。 ご教授頂けないでしょうか。 宜しくお願い致します。
- ベストアンサー
- Visual Basic
- エクセルVBAでの行削除
エクセルで下記のようなデータがあり、最終行は2万くらいです。間に空白行はありません A B C D 年月日 営業所 担当者名 営業成績 0708 東京 ○山 60 0708 大阪 △川 55 0708 東京 ○山 20 0708 名古屋 □元 60 0708 大阪 ×谷 55 0708 大阪 ×谷 10 0708 九州 ▽尾 45 このデータでB列の値が「大阪」と「東京」以外を行削除 するマクロを作ろうとするのですがうまく行きません。 (実際の営業所は1000くらいあって、必要な営業所数は11だけなのですが) よい方法をご存知でしたら、お教えください。
- ベストアンサー
- その他(インターネット・Webサービス)
- Excel97で自動的に行挿入させるマクロのつくりかた。
こんにちは。 マクロ超超初心者です。 WN98SE、Excel97です。 やりたいことは、たとえば、 B1に1001 B2に1001 B3に1002 B4に1003 ・ ・ ・ と入っていたとします。 ここで、1001から1002に変わる(又、1002から1003に変わる)とき、その間の行に3行空行を自動的に挿入させたいのですが、どういうマクロの記述をすればできるのでしょうか・・・。 それを新規ブックでもボタンひとつで実行させるにはどのような設定をしたらよいでしょうか。 どなたか教えてください。 よろしくおねがいします。
- ベストアンサー
- オフィス系ソフト
- excel VBA の条件をつけての列ごと並び替える方法がわかりません。
excel VBA を最近学び始めたのですが、 ソートで、 4 8 3 1 7 8 8 2 8 9 6 2 5 1 ↓ 1 3 4 7 8 8 8 6 9 2 2 8 5 1 ↓ 1 3 4 7 8 8 8 6 9 2 2 1 5 8 と並び替えるソートのVBAがわかりません。一回目のソートで1行目を基準に列ごと昇順?に並び替え、二回目のソートで1行目の昇順を満たしながら二行目の数字を基準に列ごと昇順にソートしたいのです。 検索をかけて、バブルソートのVBAなどを見てみましたが、難しくて理解できません。(この前こそ、「かんたんプログラミング EXCEL VBA」を読んだ知識レベルです。) 昨日の18時からがんばっているのですが、一向にわからないです。。 お時間ありましたら、どなたか教えていただけないでしょうか?
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA 自動で8行毎に行を挿入したい
お世話になります。 添付左図のような表があります。 この表をボタンをクリックしたら右図の表の様にするためのVBAロジックをご教授いただけませんでしょうか?(右図の黄色部分の行を自動で挿入したいのです) この表は担当者一人に対して売上区分というものをA-Hまで設けているため、一人のデータが必ず8行になります。 担当者数は現在は100名程度ですが、その都度変わるため可変にしたいです。 この担当者毎に8行あるデータを、ボタンを押したら新規に下行を挿入して[A+B]、続けて下行を挿入して[C+D]、[E+F]、[G+H]という具合に行を挿入する動作を全担当者のデータに全てに対して実施したいのです。 どなたかご教授いただけますでしょうか? よろしくお願い致します。 環境 windows XP SP3 Excel2003
- ベストアンサー
- その他MS Office製品
- エクセル(EXCEL)VBAで行自動分割
エクセル(EXCEL)VBAの質問です。数万行にわたって入力されているデータがありますが、これを1000行づつに分割して、別々の新規BOOK(またはSHEET)へコピーしていきたいのですが、これを実現するVBAを教えていただけ ないでしょうか? VBAマスターの諸兄方、どうぞ宜しくお願い致します。
- 締切済み
- その他MS Office製品
- エクセルの行挿入について
↓行 列→ 1 タイトル・・・ --------------<ここに行挿入したい 2 data1 3 data2 4 data3 一行目にタイトルがあって、2行目以降にデータが あります。 タイトルにすぐ下に行を挿入したいのですが 2行目にカーソルを合わせ、挿入/行、とすると 一行挿入されますが、形式というか属性というのか その形式が1行の形式を持って挿入されます そのため、タイトルの色がついたものが挿入されます これを 2行目以降の形式(白い)でタイトルのしたに 挿入できないでしょうか 現在は 3行目に挿入して(色のつかない行が入る) 2行目にある行を3行に切り取りコピーして 2行目の白い行を挿入しています
- ベストアンサー
- オフィス系ソフト
お礼
回答ありがとうございます。 できました! お世話になりました。