|
ブックの先頭にシートを追加し、そこへ検索結果を表示するとして・・
Sub Result_MyData_Search()
Dim MyR As Range
With Worksheets("Sheet1")
Set MyR = .Range("A2", .Range("A65536").End(xlUp))
End With
Application.ScreenUpdating = False
With Worksheets.Add(Before:=Worksheets(1))
.Range("A1:F1").Value = _
Array("番号", "氏名", "点数", "Col", "色", "月")
MyR.Copy .Range("A2")
MyR.Offset(, 1).Resize(, 2).Copy .Range("C2")
MyR.Offset(, 3).Copy .Range("F2")
With .Range("A2", .Range("A65536").End(xlUp))
.Offset(, 1).Formula = _
"=VLOOKUP($A2,Sheet2!$A:$B,2,FALSE)"
.Offset(, 4).Formula = _
"=VLOOKUP($D2,Sheet3!$A:$B,2,FALSE)"
End With
With .Range("A1")
.CurrentRegion.Copy
.PasteSpecial xlPasteValues
.Select
End With
End With
With Application
.CutCopyMode = False
.ScreenUpdating = True
End With
Set MyR = Nothing
End Sub
シート名は Sheet1,Sheet2,Sheet3 という事と、各シートの1行目が項目
という事が前提です。
|
|