| |
対象マスターの方は、項目行があるのかないのかはっきりしませんので、
仮にあったとして A2 からデータが入力されている、という前提で
Sub Test2()
Dim Sh As Worksheet, Sh2 As Worksheet
Dim C As Range
Dim Ck As Variant
Set Sh = Worksheets("対象マスター")
Set Sh2 = Worksheets("発注商品")
Application.ScreenUpdating = False
Sh.Range("K1").Value = "CheckNum"
For Each C In Sh2.Range("A2", Sh2.Range("A65536").End(xlUp))
Ck = Application.Match(C.Value, Sh.Range("A:A"), 0)
If Not IsError(Ck) Then Sh.Cells(Ck, 11).Value = 1
Next
Sh.Range("A1", Sh.Range("A65536").End(xlUp)).Resize(, 11) _
.Sort Key1:=Sh.Range("K1"), Order1:=xlAscending, _
Header:=xlYes, Orientation:=xlSortColumns
Sh.Range("K2", Sh.Range("K65536").End(xlUp)) _
.EntireRow.Delete xlShiftUp
Sh.Range("K1").ClearContents
ここへ Sh の表範囲をC列をキーにして並べ替えるコードを入れる
Application.ScreenUpdating = True
End Sub
|
|
Kein
- 06/6/24(土) 14:10 -
