- ベストアンサー
エクセルVBAでご教示ください
K Kazz（@JazzCorp）の回答
- K Kazz（@JazzCorp）
- ベストアンサー率31% (549/1751)
Option Explicit Sub Raw() Dim xMaster As Worksheet Dim xSheet As Worksheet Dim nn As Long nn = 5 Application.CutCopyMode = True '往きはヨイヨイ、、、 Set xMaster = Worksheets("Sheet1") Set xSheet = Worksheets("Sheet2") xMaster.Range(xMaster.Cells(nn, "B"), xMaster.Cells(nn, "CX")).Copy xSheet.Cells(nn, "B").PasteSpecial xlValues '～～～ Application.CutCopyMode = False '還りはコワイ、、、 xSheet.Range(xSheet.Cells(nn, "D"), xSheet.Cells(nn, "CW")).Value = "XXX" xSheet.Range(xSheet.Cells(nn, "B"), xSheet.Cells(nn, "CX")).Copy xMaster.Cells(nn, "B").PasteSpecial xlValues End Sub
関連するQ&A
- EXCEL VBAで
EXCEL VBAで シート1のＡ２～Ｇ２までの列にＡ,B,C,D～と題名があり、それぞれの下の行には数字が並んでます。シート２のＡ２～Ｇ２までの列にもＡ,B,C,D～と題名がありますが、ランダムに並んでます。シート1のＡの行を、シート2のＡの行に、ＢにはＢへという風にコピーをさせるにはどのようにすればよいでしょうか。またシート1Ａ～Ｇのどれかが欠けている場合もあります。その場合はシート1にあるもののみコピーすることとします。 わかりにくいかも知れませんか、どうかよろしくお願いします。
- ベストアンサー
- その他MS Office製品
- ExcelのVBAについて
ExcelのVBAについて VBA全くの初心者です。 以下のような処理を行いたいのですが、どなたかご教授をお願いします。 以下のように支店(1)～(3)のシートがあります。 １．入力シートに調べたい商品Ｎｏ・商品名・備考を入力する（複数行あり） ２．マクロを実行すると、商品Ｎｏを検索対象として支店(1)～(3)シートをチェックし、 一致しない行を不一致データシートに出力する もう一つ別のマクロで、 １．入力シートに調べたい商品Ｎｏ・商品名・備考を入力する（複数行あり） ２．マクロを実行すると、商品Ｎｏを検索対象として支店(1)～(3)シートをチェックし、、 一致する行を一致データシートに出力し、Ｄ列に対象データがあるシート名を表示する ※可能でしたら、Ｅ列に対象データがある行番号も表示する -------------------------------- シート名:支店(1) Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ０１１ 商品Ａ 備考Ａ ００９ 商品Ｂ 備考Ｂ ０１５ 商品Ｃ 備考Ｃ -------------------------------- シート名:支店(2) Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ００８ 商品Ａ 備考Ａ ０２３ 商品Ｂ 備考Ｂ ００４ 商品Ｃ 備考Ｃ -------------------------------- シート名:支店(3) Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ００７ 商品Ａ 備考Ａ ０３３ 商品Ｂ 備考Ｂ ０１８ 商品Ｃ 備考Ｃ -------------------------------- シート名:入力シート Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ※ここに複数行入力する -------------------------------- シート名：不一致データシート Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ※ここに出力される -------------------------------- シート名：一致データシート Ａ Ｂ Ｃ 商品Ｎｏ 商品名 備考 ※ここに出力される
- 締切済み
- Visual Basic
- エクセル VBA
最終行から順番に下へ同列で入力するＶＢＡを教えて下さい。 ＥＸＣＥＬのＶＢＡで教えて下さい。 シート1のＡ列にはB列が入力されると自動入力されるNo.があり、C～G列もB列が入力されると自動入力されます。 B列には日付が、H列には３～4桁の数字が入力したいのですが、 入力行は必ず最下行のセルB、Gな為、VBAでフォームを作成し、 入力実行ボタンを押すことにより、最下行のセルB、Gに反映されるように したいです。 又、上記入力後に、シート2のH～N列をコピーして、シート3のA～G列に値のみの貼り付けを行い保存した後、シート3のA～G列をコピーして ｃｓｖファイルを作成して保存したいです。 一連の流れを、フォームの入力実行ボタンを押すことで実行したいのですができるのでしょうか？ 宜しく御願い致します。
- ベストアンサー
- Visual Basic
- Excel VLOOKUPをVBAでやりたいのですが、分からなくて困っ
Excel VLOOKUPをVBAでやりたいのですが、分からなくて困ってます。 Sheet1のC列2行目行こうにSheet2のI列のデータを取得し （A列にﾃﾞｰﾀｰが入っている分、（時と場合により表示数が違う為）） なおかつ Sheet1のD列2行目以降にB-Cの差し引きをおこなう 以上のことをSheet1をアクティブにした時VBAでおこなうには、？ 教えて下さい。宜しくお願い致します。
- ベストアンサー
- Visual Basic
- Excel VBA B列を検索して１行下をコピぺ
はじめまして。 VBAを始めたばかりですが、自分ではどうにもならないので、教えていただければと思い、初めて質問致します。 A1～G1、１行目から1000行目まで各セルに数字がランダムに１つずつ入っているデーターSheet１があり、コマンドボタンを押すことによってMsgBoxに入力した数字をB列を下に検索していき、例えば、数字の8が入力されたら、B1から下にB列に8が出現したらそのセルの1つ下の行(A列～G列まで)をコピーしてSheet2に抽出したいと考えているのですが、なかなか出来ず、困っています。 イメージとして A B C D E F G H I 1 5 14 30 25 30 3 9 2 22 34 6 7 29 49 3 3 1 8 20 4 10 6 45 4 30 15 34 50 2 5 9 5 11 8 45 7 6 20 1 6 40 8 48 25 36 4 10 7 21 22 30 28 6 7 36 8 2 3 50 2 1 43 6 と、データがSheet1に仮にあって、8が入力されたなら4行目の 30 15 34 50 2 5 9 と 6行目 40 8 48 25 36 4 10、7行目 21 22 30 28 6 7 36という様に抽出されてSheet2に 上から順に貼り付けられる様にしたいので、皆様の御知恵をお貸しいただければと 思っております。かなり複雑かとは思いますが、どうか宜しくお願いいたします。 FINDやOFFSET、IF文、ループ等を使ってみましたが私のレベルでは全く話になりませんでした。 まだVBAかけだしなもので、なるべ簡単なくプログラムでお願いいたします。
- ベストアンサー
- その他(業務ソフトウェア)
- エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
エクセル2002を使っています。 シート1に A列に氏名 B列に住所 C列に電話番号 のデータが300件の表があります。 B列を検索してたとえば大阪府があれば、その行（ABC列)をシート２へコピーして抽出したいのです。 VBAを使ってやりたいのですがどうしたらよいでしょうか? よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel VBA : 追加でコピペする方法
ExcelのVBAでマクロを作成したので教えて下さい。 sheet(1)C3からC列にDATAが入力済みです。 （同じく、D3からD列にもC列と同じ行数DATAが入力済みです。） DATAは、途中で空白セルは無く、全て埋められた状態です。 （つまり、C列とD列の使用されている行数は全く同じです。） それぞれのDATA（C列、D列）をコピーして Sheet(2)のB3（B列）とC3（C列）から下方にペーストするのですが、 Sheet(2)のB列とC列には既に旧DATAが入力済みなので 旧DATAは消去せず下側に追加する形式でコピペしたいのです。 （旧DATAの直下の行に新規にDATAを追加） 利用済みの行数を取得してコピーは下記で良さそうですが ？ Cells(3,3).end(xlDown).Row.copy 書き込み（ペース）で思考が停止状態です。 どのようにすれば良いでしょうか ？
- ベストアンサー
- Excel（エクセル）
- EXCELのデータベース利用について（VBA）
VBA初心者の者です。 下記の様なEXCELファイルを作りたいのですが、どのようにすれば良いのか まったくわかりません。 ACCESSでの構築が簡単なのかもしれませんが、データ量がそれほど多くないことと 職場にACCESSがないため、可能であればEXCELで構築したいと考えています。 私自身、プログラムの知識がなく、EXCEL VBAのサイトを確認するのですが、いまいち どうすれば良いのかわかりません。 ぜひご教授の程よろしくお願いします。 3つのシートの構成は以下になります。 【入力シート】 A1セルに文字列（A～Z）入力欄 【○○データシート】 A列に A～Z の文字列 B列に 001～100までの数値 C列に 001～100までの数値 D列に 001～100までの数値 E列に 001～100までの数値 例） A列 B列 C列 D列 E列 1 A 001 2 B 001 002 003 004 3 C 003 4 D 002 003 【▽コマンドシート】 A列に 001～100までの一意の数字 B列に 文字列（コマンド） C列に 文字列（コマンド詳細） 例） A列 B列 C列 1 001 xx blank 2 002 xxx△ xxx 3 003 xxxx x○ 4 004 xxxxx xxx 【欲しいVBA】 １、入力シートのA1セルに○○データシートのA列に該当するA～Zの 文字列を入力。 ２、○○データシートのB列～F列までの数値を参照 ３、2の数値において▽コマンドシートのA列に記載ある番号と紐づけを行い、 ▽コマンドシートのB列、C列に記載がある文字列を入力シートのB列、C列にコピー ※コピー時は▽コマンドシートの書式や体裁情報も含めてコピー。 例としては以下になります。 入力シートの A1セルにDを入力した場合は 入力シート A列 B列 C列 1 D xxx△ xxx 2 xxxx x○ 3 以上、ご教授よろしくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
- エクセルVBAで、行削除⇒別シートに自動入力をしたい
いつもお世話になります。よろしくご指導お願いします。 VBA初心者です。最近随分皆様に助けていただいています。尚、業務の関係でお助けください。 エクセルで名簿形式のデータベースシートがあります。 （山田太郎 ○○市○○町 911-1234 ・・・） 例えば、この山田さんが解約したり死亡されたりすると「行削除」をします。そのとき、別シート（シート名「解約者台帳」）に自動的に削除した行の全データをもっていきたいのです。 ★解約者台帳のフィールドは、元シートと基本的に同じですが、A～AG列のデータが必要。AH列以降のデータは不要です。 解約者台帳に追加していく（新しい行＝何も入力されていない行への自動入力）等のVBAのイメージを含めて、私の力ではやはりさっぱりです。どうかまたまたお助けください。お待ちしています。
- ベストアンサー
- オフィス系ソフト
- ExcelのVBAにてキーになるものを入力してデータを振分けたい
２つのシートがあり、sheet2に振分けるデータ（下表）を作成しておきます。 （列） １ ２ ３ （行） １ Ａ Ｂ Ｃ ２ ○ △ × ３ ア イ ウ (1)sheet1にコンボボックスにてＡを入力する。Ａ、Ｂ、Ｃは、それぞれ決められたセルにコピーされる。 (2)sheet1にコンボボックスにて○を入力する。○、△、×は、それぞれ決められたセルにコピーされる。 (1)と(2)のコピーされる場所は、同じ場所です。 というようなものをExcelのＶＢＡにて作成したいのですが、ＶＢＡは、あまりよくわかりません。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
お礼
早速のご教示ありがとうございました。 色々な方法があるのですね。 参考とさせていただきます。 ありがとうございました。