質問: 0 end sub ================================================================
回答: すみません。#1 のコードはところどころで必要なピリオド抜けが多いので、 バグフィックスしたものを再掲しておきます。スペース節約のため、コメント はカットしてます。 # no.2 のコメントにも一部誤記があります。 # ×降順ソート --> ○昇順ソート private sub userform_initialize() dim i as long dim lngr as long dim myrng as range with worksheets("データ") lngr = .cells(65536, "a").end(xlup).row set myrng = range(.cells(1, "a"), .cells(lngr, "a")) myrng.sort key1:=myrng(1, 1), order1:=xlascending, header:=xlyes .range("b:b").clearcontents myrng.advancedfilter action:=xlfiltercopy, _ copytorange:=.range("b1"), _ unique:=true lngr = .cells(65536, "b").end(xlup).row set myrng = range(.cells(2, "b"), .cells(lngr, "b")) end with with listbox1 .clear for i = 2 to lngr - 1 .additem myrng.cells(i, 1).value next i end with listbox1.listindex = 0 end sub