sheet1の行が増えるごとにsheet2をコピーして各セルにsheet1のデーターを代入するには?

解決


ぽこぴん  2006-05-02 18:58:07  No: 131220

また、お邪魔します〜。

変数の使い方がいまいちピンとこなく、またまた詰まってしまいました。

A15〜G43の範囲で、sheet1のA列〜G列まで各データーが入っていますが

最終行は変則です。

sheet1のデーターの入っている所まで、sheet2の書式を基にしてシートを

コピーし、コピーされたシートの各セルにデーターを代入したいのですが。

【例】

この度はsheet1に入っている値が15〜17行までだったとします。

A15・A16・A17は各コピーされたシートのG1セルへ代入、

B15・B16・B17は各コピーされたシートのK3セルへ代入、

C15・C16・C17  →  は  K5セルへ

F・G  列もそんな調子で各セルへ入るようにしたいです。

一行に付きコピーするシートが一シート、と考えたほうが良いかも

知れません。


じゃんぬねっと  URL  2006-05-02 19:13:00  No: 131221

... ... えっと、これは、VBA ですか?
それとも、VB6 または VB.NET からの運用ですか?

> 最終行は変則です。

Range.End を使えば一発ですね。

> この度はsheet1に入っている値が15〜17行までだったとします。
> A15・A16・A17は各コピーされたシートのG1セルへ代入、
> B15・B16・B17は各コピーされたシートのK3セルへ代入、
> C15・C16・C17  →  は  K5セルへ
> F・G  列もそんな調子で各セルへ入るようにしたいです。
> 一行に付きコピーするシートが一シート、と考えたほうが良いかも
> 知れません。

それで? 何に困っているんですか。
その通りに実装すれば良いと思いますが...


ぽこぴん  2006-05-02 19:37:55  No: 131222

すみません!質問の場所間違ってました?

申し訳ありませんでした<(__)>


ぽこぴん  2006-05-02 19:38:59  No: 131223

チェック忘れました。


特攻隊長まるるう  2006-05-02 19:52:01  No: 131224

>申し訳ありませんでした<(__)>
何を謝ってるのか?何が分からないのか?が分からないというだけです。
だらだらと書いて相手に理解してもらうのではなく、自分から要点をまとめ
相手が理解できるよう説明してください。

http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200604/06040065.txt
からあまり進歩が無いようですが、最終行の取得もセルへの値の代入も
既に教えてもらったことですよね?なら質問文に入れる必要が無い内容
ですよね?

あとはシートの追加方法?前回のスレッドにも書いてあることですが、
エクセルのコードはエクセルのメニューから
[ツール]-[マクロ]-[新しいマクロの記録]
を使えばある程度分かります。使い方はヘルプにも書いてあります。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加