• 締切済み

excel2000マクロ操作

nishi6の回答

  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.3

想像して書いてみました。 Sheet1のデータをSheet2に挿入します。 Sheet2のUHRSEMがA1セルにあるとします。 標準モジュールに貼り付けます。ご参考に。 Public Sub Syukei()   Dim wsDat As Worksheet '1枚目の表あるシート   Dim wsIns As Worksheet '2枚目の表あるシート     Set wsDat = Worksheets("Sheet1")     Set wsIns = Worksheets("Sheet2")   Dim col1 As Integer, col2 As Integer '列カウンタ   With wsIns 'コードを調べる     For col2 = 1 To .Range("A1").End(xlToRight).Column       For col1 = wsDat.Range("E1").Column To wsDat.Range("F1").Column         If .Cells(1, col2) = wsDat.Cells(1, col1) Then           .Cells(2, col2) = wsDat.Cells(2, col1)         End If       Next     Next   End With End Sub

noname#72697
質問者

補足

回答ありがとうございました。また質問ですが Sheet1の2行目のデータは、Sheet2に挿入できたのですが、例えば3行目から50行目に入っているデータ はどうやって挿入できるのですか。教えてください。 お忙しい所申し訳ありません。

関連するQ&A

  • エクセル2000マクロ操作について

    部門コード UHRSEM SEMEDS S570SEM D-SEM TEM ウルトラミクロトーム CKY000      CY6B4Z      C27600 5.0 --------------------------------------------------------------------------------- UHRSEM      C27600 U5909 2.0 30000 UHRSEM      C27600 U5909 3.0 45000 バイブロン C27600 U5909 5.0 30000 上記の2つのデータ表がありまして、上の表の部門コード&UHRSEMが下の表と同じであれば下の表の合計5.0の値を 上の表のUHRSEMの列に合計の値(5.0)を挿入するマクロの操作を教えて下さい。

  • excel2000マクロ記述

    シート名JISEKIの中のF列には2行目から4桁のコードが入っています。 X列の2行目から数値データが入っています。 条件としてF列のコードがA310又はA505で、X列の数値がマイナスの場合は、 R列からW列の数値データを非表示にしたい。 これをマクロ化したいのですが、記述の仕方を教えてください。

  • 難しい挿入マクロを教えて下さい

    下の図では 小さくて 分かり難く すみません。 いろいろ調べてみましたが、とても難しく、限界です。ご指導をお願いしたくて、質問させていただきます。   あるフォルダに、『商品コード.xls 』(B列とC列だけのデータ)というブックと、 『データ【1】.xls 』 という名前のブックが【1】~【76】まで(様式は全部おなじ) 全部で 77個のブックがあります。   『商品コード.xls 』のコードを基準にして、『データ【1】.xls 』 ~ 『データ【76】.xls 』 の 全てのデータのD列を検索し、 E列を挿入して、商品を記入したいのです。   その場合、 『商品コード.xls 』のB列(商品コード)と、 『データ【1】.xls 』 ~ 『データ【76】.xls 』 のD列の英字が、全半角・大小文字が混在していますので、 これを、半角大文字に揃えてから検索・・・・そんな わがままなマクロは可能でしょうか?   そして、もうひとつ、 『データ【1】.xls 』 ~ 『データ【76】.xls 』 にE列を挿入・検索後、 ひとつひとつのブックをみていき、E列に商品名がついてないコード(『商品コード.xls 』にないもの)を 新たに作り、 基準となる『商品コード.xls 』に追加し(更新)、 更新された『商品コード.xls 』で再度 76個全てを検索し直します。   一度 E列を挿入・商品を記入した後、更新した『商品コード.xls 』で再び検索するというマクロは、 コードのどこかの箇所を変更すれば、対応できるでしょうか? それとも、もう一度 作りなおすことになるのでしょうか? わがまま過ぎる、勝手なお願いですが、  ご指導、よろしくお願いします!     ※『商品コード.xls 』の行は、約 1,000行    『データ【1】.xls 』 ~ 『データ【76】.xls 』 の行は それぞれちがいますが、    少ないデータで約200行、多いものは 5万行ほどもあります。

  • Excel2000で2つの列を見比べるマクロ

    例えば、先月に売れたものの一覧表のシートと、取扱商品の一覧表シートがあるとします。 どちらも商品コードが先頭にあるので、 その売れたものの商品コードと一覧表の商品コードとをコピーしてきて 別のシートに貼り付けます。 売れたものの商品コードがA列、取扱商品の商品コードがB列。 当然、B列には、A列に無い商品コードがあります。 二つの列を見比べて、A列に足りないものがあれば A列の末尾にコピーをするというようなことはできないでしょうか? 末尾にコピーが無理ならば、A列に無いものだけをC列にコピーするようなことはできないでしょうか? 宜しくお願いいたします。

  • excel2000マクロ記述方法

    抽出条件方法のマクロ記述 1つのファイルのシートの中にデータがあります。 例ファイル名a.xlsシート名マスター     B列 C列   D列    E列 項目名 倉庫  翻訳  ソート  非表示項目     A057 レオナ工場  1     A870 セ新港    2    Y     A887 セ日向    3 もう1つのファイル 例ファイル名B.xlsシート名WORK     A列   B列   c列    d列    E列    連結コード  品名  倉庫 出荷1  加工1  AA 0G120 0G120  A870 0 0 0 AA 0H120 0H120  A057 0 0 0 AA 0S0100 0S010  A887 0 0 0 抽出条件方法 シート名WORKのデータの中のC列と、シート名マスターのB列の倉庫を参照して 非表示項目のYが入っていない、倉庫と同じデータをシート名WORKのデータを抽出したい 場合のマクロ記述の方法を教えてください。よろしくお願いします。 (抽出表示方法) AA 0H120 0H120  A057 0 0 0 AA 0S0100 0S010  A887 0 0 0     

  • excel2000マクロ抽出方法

    2つのファイルがあります。ブック名A.XLS シート名 WORK              ブック名b.XLS シート名 SORT              ブック名A.XLS シート名 WORKに下記のデータが入っています。 AD 1300G A227550 000PA505(C列2行目) 200112(F列)200201(G列)200202(H列)200203(I列)200204(J列)200205(K列)→1行目固定データ AD 1300G A227550 000PA533(C列3行目)   ブック名b.XLS シート名 SORTに下記のデータが入っています。 AD 1300G A227550 000PA505(A列2行目)200112(E列)200201(F列)200202(G列)200203(H列)200204(I列)200205(J列) →1行目E列~J列のデータは都度変わっている AD 1300G A227550 000PA533(A列3行目)    データ抽出条件  ブック名A.XLS シート名 WORKの F列~K列の1行目の列データとブック名b.XLS シート名 SORTの  E列~J列の1行目の列データが同じで、ブック名A.XLS シート名 WORKのC列の2行目以降のコードと  ブック名b.XLS シート名 SORTのA列の2行目以降のコードが同じだったら  ブック名b.XLS シート名 WORKの E列~J列の同じ行にデータを入れる。違うときは、  ブック名b.XLS シート名 WORKのデータはそのままにする。 上記の条件を満たしたマクロの記述の仕方を教えてください。 以上よろしくお願いします。

  • Excel並べ替えマクロ

    よろしくお願いします。 Excel並べ替えマクロについて質問なのですが、画像を見ていただきたいのですが、 前提条件としてL列~S列までは画像とるために非表示にしてあります。 又非表示にしてありますがQ列は区切り線でQより右側と左側は支店Aと支店Bのデータになります。※左側データの支店Aのデータを基準にします。 (1)D列を名称ごとに並べ替えします。 (2)E列を名称ごとに並べ替えします。 (3)E列の名称ごとにJ列の高い順に並べ替えします。 (4)左側の支店Bも基準となる支店Aと比較できるように横並びに見れるようにします。 (5)横並びにできたらE列の名称ごとに太線で分けます。 どうぞよろしくお願いいたします。

  • エクセルのマクロについて

    エクセルでマクロを組んでいますが、ひとつだけ再現できず困っています。 A1からE100までの表で、A列からD列までの数値をE列で○と×で判定します。 この時、E列が○の場合にA,B,D列のデータをクリアしたいのです。 マクロのコードがわかれば助かります。よろしくお願いします。

  • 【Excel VBA】データを集計する数式を入力するマクロ

    Excel2003を使用しています。   A列   B列   C列   D列   E列   F列 1      9/1                    20000 2      9/2              1000 3      9/10              5000 : : 10           9月計        ※1    ※2    11 12 13     10/1                   10000 14     10/10             2000 15     10/14                   4000 : : 20           10月計       ※3    ※4 上記のデータでいうと、 ※1(E10セル) =SUM(E1:E9) ※2(F10セル) =SUM(F1:F9) ※3(E20セル) =SUM(E13:E19) ※4(F20セル) =SUM(F13:F19) という内容の数式を入力するマクロを作成したく、数式を入力したいセルをアクティブにして、ボタン等に登録したマクロを実行すると数式が入力されるようにしたいと考えていますが、その際、集計範囲の最下行は、アクティブセルの1行上までになりますが、最上行をどのようにして取得すればよいかがわかりません。 (実際のデータは、もっと行数も入力されているデータ数も多いです) また、他にもこんな方法があるとか、こうしたほうが簡単とかあれば、教えていただけると勉強にもなりますので助かります。 うまく説明できなくて申し訳ありませんが、よろしくお願いします。

  • マクロについて教えてください

    エクセルで作った表のマクロを作りたいと思っています。 抽出した新規のデータと更新データを比較して、 重複することのないデータを作りたいのです。 抽出したデータのファイル名は、どちらも「EXCELデータ」となっています。 シート名はどちらも「データ」です。 表はどちらのシートとも、A列からJ列まであります。 (データの並び順は同じです。) 両方のシートから、下記1~3の条件のデータを取り出して、 新しいシートに書き出したいと思っています。 A     B   C     D      E    F    G     H   I    J 番号 名前 区分 ジャンル 決定日 締切日 コード 社名 価格 区分 1 C列とG列を削除する 2 J列に「1」が記入してあるものを抽出する 3 B列に「初回」と言う文字が含まれているものを、抽出する。 新規分と更新分のデータをA列で比較し、 重複しているものについては色をつける。 というようなものを作りたいのです。 出来れば、ファイルやシートの名前を変えないで作りたいのですが、 変更をすることも可能です。 どなたか教えてください。宜しくお願いします。