• ベストアンサー

エクセル　VBA　条件が一致した場合の表記

エクセルの初心者です。 どうかご指導ください。 sheeｔ1のC列に名前がランダムで入力されていて sheet2のＦ列にも名前がランダムに入力されています。 sheet1のＣ列にsheeｔ2のＦ列に同じ名前のものがあった場合 同じ名前があったsheet１の行のG列に 同じ名前があったsheet2の行のＨ列に入力されているものを入力できるような マクロを作りたいのですが教えて頂けないでしょうか

質問者が選んだベストアンサー

  • ベストアンサー
  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.1

こんにちは！ 一例です。 1行目はタイトル行でデータは2行目以降にあるとします。 画面左下のSheet1のSheet見出し上で右クリック　→　コードの表示　→　VBE画面に ↓のコードをコピー＆ペーストしてマクロを実行してみてください。 Sub test() Dim i As Long, k As Long Dim ws As Worksheet Set ws = Worksheets("Sheet2") For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row If WorksheetFunction.CountIf(ws.Columns(6), Cells(i, 3)) Then k = WorksheetFunction.Match(Cells(i, 3), ws.Columns(6), False) Cells(i, 7) = ws.Cells(k, 8) End If Next i End Sub こんな感じではどうでしょうか？m（_ _）m

mituya08
質問者

お礼

ありがとうございました。 思っていたことができました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • EXCEL VBAで

    EXCEL VBAで シート1のＡ２～Ｇ２までの列にＡ,B,C,D～と題名があり、それぞれの下の行には数字が並んでます。シート２のＡ２～Ｇ２までの列にもＡ,B,C,D～と題名がありますが、ランダムに並んでます。シート1のＡの行を、シート2のＡの行に、ＢにはＢへという風にコピーをさせるにはどのようにすればよいでしょうか。またシート1Ａ～Ｇのどれかが欠けている場合もあります。その場合はシート1にあるもののみコピーすることとします。 わかりにくいかも知れませんか、どうかよろしくお願いします。

  • エクセルVBAで2つの条件が一致すれば結果を転記

    エクセルVBAの書き方を教えてください。 以下3つのエクセルファイルがあります。 ・F依頼（使うSheet：ナンバリング ・F結果（使うSheet：OKリスト ・F回答（使うSheet： F結果の「OKリスト」シートのA列3行目に結果が入っています。 　　　　A列　　　　　　　　　B列　　　　　C列 3行目　OK（結果）　　　　12345678　　　　9012 F依頼の「ナンバリング」シートには、過去からの番号が書き続けられています。 　　　 A列　　　　　　B列　　　　　C列　　　　　D列 2行目　日付　　　　12345678　　　　9012　　　　OK（結果） OKリストのB&Cの12桁をナンバリングシートのB&Cから検索し 一致するものがあれば、ナンバリングシートのD列（結果）にOKリストのA列（結果）を 貼り付けたいです。

  • エクセル　ＶＢＡ　複数条件一致の場合の変換

    エクセルの初心者ですが ぜひ教えてください。 Ｃ列のどこかに　aaaaaa　と記入されていて なおかつ、その記入されている行のＤ列に　ｂｂｂ　と記入されていて なおかつ、その記入されている行のＨ列に　ｃｃｃ　と記入されている場合 のみ　ｄｄｄ　と文字を変換するVBAの作成したいのですが、 ぜひ、教えてください。

  • エクセルVBAで不一致に空白セルを挿入

    エクセル2010です。 A、B列ともソートされています。 ごく少数ですが同一列内に重複するデータもあります。 そして A列に、1行目からA、B、C、E、F、F、H B列に、1行目からA、B、D、E、F、G、I （カンマは実際にはありません。） というような文字列データがある場合 別シートに A列に、1行目からA、B、C、空、E、F、F、空、H、空、 B列に、1行目からA、B、空、D、E、F、空、G、空、I、 （空は空白セルの意味です。） というように、お互いが一致しない場合は空白で飛ばし、一致するものは同じ行にするにはどのような方法がよろしいでしょうか？ 例のように少ないデータなら目で見て手作業でできますが、実際は千件以上のデータです。 VBAでも関数でも結構です。よろしくお願いします。

  • エクセルのマクロでこういう場合は？

    エクセル９７です。 Sheet1の E3:J29 に表があります。 E列、F列は文字列、G列は数値、H～J列には式が入っています。 この表の G列の値が空白や０でない行だけをコピーして、Sheet2 のB2 以下に切れ目なく表の「値」を貼り付けるにはどうのようなマクロを書けばいいのでしょうか？（G列が空白や０の行はSheet2の表では一切無視され、空白行ができないようにしたいのです。） よろしくお願いします。

  • Excel,VBA シートの自動作成、データ

    Sheet 1 に住所録 Sheet 2～50までに同じフォーマットで A 　B　　C～E F～H No. 名前 S～L S～L と並んでいてA4から名前　C～の列には各数量が50行ほど入力されています。 Sheet 2～50 までを名前ごとにまとめたSheet を自動で作成したいです。 Sheet1とSheet2～50の名前順は同じです。 例 Sheet51 シート名 Aさん 　　　DEF列 　　　SML 1行目1,2,3(Sheet2AさんのC～E数量) 2行目2,2,2(Sheet2AさんのF～G数量) 3行目2,2,2(Sheet3AさんのC～E数量) 4行目4,4,4(Sheet3AさんのF～G数量) 同じようにSheet 53　Bさん となるようにループする方法をご教授ください。 よろしくお願い致します。

  • エクセル　VBA

    最終行から順番に下へ同列で入力するＶＢＡを教えて下さい。 ＥＸＣＥＬのＶＢＡで教えて下さい。 シート1のＡ列にはB列が入力されると自動入力されるNo.があり、C～G列もB列が入力されると自動入力されます。 B列には日付が、H列には３～4桁の数字が入力したいのですが、 入力行は必ず最下行のセルB、Gな為、VBAでフォームを作成し、 入力実行ボタンを押すことにより、最下行のセルB、Gに反映されるように したいです。 又、上記入力後に、シート2のH～N列をコピーして、シート3のA～G列に値のみの貼り付けを行い保存した後、シート3のA～G列をコピーして ｃｓｖファイルを作成して保存したいです。 一連の流れを、フォームの入力実行ボタンを押すことで実行したいのですができるのでしょうか？ 宜しく御願い致します。

  • CSVファイルの取り込みについて

    CSV取り込み方法について 教えていただきたくお願いいたします。 エクセルのマクロ・VBAの組み方について デスクトップ上の000という名前のCSVファイルを、作業しているエクセルファイルのLoadという名前のシートに貼り付けたいと思っています。 CSVファイルはエクセルで開くと1行に11列の項目が展開されています。 貼り付ける項目はこのようになります。 （CSV）　→（エクセルのLoadシート） 1列目（A行）→B行へ ２列目　　　→C行へ 3列目　　　→D行へ 4列目　　　→E行へ 5列目　　　→F行へ 9列目　　　→G行へ 10列目　　→H行へ 11列目　　→I行へ （６．７．８列目は使いません） 最後にLoadのシートのA行に”＝B&E”とい式を入力したいと思っています。 まだ初心者なので勉強中なのですが、仕事上急遽必要になりましたのでお願いいたします。

  • エクセル関数の自動表示について

    自動表示についてご質問いたします。 シート1　（３月入力時） 　　　　　 Ａ列　　Ｂ列 　Ｃ列　 Ｄ列　 Ｅ列 　Ｆ列 　Ｇ列　　Ｈ列 １行目　　１月　　　２　　１０　　１１　　１２　　３０　　３１　　３３ ２行目　　２月　　　１　　　２　　　５　　　８　　　９　　１０　　４８ ３行目　　３月　　　３　　　５　　１０　　１１　　３０　　３１　　３２ ４行目　　４月　　 こういうシート1の表があったとします。 シート１で3月入力した時点で、シート2では以下の表があったとします。 　　　　　 　Ａ列　　Ｂ列 　Ｃ列　 Ｄ列　 Ｅ列 　Ｆ列 　Ｇ列　　 １行目　　　　３　　　５　　１０　　１１　　３０　　３１　　３２ と、自動で表示され。 4月（シート１）に数値を入力すれば、シート２の数値が最新数値に自動で入れ替わる・・・と、いう関数を作りたいのですが、いい関数ありますでしょうか？ この場合、シート１ではB列～H列の数字の個数は固定（今回は7個）であり、毎回ランダムで数字が入力されていきます。 これをシート2の1行目、A列～G列に最新数値を毎回反映させて、表示したいのです。 どなたか、ご存知の方よろしくお願いします＾＾；

  • 【Excel VBA】ThisWorkbook モジュールのマクロ

    Excel2003を使用しています。 39枚のシートから成るBook1のThisWorkbook モジュールに、C列に“○月計”と入力されたら、その行のE列、F列、G列へ数式を入力するコードを書いています。 現在は、それぞれのシート(39枚のシートのうち3枚を除く36枚)のC列最終行から2行下のセルへ“○月計”と手入力していますが、マクロで“○月計”と入力されるようにすれば、ThisWorkbook モジュールに書いているコードも実行されて、数式の入力までマクロで処理できるのかな？と思い、試しに、36枚それぞれシートのC列最終行から2行下のセルへ“○月計”と入力されるようコードを書いてみました。 …が、そうではないのか、それぞれのシートのC列最終行から2行下のセルへ“○月計”と入力されるものの、E列、F列、G列へ数式は入力されません。 せっかくなので、できることなら数式の入力までマクロで処理したいのですが、どのようにしたらThisWorkbook モジュールに書いているコードまで実行されるのでしょうか？ よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する