|
ガネーシャ さん、こんばんわ。
>マスタのシート(wsa)があり、
>それは完全に罫線のみでセルは空白です。
>wsaの任意の列(B5、B6、、)に、
>別のシート(wss)の任意の列の内容(C5、C6、、)を貼り付けたいです。
>
>それを貼り付ける際条件がありまして、
>wssのL列に"DC"と入っている場合のみ、
>その行のC列目をwsaに貼り付けたいのです。
Sub test()
Dim wsa As Worksheet, wss As Worksheet
Dim Rmax As Long
Dim i As Long, r As Long
Dim D As String
'
Set wsa = ThisWorkbook.Worksheets("マスタ")
Set wss = ThisWorkbook.Worksheets("4月")
Rmax = wss.Range("L65536").End(xlUp).Row '集計シート最下行*キーになるL列で判定
D = "DC" 'L列の一致を確認
i = 5 '転記先(マスターの書き出し開始行)
With wss
For r = 5 To Rmax
If .Cells(r, "L").Value = D Then
wsa.Cells(i, "B").Value = .Cells(r, "C").Value
i = i + 1 'ひとつ下
End If
Next r
End With
'
Set wsa = Nothing: Set wss = Nothing
End Sub
こんな感じです。
|
|