| |
▼ちん さん：大変参考になりましたっ！
こんなに早く返信がいただけて助かりました。
ありがとうございます。
教えていただいたものを元に勝手ながら若干変更させて頂きました。
最下行を求める Cells(2, 2).End(xlDown).Row の部分については
伝え忘れていましたが、E列にも空白セルもあるので下から最大行を
取得するようにしました。
また、E列だったのでCells(*, 2)をCells(*, 5)に全部変えてみたら
見事に出来ましたっ！
これで応用も出来そうです。
------------------------
> Sub test()
> Dim Start_Moji As Long
> Dim End_Moji As Long
> Dim maxRow As Range
Dim maxRow_Temp
maxRow_Temp = 50
'*** とりあえずの最大最下行をmaxRow_Tempにいれる
'*** For i1 = 2 To Cells(2, 2).End(xlDown).Row 元
For i1 = 2 To Cells(maxRow_Temp, 5).End(xlUp).Row
'*** 下から最下行を取得する
＜省略＞
|
|
ミコ
- 12/1/31(火) 20:44 -
