だりか教えて〜！でっかい表があるんです。（縦行1000〜2000、横列Lあたりまで）例えばB列とかの途中で空白があった場合、上のセルをコピーしてはっつけるのはどうすんですか･･･？（縦横ちがうけど、■ ◇ ○ ◎→■■■◇◇○○○○◎てすること）マクロを組んだとして、行の一番下までそれをやりたいのですが。表の大きさも毎回変わるです。必要であれば表メールで送るです;;。頭破裂して死にそうです･･･。だりかたすけてーー！！ ちなみに全く同じような質問がネット上であったんだけど（http://www.hatena.ne.jp/1116707111）このやり方では出来ませんでした。なんで出来ないかもサッパリわからない罠。
shan >
質問ページと同じやり方でいいなら、
1.埋めたい列の右の列を選択(列選択ね(仮にＢ列))して列挿入(Ｃ列が新たにできるはず)
2.新しく出来たＣ列のC1のセルにマクロ =B1 すぐ下のC2に =IF(B2="",C1,B2) を入れる
3.2で作ったC2セルのマクロをC3以降全部にコピー(列全部には C2コピー>C2選択しつつshift+ctrl+下で全部選択>右クリック形式を選択して貼り付け)
4.するとあら不思議 B列の空白が埋まったＣ列が出来るはず。あとはＣ列全部コピー>Ｂ列に形式を選択して貼り付け(貼り付けの種類で値にチェック)
5.いらないＣ列削除でおけけ
6.けど、これだと一列づつやると時間かかるから別シートで専用のマクロのやつを作ったほうがええかもねぇ
(05/06/21 18:10)
shan >
6.の専用シートの方も書いて置くと
1.データがある表に挿入>ワークシートで一個真っ白なシートを作成します。(もともと在るシートの名前が motodata として 新たに作成したシートが Sheet1 とします)
2.Sheet1のA1にマクロ =motodata!A1 と A2にマクロ =IF(motodata!A2="",A1,motodata!A2) と設定します。
3.あとはＡ列コピー、Ｂ列以降全部選択>右クリック>形式を選択して貼り付け。をするとmotodataの空白が埋まったSheet1の出来上がり〜！
(05/06/21 18:22)
shan >
2と3の間に
2.5 2で作ったA2セルのマクロをA3以降全部にコピー(列全部には A2コピー>A2選択しつつshift+ctrl+下で全部選択>右クリック形式を選択して貼り付け)
が抜けてましたん！
(05/06/21 18:24)
shan > コピーするときは手動で範囲選択したほうがいいですな、全部やると表がでっかくなっちゃう (05/06/21 18:36)
代理 > しゃんちゃんありがとう！！！！！！すぺしゃるさんくす。最後の方のコメントの「２と３の間に ２．５２で作った･･･」て上のほうの２ てこと？印刷して会社もってきます。助かった〜！！！シフトとコントロールと下で全部選択なの・・・？初めて知った。ピポットテーブルの存在を今日知った代理ですた；また分からなかったら相談させてー！！ (05/06/22 00:45)
shan > 2.5は下のやり方の法よ〜、全選択すると表でっかくなるので、キチンと範囲は選択したほうがいいやも (05/06/22 03:27)
代理 > 教えてもらったのをやったら永遠と下に文字がつながっちゃったので、マクロを使って余分なところはｺﾝﾄﾛｰﾙ ｼﾌﾄ ↓で範囲選択してズバッっと消すことにしました！無事解決ですん(^_-)-☆ (05/06/22 19:18)
shan >
エクセルは操作覚えれば覚えるほど、楽になるから、いろいろ覚えるとよいですよ〜
ここあたりが詳しく乗っててええやもん
http://homepage1.nifty.com/kenzo30/index.htm
(05/06/22 21:04)
名前 |