ばくがの業務効率化チャンネル

このブログは個人的なエクセルの備忘録です

2022-05-22から1日間の記事一覧

【VBA】列の重複判定

VBA

Sub 重複判定() Dim 行番号 As Long Dim 最終行 As Long With ActiveSheet 'A列の最終行を取得 最終行 = .Cells(Rows.Count, "A").End(xlUp).Row 'A列の最終行まで繰り返し For 行番号 = 2 To 最終行 'B列の番号の重複確認 If WorksheetFunction.CountIf(.Ra…