|
あ!、行けね!
2重登録をスッキップする時は、最初の整列も変えなければ行けなかった!
★2重登録のスッキップを行う時は、以下も変更して下さい
'データをA列昇順のB列昇順で整列
.Offset(1).Resize(lngRows, clngColumns + 1).Sort _
Key1:=.Offset(1), Order1:=xlAscending, _
Key2:=.Offset(1, 1), Order2:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, SortMethod:=xlStroke
を
'データをA列昇順のB列昇順のC列昇順で整列
.Offset(1).Resize(lngRows, clngColumns + 1).Sort _
Key1:=.Offset(1), Order1:=xlAscending, _
Key2:=.Offset(1, 1), Order2:=xlAscending, _
Key3:=.Offset(1, 2), Order3:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, SortMethod:=xlStroke
また、以下の部分が、重複の消し忘れなので削除して下さい
'同一グループの園児名を配列に取得
vntMember = rngList.Offset(lngTop, 2) _
.Resize(lngCount + 1).Value
' '園児数をカウント '★下部でコードが重複して居るので削除
' lngMember(lngWrite, 1) = lngCount '★下部でコードが重複して居るので削除
'結果出力用配列を確保(保護者+住所+園児名1+園児名2・・)
|
|