ExcelのVBAで質問します。あるセルに1～10までの値が順番に入っ

質問

ExcelのVBAで質問します。あるセルに1～10までの値が順番に入ってます。1～10の値が入っていて、またその下に1～10の数字が入ってまして、それが続きます。そのようなシートで1～10の間を範囲選択したいと思ってます。がたまに1～9までにしか入っていない事もあり、その時は、1～9を範囲選択したく思います。どのようにVBを書けば良いか、教えて下さい。ちなみのこれは商品分類ベスト10という形で1～10をあらわしてます

回答No.2

FEX2053

始めに「１」のセルを選択している、とします。

Sub Macro1()
n = 0
Do
n = n + 1
dat = Selection.Offset(n).Value
Loop While dat > 1
Selection.Resize(n, 1).Select
End Sub

これで、１～連続した数値の最後まで選択してある筈です。

回答No.1

nattocurry

1のセルから、次の1のセルの1つ手前のセルまで、を選択すれば良いと思います。

文章例だけで、具体例が無いので、こういう答えかたしかできません。