|
小僧 さん
おはようございます。
>>それでも、やっぱりちょっと難しめのコードになっちゃいますね。
>掲示板の過去ログを見て、ちくたく さんが綺麗なコードを書かれているので、
>当方なりに精一杯恰好つけたつもりです(笑)
いえ、すいません。。。
なんか、そんなに難しい処理には思えないのに、
こんなにややこしくなるんだぁ、、、って思うと。
変なコードだなぁ、と思うのです。
(コードのところどころに意味のわからない記述がありますね、
見直しが足りてません。。。すいません。。。)
>選択範囲内をループさせるのではなく、
>別の方向から攻めてみました。
↓この方法、考えたけど、思いつかなかったんですよ!
>Set MyRange = Range(.Cells(i), .Cells(i).End(xlDown))
>Do Until MyRange(MyRange.Count).Row > .Cells(.Count).Row
提示して頂くと、なるほどなぁ。って感じです。
個人的には、これはすごくわかりやすいコードでした。
ありがとうございます。
>目安箱にあった Jaka さんのスレッドを参考にさせて頂きました。
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=78;id=FAQ
なるほど、気づきませんでした。
重ね重ね、ありがとうございます。
|
|