|
ぴかる さん、ikkeさん、こんばんは。
ikkeさん、重複チェックのコード拝見しました。
>Private Sub CommandButton1_Click()
> Dim e_row As Long
> Dim idx As Long
> Dim jdx As Long
> Dim r_add As String
> jdx = 1
> e_row = Cells(Rows.Count, 1).End(xlUp).Row
> r_add = Range(Cells(1, 1), Cells(e_row, 1)).Address
With Range(Cells(1, 1), Cells(e_row, 1))
.Value = Application.Evaluate("=if(" & .Address & "<>"""",upper(" & .Address & "),"""")")
End With
> For idx = 1 To e_row
> With WorksheetFunction
> If .CountIf(Range("a1:a" & idx), Range("a" & idx)) > 1 Then
> MsgBox "受験番号が重複しています。" & Range("a" & idx).Value & ""
>
> End If
> End With
> Next
>End Sub
確認して下さい。
|
|