ストリングス関数だけならよかったのですが、その後にまだ質問があり、これが難物なんです。
Ｒａｎｇｅ（Ａ1：Ａ25） と書いたら、エクセルシートのセルＡ1からＡ25を選択するという意味になるんですが、では、Ａ25の「25」が固定ではなくて、毎回変わるとしたら、自動でその数値を取得して、たとえば（Ａ1：Ａ684）のように自動で変化させられないかというものです。
「アイヨッ！」と軽い気持ちで受け付けたのが運のつき。
Ｒａｎｇｅ関数の括弧の中に数値を代入する方法をすっかり忘れてしまっていました。
たとえば、前回Ａ1：A236だったのに、データがどっさりと増えてしまい、Ａ345まで膨れ上がってしまいました。
目で見て最終行を探す方法もありますが、ここはコンピューターならではの方法で行数を取得してみましょう。
VBAでプログラムを書くとこうなります。
Sub ＴＥＳＴ()
Dim EndRow As Long
EndRow = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox "最終行は" & EndRow & "です"
End Sub
そうすると画面には、「最終行は○○○です。」と、表示されます。
問題はここからです。
EndRowには、間違いなくデータの最下端の行数が取得されています。
この数字をどうにかして、Range(○○：○EndRow)という形に持っていきたいのですが、その方法を全く思いだせないのです。
いやぁ、参りました。
続く
