|
DBシート、集計シートのIV列を使ってVLOOKUPで並び替えてみました。
集計する必要があるのならあんまり意味ないですね^^
Sub test()
Dim LastR As Range
Set LastR = Worksheets("DBシート").Range("B65536").End(xlUp)
'Work列の挿入 DBシートの名前がB列、Work列をIV列
Worksheets("DBシート").Range("B1", LastR).Offset(, 254).Formula = "=Row()"
'集計シートにVLOOKUP挿入
With Worksheets("集計シート").Range("A1", Worksheets("集計シート").Range("A65536") _
.End(xlUp)).Offset(, 255)
.Formula = "=VLOOKUP(A1,DBシート!$B$1:" & LastR.Offset(, 254).Address & ",255,0)"
.Value = .Value
End With
'ソート
Worksheets("集計シート").Cells.Sort Key1:=Range("IV1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
'Work削除
Worksheets("DBシート").Columns("IV").Delete
Worksheets("集計シート").Columns("IV").Delete
Set LastR = Nothing
End Sub
|
|