Excel VBA質問箱 IV

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

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


46525 / 76732 ←次へ | 前へ→

【35177】Re:教えてください。
回答  Statis  - 06/2/23(木) 9:16 -

引用なし
パスワード
   こんにちは

データを並び替えて良いのなら
こんな感じです。(データは1行目より)

Sub Macro1()

Dim i As Long

Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
For i = Range("A65536").End(xlUp).Row To 2 Step -1
  If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
   Cells(i, 1).EntireRow.Copy
   Cells(i - 1, 1).PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd
   Cells(i, 1).EntireRow.Delete
  End If
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub
7 hits

【35171】教えてください。 りん 06/2/22(水) 20:42 質問
【35177】Re:教えてください。 Statis 06/2/23(木) 9:16 回答
【35181】Re:教えてください。 Jaka 06/2/23(木) 12:47 回答

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