- ベストアンサー
エクセルで、毎回違う行数をコピーする方法
cj_moverの回答
- cj_mover
- ベストアンサー率76% (292/381)
こんにちは。 条件として、 元１、元２、合計２０件を超えないこと。 元１、元２、ともに１行めから始まっていること（質問文のまま）。 といことなら簡単に Sub Re7744683j() Dim rcn1 As Long Dim rcn2 As Long rcn1 = Cells(1, "X").End(xlDown).Row rcn2 = Cells(1, "AA").End(xlDown).Row Range("X:Z").Resize(rcn1).Copy Cells(1, 1) Range("AA:AC").Resize(rcn2).Copy Cells(21 - rcn2, 1) End Sub とか。
関連するQ&A
- マクロで特定行を含まずコピーする方法を教えてください。
マクロで特定行を含まずコピーする方法を教えてください。 社内で使っている1ヶ月分の売り上げを表にしていて、全てのセルに計算式が入っている為、とても重くなっています。ので、過去日付のところは、コピーして値で貼りつけたいと思っています。 名前 6/1 6/2 6/3 6/4 6/5・・・・ 田中(1) 数字・・・・ 田中(2) 数字・・・ 田中(3) 数字・・・ 田中(4) 数字・・・ 田中(5) 数字・・・ 田中(6) 数字・・・ 田中(7) 数字・・・ 合計 合計数 鈴木(1) 数字・・・ 鈴木(2) 数字・・・ 鈴木(3) 数字・・・ 鈴木(4) 数字・・・ 鈴木(5) 数字・・・ 鈴木(6) 数字・・・ 鈴木(7) 数字・・・ 鈴木合計 数字・・・ ・ ・ ・ （５０００ほどの行があります） といったような表で、名前の(1)～(7)にも計算式が入っており、それをコピーして値で貼りつけをしたいのですが、合計欄は計算式を残したままコピーしたいのです。 どなたかお知恵をおねがいします。
- ベストアンサー
- その他MS Office製品
- Excelのコピー・貼り付けについて
Excelで、表のフォーマットをコピー・貼り付けするときに、「列幅」と「行の高さ」がコピー元と同じになりません。 「形式を選択して貼り付け」の中の、「列幅」を選択すると列幅は同じになりますが、「行の高さ」はコピー元と同じになりません。 どのようにすれば、コピー元と同じサイズの表をコピーできるでしょうか。 また、参考までに次のことも教えていただければ嬉しいです。 「形式を選択して貼り付け」の中にある「すべて」の「すべて」とは何が含まれるのでしょうか。 「すべて」を選択すれば、コピー元と全く同じ表がコピーできてもいいように思うのですが、そうではありません。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- エクセルのコピー、そして貼り付け
エクセルで表を作っていますが、一つのセルに複数行入力（AIT + Enter)していますがこの表をコピーして他のシートに貼り付けると、行の長さがコピー元の行の長さにならず途中の行幅でコピーされてしまうため、いちいち行の長さを伸ばして使っています。きちんとした行の長さで貼り付けできる方法を教えてください。よろしくお願いします。
- ベストアンサー
- Windows XP
- エクセルで一番大きな数字の列名を表示させいたい
■■セダン■ワゴン■スポーツ■カテゴリ 田中□１□■□１□■□□□□■ 佐藤□１□■□２□■□□１□■ 鈴木□１□■□２□■□□３□■ 高橋□１□■□４□■□□４□■ 山本□１□■□３□■□□１□■ エクセルでこんな感じの表があります。 カテゴリの列に、一番大きな数字の列名（セダン・ワゴン・スポーツ）を 表示させたいのですが、どのようにすればいいのでしょうか？ EX佐藤→ワゴン、鈴木→スポーツ、山本→ワゴン それから同数のものがある場合には、（田中、高橋）の場合には、同数と 表示させたく思っています。また数字がはいったセルには、データがない 場合があります。 以上よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルのシートのコピーについて
シートのコピーをＶＢＡで行いたいのですが、エラーになってしまいます。 間違っている箇所が分からないのでご教授お願いします。 貼り付けというブックにマクロが組まれています。 ”データ”のブックにあるシート名が”貼り付けのブックのリスト”のシートに記載されています。 リストのシートに記載されているシートを貼り付けのブックにコピーしたいです。 よろしくお願いします。 Sub シートコピー() 行数 = 2 Do Until IsEmpty(Cells(行数, 3).Value) コピー元 = Workbooks("貼り付け.xls").Worksheet("リスト").Cells(行数, 3) Workbooks("データ.xls").Worksheet(コピー元).Copy After:=Workbooks("貼り付け.xls").Sheets(Workbooks("貼り付け.xls").Sheets.Count) 行数 = 行数 + 1 Loop End Sub
- ベストアンサー
- Visual Basic
- 【Excel2003】コピーするマクロ
【Excel2003】コピーするマクロ Excelファイルで以下のようなデータがあります。 Ａ Ｂ １ 佐藤雄一 ２ 男 ３ （空白行） ４ 山本優子 ５ 女 ６ （空白行） ７ ・・・ ８ ・・・ ９ （空白行） 上記のようなデータを下記のように変更したいです。 マクロ等を使用し、楽に修正するやり方を教えて下さい。 マクロを使用しなくても楽に修正する方法があればそれでも良いです。 分量が膨大なのでよろしくお願いします。 Ａ Ｂ １ 佐藤雄一 男 ２ 山本優子 女 ３ ・・・ ・・・
- ベストアンサー
- その他MS Office製品
- excelデータの切り貼りマクロ
excelマクロの初心者です。 データの切り貼りをするマクロについて教えてください。 以下のような担当者と会社名の入った縦に大きなデータを 担当 社名 佐藤 A社 佐藤 B社 佐藤 C社 田中 D社 田中 E社 田中 F社 鈴木 G社 鈴木 H社 鈴木 I社 高橋 J社 高橋 K社 高橋 L社 最終的に 佐藤 田中 鈴木 高橋 A社 D社 G社 J社 B社 E社 H社 K社 C社 F社 I社 L社 このように一番上に担当者、下に該当する社名を羅列されるように切り貼りをしたいと思っています。 ファイルがいくつもあり、また行数はファイルごとに異なり一定ではありません。 マクロでどのように書いたらよいかご教授頂けないでしょうか。 よろしくお願いいたします<(_ _)>
- ベストアンサー
- Excel（エクセル）
- エクセルのコピー（列幅行幅をそのままコピーしたい）
同じシート内に、同じ表を作りたくて、貼り付け時に「すべて」を選んでも、列幅行幅が小さくなってしまいます。コピー元とまったく同じにしたいのですがどうすればいいでしょうか。
- ベストアンサー
- オフィス系ソフト
- エクセルでこのような事ができますか？
エクセルでマクロとか使わずに簡単に以下の作業ができる方法がありますか？ A B 1 田中 2 山本 3 中村 4 岡田 5 鈴木 ↓ A列にずっと1000人ぐらいの名前がある。 このシートをもとに下のような１から６の番号をB列につけたシートを 作りたいのですが・・・ A B 1 田中 1 2 田中 2 3 田中 3 4 田中 4 5 田中 5 6 田中 6 7 山本 1 8 山本 2 9 山本 3 10 山本 4 11 山本 5 12 山本 6 13 中村 1 14 中村 2 ↓ 6000行まで入ることになります。
- ベストアンサー
- オフィス系ソフト
- 毎回、データの行数が変化しているため、コピー・ペーストが、、困った。
Sheet1には、毎日入荷する商品のデータを2行目から入力します。 （例ですが、１行目はタイトル：Ａ1＝日付、Ｂ１＝商品名、Ｃ1＝Data1、Ｄ1＝Data2） 毎日入荷する商品数が１個～20個位まで変化します。 Sheet2に、年間仕入元表があり、その最終行の１行下へ毎日入荷するデータをペーストするマクロを作りたいのです。 毎日入荷するデータのカット（コピー）するところが（行数が変化しているため）初心者の私ではマクロで出来ず、困りました。 教えて！gooの過去の質問を見てきましたが、基本の基本でしょうか？ヒントとなる質問が無く、ここに質問させてください。 VBAの初心者ですが、プロシージャを示していただければ、内容を読めると思います。
- ベストアンサー
- オフィス系ソフト