- ベストアンサー
Excel データの一部を別シートにコピー
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
余り十分テストできてないが Sheet4にコマンドボタンを1つ張り付け そのクリックイベントに Private Sub CommandButton1_Click() On Error GoTo err1 r = ActiveCell.Row sn = ActiveSheet.Range("A" & r) p1: Worksheets(sn).Select d = Worksheets(sn).Range("a65536").End(xlUp).Row d = d + 1 Worksheets(sn).Cells(d, "A") = Worksheets("Sheet4").Cells(r, "A") Worksheets(sn).Cells(d, "B") = Worksheets("Sheet4").Cells(r, "B") Exit Sub err1: Worksheets.Add.Name = sn GoTo p1 End Sub ーー 上記はコピー式でなく値代入方式でやっている。 シートが無いとエラーになるが、このエラーコードまで使ってチェックしてない。 移す列はA,B列だけで残りは、同パターンなので省略している。 ーー シートを開こうとしたとき、 A.存在する場合はどうするか、 B存在しない場合はどうするか の視点が、質問の問題点として書いてないが大切と思う。 上記は自分では、色々な今までの経験が詰まっているように思う。質問者には難しいと思う。
その他の回答 (1)
- n-jun
- ベストアンサー率33% (959/2873)
例えば、こんな感じの事でしょうか? Sub test() Dim sh As String sh = Range("A" & ActiveCell.Row).Value MsgBox sh Range("A" & ActiveCell.Row).Copy Worksheets(sh).Range("A1") End Sub
お礼
n-junさん ありがとうございました。
関連するQ&A
- シート内の一部のセルを別シートにコピー
Excelのマクロ(VBA)の記載方法について お分かりになる箇所だけでも結構ですので、 どなたかご教授を願い致します。 シートX A B C 1 data1 data2 data3 2 x data7 data8 3 data4 data5 data6 4 data7 data8 data9 シート Y A B C D 1 length 3 (任意) (任意) 2 xxxx (任意) (任意) (任意) 3 zzz (任意) (任意) (任意) 4 (空白)(任意) (任意) (任意) 上記のような2つのシート(同一Excelファイル内)があって、 シートXの一部のセルを次の条件(1~4)でシートYにコピーしたい場合 1.コピー元の列の数は、シートYの "length"と書かれたセルの右となりの数字 とする(上記では3なので、A,B,C列をコピー対象) 2.コピー元の行の数は、シートXの1~4行目までとするが、 シートXのA列のセルが"x"だったら、その行は全てコピーしない。 3.コピー先(Y)の列は、コピー元(X)の列と一つずれてコピー(BならCに、CならDに) 4.コピー先(Y)の行は、シートYのA列で1行からで始めて空白セルになった行からコピー開始。 (上記では、A列で空白セルのある4行目からコピー) 上記条件で、下記のシートYを作成したいのですが、 この場合どようなマクロ(VBA)で実現できますでしょうか。 コピー結果(シートY) A B C D 1 length 3 (任意) (任意) 2 xxxx (任意) (任意) (任意) 3 zzz (任意) (任意) (任意) 4 (空白) data1 data2 data3 5 (任意) data4 data5 data6 6 (任意) data7 data8 data9
- ベストアンサー
- オフィス系ソフト
- 別のシートにコピーする方法(マクロ)
シート1 と シート2 を用意します。 シート1には、 A1:B3 の範囲に文字が入力されています(関数の場合あり) A1:B3の範囲(列の場合あり)をコピーして シート2の現在選択されているセルから貼り付けをワンクリックで する方法(マクロ)はありませんか? 私は、マクロはわかりませんが、マクロでしか出来ないようであれば 覚えます。 教えてください。
- 締切済み
- オフィス系ソフト
- エクセルで抽出したデータを別シートにコピーしたいです
エクセル2003を使用しています。 例えば、以下のような表があります。 ABC 1あ10 2い15 3あ20 4 A列が条件となり、たとえば「あ」のデータだけ抽出して、そのデータを別シートにコピーします。 同じく「い」だけを抽出して、また別のシートにコピーします。 いままでは、オートフィルタで抽出して自分でコピーをして貼り付けしていましたが、日々データが次の行に追加になるので、毎回オートフィルタしてコピーするのは大変です。 関数か、マクロかVBAを使ってする方法はありますでしょうか。 できれば日々追加になるデータのみをすでにある別シートの前日までのデータの下に追加できるようになればいいと思うのですが。 知識が乏しくできません・・・ よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excelのシート間のコピー&貼付け
皆様にお聞きしたいのですが。。m(_ _)m あるシートで作成したデータ(罫線等は入れてません。セルに入力したデータのみです)を、一番上の項目名のみまず最初に別シートにコピーしました。 そして元データでフィルタで抽出した間違いがあったデータのみ、複数の行番号をドラッグで選択して別シートにコピー&貼付けをしていたら、なぜか元のシートと列の数が合わなくなりました; 列の数は40前後と多いのですが・・・ 一番上の項目名と途中か合わなくなっていました(T-T) 普通に行を選択してコピー、そして別シートへ貼付けしていただけなのですが。。 こうゆうことってあるのでしょうか??? どなたか、どうかご教授ください。宜しくお願い致します。。 補足 ちなみに、ちゃんとコピー先のシートのA2(項目行の先頭の下の行)にコピーしたのですが・・。
- 締切済み
- その他(ビジネス・キャリア)
- EXCEL データをコピーして別シートの最初の空白行に貼り付けたい
EXCEL データをコピーして別シートの最初の空白行に貼り付けたい Sheet1はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet2はSheet1の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行(貼り付ける最初の空白行)の認識の仕方が分からず、Sheet2への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。
- ベストアンサー
- その他MS Office製品
- EXCEL VBA マクロ 別シートの空白行へのコピー
すみません、、いくらやってもできません。どなたかわかるかた助けてください。 <質問内容> エクセルのsheet1、Sheet2があり、 Sheet2にあるデータをSheet1のA列の空白行に貼り付けするというマクロを組みたいです。 BVAを使って、Sheet1の任意のデータ(データが入っているところのみ)をコピーすることまではできましたが、Sheet2へのA列空白行へペーストができないでいます。 ※Sheet2は別会社で作成のため、シート保護されていますが、貼り付けたい場所はロックされていません。 保護されているがゆえにCtr+Gのセル選択は使用できない状態です。 すみませんが、明日までになんとかお願いいたします!明日中に作成、上司に渡す予定です。
- ベストアンサー
- その他MS Office製品
- エクセルのデータのコピー(シート間)
エクセルのデータのコピー(シート間) シート1の10行目には,A列からCZ列の各列ごとに1行目から9行目までの数値の加算式が入力されています(A10には「=SUM(A1:A9)」,B10には「=SUM(B1:B9)」,・・・CZ10には「=SUM(CZ1:CZ9)」)。 これらの加算式のデータ(A10,B10,・・・CZ10)を,シート2のA列の1行目から78行目まで縦にコピーしたいのですが,良い方法を教えて下さい。 宜しくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセル 複数シートのデータを1シートにまとめるマクロ
エクセルの複数シートにデータがあります。同じ条件の人のデータだけをひとつのシートにまとめたいのですが、マクロを教えていただけますでしょうか。それとも、マクロ以外に良い方法がありますか? エクセル初心者なので、あたりまえのことも知らないかもしれません。。。 【データ】 ●シート1からシート20まで、同じ配列でデータがあります。 ●1行目は見出しです。2行目から1人づつのデータです。(多くても65行までと思っています。) ●A列に到達度、B列に出欠をいれました。 ●C列からM列が氏名、課題、その他のデータです。 ●リストはシート21にあります。 【こんな作業でしょうか?】 ●シート1から20で A列が「C」または「D」ならば その行のA列からM列をコピーして シート21のA列からM列に形式を値にして張り付ける ●シート1から20で B列が「欠」ならば その行のA列からM列をコピーしてシート21のA列からM列に形式を値にして張り付ける (っというのが私の乏しい知識で考えた方法なのですが、これでは不具合がでますか? もちろん、この方法じゃなくもっといいのがあれば、それをやってみたいです。)
- ベストアンサー
- オフィス系ソフト
- マクロ:他シートにデータをコピーしたい
Excelのマクロについてです。 シート1にデータが有り、その中のB列に「済」と記入されている行のみ シート2にコピーして転記したいのです。 これだけなら簡単なのですが データ内には複数行にまたがってのセル結合がされてあったり 図形描写やテキストボックス等も混ざってあります。 それらもまとめてコピーしたいのですが、マクロで何とかなるのでしょうか?
- ベストアンサー
- Excel(エクセル)
- エクセルのフィルタリングされたのデータコピー
Excel(2003、またはそれ以降)の質問です。 フィルタで抽出(可視化された)したデータだけをコピーし 別シートのフィルタで抽出したセルだけに張り付けることは可能でしょうか? (例) フィルタにより、シートAの1・2・5行目を抽出し、可視化された項目セルのみをコピー ↓ フィルタにより、シートBの3・6・9行目を抽出し、可視化された項目セルに張り付け。 ※普通にやろうとすると、コピーした内容が、シートBの不可視セルにまで張り付けられてしまいます。 ※コピー元、貼り付け先のセルのサイズや書式は同じです。 今はVLOOKUPで、シートA・Bの共通項目をキーにセルの内容を引っ張ってきてるんですが もう少し楽にコピペできればな、と思い質問しました。 分かりにくい質問ですみません。 何か良い方法があれば、教えてください。
- ベストアンサー
- その他MS Office製品
お礼
imogasiさん ありがとうございます。 > 質問者には難しいと思う。 はい、難しいです。 とりあえず手探りで、コピー式で作ってみました。 シートの選別、コピー貼付、記入データのなくなるまで実行、ここまで進みましたが、エラーメッセージが出てしまいました。 条件を具体的に書いて、新しい質問に置き換えたいと思います。