Excel VBA質問箱 IV

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

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


17226 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   朝出かける前で、あまり確認せずコードを提示したら大失敗。
ゴミあり、バグありのコードでした、失礼しました。
(必ず複数行ならいいのですが、纏めるものがなく1行のデータがあると
余計なものまで消しちまいました。)

訂正版をアップしておきます。

Dim oldRow As Long
Dim i As Long
With Worksheets(1)
  oldRow = .Range("B" & .Rows.Count).End(xlUp).Row
  For i = oldRow To 2 Step -1
    If .Range("B" & i).Value <> .Range("B" & i - 1).Value Then
      If oldRow > i 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
      End If
      oldRow = i - 1
    End If
  Next
End With

1 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 回答

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