Excel VBA質問箱 IV

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

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


17235 / 76738 ←次へ | 前へ→

【64960】Re:データの抜き出しソートについて
回答  teian  - 10/3/30(火) 8:50 -

引用なし
パスワード
   >各セル↑となってるデータの項目が同じものが連続している(★★等)なら日付の新しい&値段の高い値でまとめたいのです。
は、律儀にやるとすれば↓見たいな感じでしょうか。

  Dim oldRow As Long, oldKey As Variant
  Dim i As Long
  With Worksheets(1)
    oldRow = .Range("B" & .Rows.Count).End(xlUp).Row
    oldKey = .Range("B" & oldRow).Value
    For i = oldRow To 2 Step -1
      If .Range("B" & i).Value <> .Range("B" & i - 1).Value Then
        .Range("A" & i).Value = _
          WorksheetFunction.Max(.Range("A" & i & ":A" & oldRow))
        .Range("C" & i).Value = _
          WorksheetFunction.Max(.Range("C" & i & ":C" & oldRow))
        .Rows(i + 1 & ":" & oldRow).Delete xlShiftUp
        oldRow = i - 1
      End If
    Next
  End With

Sortをどこに登場させたらいいのかは知りません。
0 hits

【64957】データの抜き出しソートについて ゆぅ 10/3/29(月) 23:28 質問
【64959】Re:データの抜き出しソートについて Hirofumi 10/3/30(火) 7:32 発言
【64960】Re:データの抜き出しソートについて teian 10/3/30(火) 8:50 回答
【64963】Re:データの抜き出しソートについて teian 10/3/30(火) 15:42 回答
【64969】Re:データの抜き出しソートについて ゆぅ 10/3/30(火) 23:21 お礼
【64970】Re:データの抜き出しソートについて teian 10/3/31(水) 12:22 回答
【64971】Re:データの抜き出しソートについて Hirofumi 10/3/31(水) 12:43 発言
【64981】Re:データの抜き出しソートについて teian 10/3/31(水) 15:43 回答
【64989】Re:データの抜き出しソートについて Hirofumi 10/3/31(水) 17:41 回答
【64990】Re:データの抜き出しソートについて teian 10/3/31(水) 17:51 発言
【64991】Re:データの抜き出しソートについて Hirofumi 10/3/31(水) 18:40 回答

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