- ベストアンサー
エクセルマクロでVlookupに類似したマクロを作成する方法
nihonjinnの回答
- nihonjinn
- ベストアンサー率39% (79/200)
カラムA（列A)での並び替えで一気にできそうな気もするのですが・・・もう少し具体的な内容を知りたいところです。 とりあえずワークシート関数はマクロで Application.WorksheetFunctionの後に関数を入れて使うことはできます。 Application.WorksheetFunction.VLookup(～)みたいな感じです。 セル範囲の所はRangeやCellを用いてください。
関連するQ&A
- エクセルマクロの件
AとBにあるデータの一覧をCにコピーして、全体を日付順にソートするという処理をしたいと思っています。 そこでエクセルマクロにて （１） Ａのデータの必要部分をコピー、Ｃに貼り付け （２） Ｂのデータの必要部分をコピー、Ｃに貼り付け （３） 全体を日付順にソート というものができました。 ただ、Ｂのデータを貼り付ける位置で問題が発生しています。 仮に、Ａに200行までのデータが入っている場合、Ｂのデータを201行目に張り付けすれば問題ありませんが、Ａのデータが増えたときにはＡのデータの201行目以降はＢのデータで上書きされてしまいます。 そこで、Ｂのデータを上記の例だと250行目あたりに張り付けするようにマクロを変えると、なぜかＢのデータは一切Ｃに反映されなくなってしまいます。 この理由と、上記の対策があれば教えていただければと思います。 ちなみに、現在設定されているマクロは以下の通りです。 自動記録にてつくってあるので無駄な部分もあるかと思いますが、よろしければご覧いただければと思います。 Sheets("Ａのシート").Select ActiveWindow.SmallScroll Down:=-138 Range("A4:O200").Select Selection.Copy Sheets("Ｃのシート").Select ActiveWindow.SmallScroll Down:=-162 Range("A4").Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("Ｂのシート").Select Range("G25:G28").Select Range("G28").Activate ActiveWindow.SmallScroll Down:=-30 Range("A4:O120").Select Selection.Copy Sheets("Ｃのシート").Select ActiveWindow.SmallScroll Down:=147 Range("A181").Select ActiveSheet.Paste Cells.Select Range("A4:O200").Select Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Key2:=Range("D4") _ , Order2:=xlAscending, Key3:=Range("E4"), Order3:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:= _ xlSortNormal, DataOption3:=xlSortNormal End Sub
- ベストアンサー
- オフィス系ソフト
- EXCELのマクロについて
EXCELのマクロについて質問させてください。 一覧シートから、職種別の各シートへ集計（貼り付け）が出来るような プログラムを作成したいのでやってみたところ、私の知識では上手く出来ませんでした。 お力をお借り出来ると幸いです。 具体的には、一覧シートへ入力後（毎月入力） 『A』 『B』 『E』と分かれた職種別の各シートへ職種別かつ氏名の昇順でソートが掛かった状態で 貼り付け？集計？が出来るようにしたいです。 一覧シートのB列には「A・B・E」のどれかの職種が入力されており 氏名はD列E列へ記載しています。（漢字、カナ表示） A～AD列までデータを記入していますので、全て各シートへ集計出来ると嬉しいのですが・・・ 行は8行目から記載してます。 上記のようにプログラムを組む事は可能でしょうか。 具体的なプログラムも載せて頂けると嬉しいです。 宜しくお願い致します。
- ベストアンサー
- Visual Basic
- 重複行削除のマクロ
重複行を削除するマクロを作っていますが、うまくいきません。 2行目にタイトルが入っていて、3行目以降が必要なデータになります。 この中でA列が一致しているデータ行を削除したいと考えており、 重複データが削除された後、タイトル行がなぜか一番下の行にはりついてしまいます。 どなたか詳しい方助けてください！！！よろしくお願いします。 ちなみに以下が現在使用しているVBAコードです。 =============================================================== Sub GoodRemoveDuplicates() 'A列にデータが入力されており、そのデータを並べ替えた後、 '重複するデータが含まれている行を削除するマクロ Worksheets("貼り付け用用マクロ").Range("A1").Sort _ key1:=Worksheets("貼り付け用用マクロ").Range("A1") Set currentCell = Worksheets("貼り付け用用マクロ").Range("A1") Do While Not IsEmpty(currentCell) Set nextCell = currentCell.Offset(1, 0) If nextCell.Value = currentCell.Value Then currentCell.EntireRow.Delete End If Set currentCell = nextCell Loop End Sub ===============================================================
- ベストアンサー
- Visual Basic
- 【再】エクセル2013 マクロをご教示ください
Sheet1で選択しているセルの行をSheet2に転写したいです。 Sheet1とSheet2の4行目に見出し。 Shet1にはA～U列までデータがあります。(途中空白セルの場合もあり) Sheet1の5行目以降の、あるセルを選択してマクロを実行すると Sheet1のC～S列までをSheet2のA～Q列へコピペしたいです。 Sheet1は H列に必ずデータがあるので それらを最終行の判断基準とします。 Sheet1での選択セルは複数の場合もあります。 ただし、同じ行のセルを複数選択しても Sheet2への貼り付けは1行とします。 マクロを実行する度に、Sheet1での選択セルの該当行が Sheet2へ追加されるようにしたいです。 (Sheet2へコピペされたデータは残します) また、Sheet2への貼り付け内容が同じだった場合は 注意喚起のため メッセージで 「重複データが存在します」を表示したいです。 重複の判断基準はSheet2の B、D、F列とします。 宜しくお願い致します。
- ベストアンサー
- Excel（エクセル）
- エクセルマクロの構文
エクセルマクロに関してご教示いただきたく存じます。 下記の手順を1つのマクロで実行したい場合、どのような構文を書けば実現できますでしょうか？ 前提： ・エクセル中、シート(1)、シート(2)を準備。 ・シート(1)には毎日1日分のデータを入力（例えば、1行目の経費項目、金額、経費支払者 の3カラムヘッダーの下に、2行目から1日分のレコードを入力していく） ・シート(2)には毎日の日別データを累積していく（例えば、シート(1)に1日目で10レコード、2日目で15レコード、3日目で20レコードの場合、3日目終了時に計45レコードにしたい。1行目の経費項目、金額、経費支払者 の3カラムヘッダーはシート(1)と同様） マクロ実行： ・シート(1)に1日目のデータ入力（10レコード）が終わった段階で、ボタンを押し、下記マクロを実行 (1)シート(1)の10レコード（A2:C11）を、シート(2)のA2:C11にコピー (2)シート(1)の10レコード（A2:C11）を、削除（データクリア） ・シート(1)に2日目のデータ入力（15レコード）が終わった段階で、上記と同じボタンを押し、下記のマクロを実行 (1)シート(1)の15レコード（A2:C16）を、シート(2)のA12:C26にコピー（シート(2)において1日目のデータの次に累積させていく） (2)シート(1)の15レコード（A2:C16）を、削除（データクリア） ・シート(1)に3日目のデータ入力（20レコード）が終わった段階で、上記と同じボタンを押し、下記のマクロを実行 (1)シート(1)の20レコード（A2:C21）を、シート(2)のA27:C46にコピー（シート(2)において1日目のデータの次に累積させていく） (2)シート(1)の20レコード（A2:C21）を、削除（データクリア） ・4日目以降、同じボタンでマクロを実行する度に、シート(1)のデータがシート(2)の47行目以降、空白なく追加されていく 以上、皆様のお知恵をお貸しください。
- 締切済み
- Excel（エクセル）
- Excel 2007 マクロ 表の貼り付け
Excel 2007 マクロ 表の貼り付け Excel 2007 マクロ 表の貼り付けについて教えてください。 <Sheet1>の表にあるA2からD4を <Sheet2>に値貼り付けをします。 表は画像を添付します。 マクロの記録では下記内容になります。 Sub Macro1() ' ' Macro1 Macro ' ' Range("A2:D4").Select Selection.Copy Sheets("Sheet2").Select Range("A2:D4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub <Sheet1>のA列の行の増減にかかわらず、<Sheet2>に貼り付けることができるように するにはどのようにマクロを修正すればよろしいでしょうか。
- ベストアンサー
- その他MS Office製品
- EXCELのマクロにて
EXCELのにて連続したデータを入力したデータベースがあります。（行が5000、列がAAまで） このデータベースのデータの最終行だけを指定して違うシートにコピー・貼り付けがしたいのです。 マクロにてこのような作業をするときにはどういった文をかけばよいですか。
- ベストアンサー
- オフィス系ソフト
- 行コピーして、今日の日付の行に貼り付けるマクロ
こんにちは、エクセルマクロについて、助けて頂きたく質問させていただきました。 添付しました画像のような表があり、 セルA2に「=TODAY()」が入っていて、セルB2から右は別シートのデータを参照しています。 マクロを実行すると、2行目を行コピーし、セルA3以下の日付からセルA2の日付（今日の日付）を探し出して、行貼り付けしてほしいです。 行コピーや値で貼り付けはマクロの記録を使って、詳しくない私でもなんとか作ることはできるのですが、 今日の日付を探し出して、そこに貼り付ける。というマクロは作れませんでした・・・。 お助け下さい、宜しくお願いします！ ※補足します セルA2の今日の日付は便宜上入力しているだけです。無い方がマクロを組みやすいのなら、無くせます。
- ベストアンサー
- Visual Basic
- EXCELのマクロがわかりません・・・
現在、A列にデータが並んでいるのですが、 これを７つ区切り（例：A1～A7、A15～A21）にして、 別シートに用意した表に行列を入れ替えて、 貼り付けるマクロを作っているのですが、 なにぶんVBは素人ですので、よくわかりません。 今作ろうとしているマクロは、 「元データ」セルのA1からA7までをコピーして、 「作成データ」セルのB2を起点として、 コピーした内容の行列入れ替えを行い貼り付け、 以後、「元データ」のコピー範囲を7つづつ 下にずらし、「作成データ」の貼り付け起点を １つづつ下にずらして、「元データ」のA列の 最後までくりかえすものです。 必ず「Range」文で引っかかってしまうのですが、 何か構文的におかしいでしょうか？ かなり急ぎですので、 わかる方、よろしくお願いしますっ！！ 下に、作成したマクロを貼り付けます。 Sub Macro3() ' ' Macro3 Macro ' マクロ記録日 : 2005/12/5 ユーザー名 : *** Worksheets("元データ").Activate 開始行 = -6 終了行 = 0 ペースト行 = 0 Do 開始行 = 開始行 + 7 終了行 = 終了行 + 7 ペースト行 = ペースト行 + 1 開始セル番号 = "A" & 開始行 終了セル番号 = "A" & 終了行 ペーストセル番号 = "B" & ペースト行 Range("開始セル番号:終了セル番号").Select Selection.Copy Sheets("作成データ").Select Range(ペーストセル番号).Select Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ , Transpose:=True Loop End Sub
- ベストアンサー
- オフィス系ソフト
- EXCELマクロ 検索 VLOOKUP
Excelマクロで 検索とその結果のコピーを行いたいのですが、全くの素人のためご教授願えればと思います。 Excel2002で 2つの表から共通する部分をKEYに付随するデータ抜き出したいと思っています。関数ＶＬＯＯＫＵＰを使えば簡単な作業かと思いますがＶＢＡではそのＶＬＯＯＫＵＰやＦＩＮＤ、それにＬＯＯＰなどの使い方が今ひとつ理解 できません。 具体例として 表1には A-Z列まで約1000行のデータが存在します。 表2は表1と同じシート上の直ぐ隣列AA-AK列まで表1より必ず多い行数のデータが存在します。また表1のA列にあるデータは すべて必ず表2のAA列に含まれます。 行いたい作業は、VLOOKUPのような検索で、表1A列と表2AA列に共通したデータがあった場合、表2の該当セルを基準としてALからBJ列セルに表1の該当行のデータB-Z列をすべてコピー貼り付けすることです。 Ａ・ＡＡ列とも同列内では重複も空白もなくソートされています。 これら以外の列には同じＶａｌｕｅのデータや空白が存在します。またデータ件数（行数）も表1・2とも一定ではなく都度変動します。 解りやすくご説明いただけると幸いです。宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
詳細が伝わらず申し訳ありません。 コラムA B C D E 通貨 番号 ＠＠ ＠＠ 金額 total Total Total Total Total TotalJPY TotalJPY TotalJPY TotalJPY TotalJPY AUD 111 222 121 131000 EUR 131 151 171 500 というようなシートになっており、これをsortしていきます。 まずTotal行はいらないので並べかえ、最初のtotal行以降を削除します。 次にまたsortで通過毎に並び変えます。 その後、並び変えたデータを違うエクセルワークブック（以下ブック(2)）に貼り付けます。 コラムAがAUDであれば、ブック(2)のAUD（sheet2を自分でRenameした）のシートのA1に貼り付ける、コラムAがEURならブック(2)のEUR（sheet3を自分でRename）のA1に貼り付けるとしていきたいのです。 第一回の並び変えはマクロの記録でやりました。 その後の作業のマクロがわかりません。 ・最初のtotal行にセルを持っていくマクロが不明。 ・毎回データ数が違う為、AUDをコピーするにも何行目から何行目と決まっていないのでどう処理していいのか不明。 どうぞ宜しくお願い致します。