今日は休日でしたが、
皆さんはどのように過ごされましたか?
私はお昼くらいまで仕事でした。org
集計だったのでマクロでやってやる!と取り組みました。
表の最終行が各シートでばらばらだったので
最初は「Range("A65536").End(xlUp).Row」
で行を探せばよいかと思ったのですが、
元の表をよく見たら、表の下側にも上側にも
いろいろ数値やメモが書いてありました。
これでは使えない。
で、しばらく考えて
よく考えたら、これなら
A65536セルから折り返してこなくてもいいよね…
と思い、表の一番下の行から折り返してみました。
…失敗しました。
うわーどうしよう、と思ったのですが
他のサイト様で「xlDown」を使っていたのを思い出し、
さいわい表の一番上の行は全シート共通だったので
一番上から「xlDown」でたどりつく行で指定したら
なんとかうまくいきました。
うう応用力弱いな…。
ちょっと時間かかったけど勉強になりました。
やっぱり実務最強です。
それとoffset使いやすいですね。
cellsで指定するよりも分かりやすくて好きです。
ところで、今日つくしが生えているのを発見しました。
が…フェンスで囲われた私有地の中。
あのつくしだけ取らせてほしい~
と毎年思う場所です。
どっか取れるところを探さないと。
メールはこちら
にほんブログ村
Visual Basic ブログランキング
皆さんはどのように過ごされましたか?
私はお昼くらいまで仕事でした。org
集計だったのでマクロでやってやる!と取り組みました。
表の最終行が各シートでばらばらだったので
最初は「Range("A65536").End(xlUp).Row」
で行を探せばよいかと思ったのですが、
元の表をよく見たら、表の下側にも上側にも
いろいろ数値やメモが書いてありました。
これでは使えない。
で、しばらく考えて
よく考えたら、これなら
A65536セルから折り返してこなくてもいいよね…
と思い、表の一番下の行から折り返してみました。
…失敗しました。
うわーどうしよう、と思ったのですが
他のサイト様で「xlDown」を使っていたのを思い出し、
さいわい表の一番上の行は全シート共通だったので
一番上から「xlDown」でたどりつく行で指定したら
なんとかうまくいきました。
うう応用力弱いな…。
ちょっと時間かかったけど勉強になりました。
やっぱり実務最強です。
それとoffset使いやすいですね。
cellsで指定するよりも分かりやすくて好きです。
ところで、今日つくしが生えているのを発見しました。
が…フェンスで囲われた私有地の中。
あのつくしだけ取らせてほしい~
と毎年思う場所です。
どっか取れるところを探さないと。
メールはこちら
にほんブログ村
Visual Basic ブログランキング