VBAで同じ値の時にその一行をコピペして持ってくるという式を作りたいです。

L列の黄色の枠内の数字とA列の数字が一致すれば、
黄色列の同数の行のM～Pまでをコピーして
同じ数字の赤い範囲へ入れる・・・という式を作りたいです。

（添付画像２枚目のような形になりたいです。）


Sub Sample()
    Dim ret As Variant

    On Error GoTo Err_Trap
    
    
    For i = 1 To Worksheets("Sheet1").UsedRange.Rows.Count
    
    k = Application.WorksheetFunction.Match(Cells(i, 1), Columns(12), 0)
   
    
    Worksheets("Sheet1").Cell(k, 12).Copy = Worksheets("Sheet1").Cell(i, 2)
    
   

    Exit Sub

meg_

2019/08/15 09:36

Sample()を動かした結果はどうなるのでしょうか？動作結果も合わせて載せていだだくと分かりやすいです。その上で分からない箇所を提示ください。

行動規範の内容に同意します

回答1件

ベストアンサー

データ量が少ない場合。For-Next構文の２重ループで簡単に実現できます。

VBA
1Sub sample()
2    Dim i As Long, j As Long
3    For i = 1 To Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
4        For j = 1 To Worksheets("Sheet1").Range("L" & Rows.Count).End(xlUp).Row
5            If Worksheets("Sheet1").Range("A" & i).Value = _
6              Worksheets("Sheet1").Range("L" & j).Value Then
7                Worksheets("Sheet1").Range("B" & i & ":E" & i).Clear
8                Worksheets("Sheet1").Range("B" & i & ":E" & i).Value = _
9                  Worksheets("Sheet1").Range("M" & j & ":P" & j).Value
10                Exit For
11            End If
12        Next j
13    Next i
14End Sub