10/06/11 10:22:32
>>302
vbaだと
Sub unko()
gyo = Range("A65536").End(xlUp).Row
For i = 1 To gyo
If Len(Cells(i, 1)) = 10 Then
xxx = 0
For k = 1 To 10
Select Case Asc(Mid(Cells(i, 1), k, 1))
Case 48 To 57, 65 To 90, 97 To 122
xxx = xxx + 1
Case Else
xxx = -100
End Select
Next
If xxx = 10 Then
Cells(i, 2) = Cells(i, 1)
End If
End If
Next
End Sub