- ベストアンサー
エクセルのマクロについて質問です。
あセルを選択すると、その列の行を一番下まで書き出すようにしたいと思っています。 A1セル=ひらがな E2セル以降=書出し B列 ひらがな ←タイトル(B1セル) あいうえお かきくけこ さしすせそ C列 カタカナ←タイトル(C1セル) アイウエオ カキクケコ サシスセソ D列 英文字←タイトル(D1セル) abcd efgh ijkl 縦になっててちょっと見づらいですが、このような場合、A1の“ひらがな”というワードが入っていて、マクロを実行するとその下の行である “あいうえお” “かきくけこ” “さしすせそ” と、E2以降に表示するようにしたいのですが、どのように考えてコードにしたらいいのか分からないので教えていただけないでしょうか。
- 4k3s4r3
- お礼率66% (76/114)
- オフィス系ソフト
- 回答数2
- ありがとう数3
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
質問を誤解しているかもしれませんが、A1セルの文字列と同一のタイトルがB1、C1、D1のどれかにあれば、その列のデータをE2以下にコピペすればいいんでしょうか? それならこんな感じでどうでしょう? Sub TEST01() Dim Rng As Range With ActiveSheet On Error GoTo line Set Rng = .Cells(2, Application.Match(.Cells(1, 1), .Range("B1:D1"), 0) + 1) On Error GoTo 0 .Range(.Range("E2"), .Range("E2").End(xlDown)).ClearContents .Range(Rng, Rng.End(xlDown)).Copy .Range("E2").PasteSpecial Application.CutCopyMode = False End With Set Rng = Nothing Exit Sub line: MsgBox "あら、見つからないわ!", vbCritical End Sub
その他の回答 (1)
- littlefoot
- ベストアンサー率26% (16/60)
A1のセルに「ひらがな」とか「カタカナ」などのタイトルが入力されるということですよね? ------ If Range("A1") = Range("B1") Then Range("B2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Range("E2").Select ActiveSheet.Paste ElseIf Range("A1") = Range("C1") Then Range("C2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Range("E2").Select ActiveSheet.Paste ElseIf Range("A1") = Range("D1") Then Range("D2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Range("E2").Select ActiveSheet.Paste End If
お礼
ありがとうございました。勉強になりました。
関連するQ&A
- パワポをエクセルに貼り付け(1スライド→1セル)
パワーポイントを、エクセルへ貼り付けたい(1つのスライド→1つのセル) パワーポイントのデータをエクセルに貼り付けたいと思います。 ですが、そのままパワーポイントで複数のスライドを選択して、エクセルへと貼り付けると、 1つのスライドの中に改行している部分があると、それが別々のセルへ貼り付けられてしまいます。 例えば、 『1枚目のスライド』 タイトル:ひらがな あいうえお かきくけこ さしすせそ 『2枚目のスライド』 タイトル:カタカナ アイウエオ カキクケコ サシスセソ という2枚のスライドがあるとします。 それぞれ、テキストボックスはタイトルを除くと1つであり、 その1つのテキストボックス内に、改行して3行が入っています。 この2つのスライドを選択してエクセルに貼り付けると、 『あいうえお』~『サシスセソ』まで、6セルになってしまいます。 別々にではなくて、 『1枚目のセル』 あいうえお かきくけこ さしすせそ 『2枚目のセル』 アイウエオ カキクケコ サシスセソ となってほしいのですが・・ さらに、欲を言うと、『タイトル』と『テキスト』を、 隣あったセルへとコピーすることは可能でしょうか? つまり、A1~B2に対して、 『A1』 ひらがな 『B1』 あいうえお かきくけこ さしすせそ 『A2』 カタカナ 『B2』 アイウエオ カキクケコ サシスセソ というふうにしたいのです。 素人考えではどうにも無理っぽい気もするのですが、 プロの方など、何か特殊な方法があれば、ぜひともご教授いただけないでしょうか わかりにくい説明ですみません。
- 締切済み
- オフィス系ソフト
- マクロによるセル挿入
エクセルについて教えて下さい。 いま仮に、 ABCDE ~ U VWX YZ 1行 あいうえお アイウエオ 2行 かきくけこ カキクケコ 3行 さしすせそ サシスセソ : : とデータが入っていてV~Z列はそのままに、A~U列の行間にだけ16行の空白行を作りたいのです。 つまり最終的に、 ABCDE ~U VWX YZ 1行 あいうえお アイウエオ 2行 カキクケコ 3行 (空白) サシスセソ : : 17 かきくけこ : (空白) : 33 さしすせそ : という感じなのですが、これを手作業でA2:U16を選択してセル挿入→A18:U32を選択して挿入と繰返していては時間がかかってしまうので、マクロによって一発で出来る方法はありますでしょうか? お詳しい方がいましたらお手数ですが教えて下さい。
- ベストアンサー
- Windows XP
- マクロについて質問です。
office2003を使用しています。 sheet1のデータをコピーし、sheet2の表にsheet1のデータを張り付けるマクロを作成して欲しいと言われました。 ・コピー元のsheet1はセルの結合が有ったり無かったりの表データになってます。 ・貼り付け先のsheet2はセルの結合が無い表です。 ・sheet1からsheet2への貼りつけは全てではなく、抜粋されたデータになります。 ・貼り付け先の列も変わっています。 ・sheet2には数式が入った列が加わり、小数点第二位表示です。セルの書式は右寄せや中央、桁区切りがあります。 ・sheet1は可変データです。 2~3位で終わるのもデータの時もあれば20まであったりする時もあります。 sheet2の表の罫線はデータの分だけ引きたいと思っています。 マクロは初心者同然で自動マクロ程度のレベルです。 わかりにくい説明で申し訳ありませんがご教授ねがいます。 sheet1 A B C D E F G 1 No. 名前 上)住所 年齢 商品 金額 担当者 下)電話 2 秋田 1 アイウエオ 20 A 10,000 タナカ 3 123456 4 鹿児島 35 D 15,000 ヨシダ 2 カキクケコ 5 987654 ※sheet1はC列以外の2・3、4・5行はセルが結合されています。 2行で1人のデータになります。 ↓コピー貼りつけをする sheet2 A B C D E F G 1 No. 担当者 名前 住所 商品 金額 原価 2 1 タナカ アイウエオ 秋田 A 10,000 7,500.00(数式が入っている) 3 2 ヨシダ カキクケコ 鹿児島 D 15,000 6,800.00
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロの作成について
エクセルのマクロの作成について教えてください!! 一つのセルの中に3行の文字があるとして・・・・ そのセルの2行目と3行目を隣のセルにうつしたいです。 例えば・・ E列の1行目のセルに あいうえお かきくけこ さしすせそ と文字が入っていて、 それを F列の1行目のセルに かきくけこ さしすせそ のみ移動させたいです。 1行~300行ほどあって、さらにデータは増え続けます、手作業での移行が困難になってきました。 そもそも一つのセルの中身の文字の一部を違うところに移動させるマクロは組めるのでしょうか。 当方初心者です。お手柔らかにお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルマクロ、空白行(セル)の挿入
データがA、B、C、D、E列100行まであります。 このうちD、E列を除き、エクセルのマクロで1行ごとに空白で10行挿入したいです。 (A、B、C、D列のデータに空白セルを10行分挿入し、下にシフトするイメージ。D、E列はそのまま。) ご教授頂きたく、お願いします。
- 締切済み
- その他(Windows)
- EXCELのマクロで。。。
シートAのセルC2の値(数字)を シートBのE、F、Gの各列のうち空いている一番左のセルで、かつ、D列に何か書いてある一番下の行のセル に転記したいです。 たとえば、シートBが図のような場合にはF28です。これが毎回、変化します。 マクロの記述を教えて下さい。よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルで数字を認識して行をコピーして挿入するマクロ
以前ご質問がありましたが少し違います。 エクセルのマクロでこんなことは可能でしょうか? (1)ある「不特定のセル」に(数字)が入ったとき (そのセルの列は固定) (2)自動的にそのセルの「行」全体をコピーして その数字が5なら5行、1なら1行 (3)ひとつ下の行に「コピーしたセルの挿入」で行の追 加をする 例 列 A.B.C.D.E a.b.c.d.2 "a.b.c.d.2" "a.b.c.d.2" a.b.c.d.3 Eの列に2とある場合下に2行追加コピー "a.b.c.d.2"の部分。 不特定が難しい場合は E列とか列を決めていただいてもよろしいです。 あとでVBをこちらで変更いたします。 無理を言いますが可能であれば お詳しい方、ご教授宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロ記述について
下記の処理をエクセルのマクロで行いたいのですが、どのように記述したよいか教えてください。 4行目から入力されている行まで下記の処理をマクロで行う。 1.J列のセル入力がCIRCLEの行で、B~E列の数値が同じセル間を結合する。 2.K列のセル入力がCIRCLEの行で、F~I列の数値が同じセル間を結合する。 3.J列のセル入力がOBLONG_XまたはOBLONG_Yの行で、B,D列及びC,E列の数値が同じ場合、B列をB列の数値XC列の数値とし、B~E列のセルを結合する。 4.K列のセル入力がOBLONG_XまたはOBLONG_Yの行で、F,G列及びH,I列の数値が同じ場合、F列をF列の数値XG列の数値とし、F~I列のセルを結合する。 5.J列のセル入力がOBLONG_XまたはOBLONG_Yの行で、B,D列及びC,E列の数値が同じでない場合、B列をB列の数値XC列の数値とし、B,C列のセルを結合する。又、D列をD列の数値XE列の数値とし、D,E列のセルを結合する。 6.K列のセル入力がOBLONG_XまたはOBLONG_Yの行で、F,G列及びH,I列の数値が同じでない場合、F列をF列の数値XG列の数値とし、F,G列のセルを結合する。又、H列をH列の数値XI列の数値とし、H,I列のセルを結合する。 7.J列のセル入力がSHAPEの行で、B~E列は何もしない 8.K列のセル入力がSHAPEの行で、F~I列は何もしない
- 締切済み
- Visual Basic
- 連続した行を一行にして出力したい
こんばんは。 自分の力では解決できないので、お力をお貸しいただけないでしょうか。 以下のようなフォーマットのデータがあります。 「--」で一区切りです。 a b c d -- e f g h -- i j k l -- これを、以下のようなフォーマットで、 「--」で区切られたまとまりの行を全て結合して、 各行の後ろに付け加えたいのですが、 a -> abcd b -> abcd c -> abcd d -> abcd -- e -> efgh f -> efgh g -> efgh h -> efgh -- i -> ijkl j -> ijkl k -> ijkl l -> ijkl -- 自分で色々やってみましたが、うまくできません。 どうかよろしくお願いいたします。
- ベストアンサー
- Perl
- エクセルで数字を認識して、行をコピーして挿入するマクロ
エクセルのマクロでこんなことは可能でしょうか? (1)あるセルに(数字)が入ったとき (そのセルの列は固定) (2)自動的にそのセルの「行」全体をコピーして その数字が5なら4行、1なら0行 (入力値より-1行) (3)ひとつ下の行に「コピーしたセルの挿入」で行の追加をする 例 列 A.B.C.D.E a.b.c.d.2 "a.b.c.d.2" a.b.c.d.3 "a.b.c.d.3" "a.b.c.d.3" Eの列に2とある場合下に2行-(1行)追加コピー "a.b.c.d.2"の部分。 無理を言いますが可能であれば お詳しい方、ご教授宜しくお願い致します。
- 締切済み
- オフィス系ソフト
お礼
ありがとうございました。手本になりました。またお願いします。