|
▼UO3 さん:
自己解決出来ました!
下記に最終落着きました。ありがとうございました。
基本的なことで申し訳ありませんが、E列とF列の数字を比べて違っていれば
F列の数字を太字の赤字に表示したいです。
表の開始は5行目からです。
シート自体にこれを設定したいです。宜しくお願いします。
Sub 実績計算()
Dim dic As Object
Dim c As Range
Dim v() As Variant
Dim z As Long
Dim key As String
Dim i As Long
Set dic = CreateObject("Scripting.Dictionary")
With Sheets("Shipped")
z = .Range("D" & .Rows.Count).End(xlUp).Row - 9 'データ行数
ReDim v(1 To z, 1 To 7) '転記用配列。行数は最大可能行数
For Each c In .Range("D10").Resize(z)
key = Join(WorksheetFunction.Index(c.Resize(, 4).Value, 1, 0), vbTab)
If Not dic.exists(key) Then dic(key) = dic.Count + 1 '配列行番号
i = dic(key)
v(i, 1) = c.Value
v(i, 2) = c.Offset(, 1).Value
v(i, 3) = c.Offset(, 2).Value
v(i, 4) = c.Offset(, 3).Value
v(i, 5) = v(i, 5) + c.Offset(, 6).Value
Next
End With
With Sheets("send list")
.Range("B5").Resize(UBound(v, 1), UBound(v, 2)).Value = v
.Select
End With
End Sub
|
|