10/06/12 11:12:14
価値無いどころかマイナスと言われちゃったよｗ
>302
Sub hoge()
n = 2 '選択範囲の該当する値をH2以降に書き出す
For Each r In Selection
If Len(r.Value) = 10 Then
For i = 1 To 10
ch = Mid(r.Value, i, 1)
If ch < "0" Or ch > "z" Then Exit For
If ch > "9" And ch < "a" Then Exit For
If i = 10 Then Cells(n, "H") = r.Value: n = n + 1
Next i
End If
Next r
End Sub