| |
▼smasa さん：
>以下のように、
>複数の数字を各セルに入力するのですが、
入力する数字はスペースで区切られているのでしょうか？
4 5となっているものや
5 4 3となっているもの
つまりグループをまたがったり、大きい方からならんでいるのもは
ないのでしょうか？
また、どの列にどの行から入力されているのでしょうか？
>重複した数字をグループとして判別したいのです。
判別した後どうするのでしょう？
>
> No.
> 1 →グループA →1,2,3,4
> 1 2 →グループA →1,2,3,4
> 1 2 3 →グループA →1,2,3,4
> 3 4 →グループA →1,2,3,4
> 5 →グループB →5
> 6 7 →グループC →6,7
>
上記の例がたとえばA列の1行目から入力されているとして、
以下のような感じでできると思います。
シートは、アクティブシートで考えています。
Sub test()
Dim r As Range
For Each r In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
Select Case Right(r.Value, 1)
Case Is <= 4
MsgBox "グループA"
Case Is = 5
MsgBox "グループB"
Case Is <= 7
MsgBox "グループC"
End Select
Next
End Sub
|
|
ponpon
- 08/11/30(日) 19:45 -
