PCメモ

Excelを中心とした業務改善の記録

2021-04-08から1日間の記事一覧

重複削除マクロ

重複を削除する。 Sub 重複を削除() Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row Dim i As Long Dim a As Long Dim c As Long '重複している数のカウント用 For i = 2 To LastRow c = 0 '重複があるか調べる For a = 2 To LastRow If…