Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


36123 / 76732 ←次へ | 前へ→

【45792】Re:複数行の項目を同一項目で、1行にまとめたい・・・
回答  Hirofumi  - 07/1/14(日) 15:08 -

引用なし
パスワード
   あ!、行けね!

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・・)
1 hits

【45777】複数行の項目を同一項目で、1行にまとめたい・・・ NOKO 07/1/14(日) 2:49 質問
【45781】Re:複数行の項目を同一項目で、1行にまと... Kein 07/1/14(日) 4:07 回答
【45783】Re:複数行の項目を同一項目で、1行にまと... Hirofumi 07/1/14(日) 8:41 回答
【45792】Re:複数行の項目を同一項目で、1行にまと... Hirofumi 07/1/14(日) 15:08 回答

36123 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free