|
マスタのシート(wsa)があり、
それは完全に罫線のみでセルは空白です。
wsaの任意の列(B5、B6、、)に、
別のシート(wss)の任意の列の内容(C5、C6、、)を貼り付けたいです。
それを貼り付ける際条件がありまして、
wssのL列に"DC"と入っている場合のみ、
その行のC列目をwsaに貼り付けたいのです。
(wss)
A B C D E・・・L
1 米 DC
2 米
3 麦5 DC
4 米 DC
5 麦5
↓
↓
(wsa)
A B C D E
1 米
2 麦5
3 米
4
5
という様に、上から順に羅列されるようにしたいです。
−−
Select Case (月コンボ)
Case "4月"
Dim wsa As Worksheet
Dim wss As Worksheet
Dim i As Long
Dim D As String
Dim App As Range
Dim Ans As Single
Dim Rmax As Long
Set wsa = ThisWorkbook.Worksheets("マスタ")
Set wss = ThisWorkbook.Worksheets("4月")
Rmax = wss.Range("L65536").End(xlUp).Row '集計シート最下行*キーになるL列で判定
D = "DC"
i = 5 '開始行
With wss
For i = 5 To Rmax
For Each App In .Range("L5:L" & Rmax) 'wssのL5〜L最終行まで"
If App.Value = B Then 'L* が B031 だったとき
Ans = Ans + CLng(.Range("C" & App.Row).Value)
End If
Next
wsa.Range("B" & i).Value = Ans
Next i
End With
−−
上記で組んでみたのですが、
思い通りには動きませんでした。
|
|