sheet1の行が増えるごとにｓｈｅｅｔ2をコピーして各セルにsｈeet1のデーターを代入するには？

解決

ぽこぴん 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
からあまり進歩が無いようですが、最終行の取得もセルへの値の代入も
既に教えてもらったことですよね？なら質問文に入れる必要が無い内容
ですよね？

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