
こんにちは。
業務でエクセルを使っていたのですが、
あまりに毎回時間がかかってしまうため、
VBAを利用して自動化したいと考えています。
まず、以下のようなシートが存在します。
A B C D E F G H
1
2 なす とまと 3 20
3 かぼちゃ えんどう 4 55
4 きゅうり りんご 2 82
5 とまと
6
7 みかん 3 10
8 にんじん ごぼう 9 21
9 はくさい うり 10 33
10 ねぎ
次のような作業を自動化したいのです。
1.A列に入っている野菜の名前と一致するものがF列にあるかどうか検索する。
2.もし一致するセルがあれば、そのセルとその横のセル、もう一つ横のセルをまとめてコピーしてそれぞれC、D、E列で、検索したもとの野菜と同じ行にペーストする。
3.この操作をA列にある全ての野菜について行い、
もし、F列に一致するものがなければ、CDE列は空欄にしておく。
4.A列一番下まで完了すれば作業終了。
以上です。
よろしくお願い致します。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
VLOOKUP関数を利用していますか。
利用しているなら、「あまりに毎回時間がかかってしまうため」とはどんなことですか。あるいは不便がありますか。
もし使ってないなら、それでは、「「業務」でエクセルを使っている」とはいえないぐらいの、重要な関数です。使ってください。
またVBAでWorksheetFunctionでVLOOKUPを使うことができます。
For Nextで全件比較を繰り回すのは、好きじゃない。
Findというメソッドもありますが。
No.3
- 回答日時:
No2です。
先ほどのでも大丈夫とは思いますが、念のため一箇所だけ修正しました。(点が一個抜けていました)
Sub 照合貼付()
Dim gA As Integer 'A列最大行
Dim gF As Integer 'F列最大行
Dim i As Integer 'ループ用
Dim n As Integer 'ループ用
With ActiveSheet
gA = .Range("A65536").End(xlUp).Row
gF = .Range("F65536").End(xlUp).Row
For i = 1 To gF
For n = 1 To gA
If .Cells(n, "A") <> "" Then '空白でない場合
If .Cells(n, "A") = .Cells(i, "F") Then '同一データがあったら
.Cells(n, "A").Offset(0, 1).Resize(1, 3).Value = .Cells(i, "F").Resize(1, 3).Value '転記
End If
End If
Next
Next
End With
End Sub
No.2
- 回答日時:
> 2.もし一致するセルがあれば、そのセルとその横のセル、もう一つ横のセルをまとめてコピー
FGH列をC、D、E列にですね?野菜名が重複するようですが・・・。
一応これで動くと思います。
Sub 照合貼付()
Dim gA As Integer 'A列最大行
Dim gF As Integer 'F列最大行
Dim i As Integer 'ループ用
Dim n As Integer 'ループ用
With ActiveSheet
gA = .Range("A65536").End(xlUp).Row
gF = .Range("F65536").End(xlUp).Row
For i = 1 To gF
For n = 1 To gA
If .Cells(n, "A") <> "" Then '空白でない場合
If .Cells(n, "A") = Cells(i, "F") Then '同一データがあったら
.Cells(n, "A").Offset(0, 1).Resize(1, 3).Value = .Cells(i, "F").Resize(1, 3).Value '転記
End If
End If
Next
Next
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
-
4
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
5
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
6
EXCEL VBAで文字列の検索とコピー
Excel(エクセル)
-
7
VBAで検索して、行をコピー&追加したい
Excel(エクセル)
-
8
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
9
VBA 別シートの同じ日付の欄に値を貼付け
Excel(エクセル)
-
10
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
11
VBAで条件が一致する行をコピーしその1つ下へ挿入
Excel(エクセル)
-
12
VBA 別ブックから条件に合うものを転記したいです
Visual Basic(VBA)
-
13
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
14
セルの値と同じ名前のシートをアクティブにするには?
Excel(エクセル)
-
15
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
16
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
17
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
18
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
-
19
VBA 空白行に転記する
Visual Basic(VBA)
-
20
VBA別シートの最終行の次行へ転記したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vba 2つの条件が一致したら...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
Changeイベントでの複数セルの...
-
B列の最終行までA列をオート...
-
VBA 何かしら文字が入っていたら
-
【VBA】2つのシートの値を比較...
-
Cellsのかっこの中はどっちが行...
-
IIF関数の使い方
-
C# dataGridViewの値だけクリア
-
VBAを使って検索したセルをコピ...
-
エクセル 2つの表の並べ替え
-
VBAコンボボックスで選択した値...
-
二つのリストを比べて部分一致...
-
VBAのFind関数で結合セルを検索...
-
DataGridViewに空白がある場合...
-
VBAで、特定の文字より後を削除...
-
VBAで指定範囲内の空白セルを左...
-
【Excel VBA】カンマと改行コー...
-
VBAでのリスト不一致抽出について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで、あるセルの値に応じて...
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
vba 2つの条件が一致したら...
-
【VBA】2つのシートの値を比較...
-
B列の最終行までA列をオート...
-
IIF関数の使い方
-
URLのリンク切れをマクロを使っ...
-
VBAを使って検索したセルをコピ...
-
DataGridViewに空白がある場合...
-
VBA 何かしら文字が入っていたら
-
VBAのFind関数で結合セルを検索...
-
複数の列の値を結合して別の列...
-
VBAでのリスト不一致抽出について
-
データグリッドビューの一番最...
-
VBAで指定範囲内の空白セルを左...
-
rowsとcolsの意味
-
【Excel VBA】 B列に特定の文字...
-
VBAで、特定の文字より後を削除...
-
エクセル 2つの表の並べ替え
おすすめ情報