どこから手を付けていいやら・・・

質問

エクセルにて
sheet１に

Ａ１　　　　　Ｂ１　　　Ｃ１
素材番号　　素材名　　価格

Sheet２に
Ａ１　　　　　Ｂ１　　　Ｃ１
作品名　　　作者　　　自己評価

Sheet３に
上記の要素を表？として

Ｂ１　作品名　Ｃ１　作者

Ｂ５から縦方向に素材番号
Ｃ５から縦方向に素材名
Ｄ５から縦方向に価格
（これは雛形をつくり作者に記入してもらいました）

sheet３には各々記入してもらったシートを
貼り付けこれらの要素をSheet１、２に
まとめていくマクロを作りたいのですが
問題１。。Sheet2のＢ、Ｃ、Ｄ列は何行になるか分からない

問題２。。sheet１、２へは続けて値のみ貼り付けたい

変数を使ったループ処理にチャレンジしてみましたが
データの最終行をあらわしかたが分からない、
コピー先の最終行がわからない。。。。で止まって
しまいました(ToT)
どうかご教授ください。

回答No.2

imogasi · ベストアンサー

説明順序が逆でわかり難いと思います。
下記のような希望ですね。
（１）Ｂ１　作品名　Ｃ１　作者
Ｂ５から縦方向に素材番号
Ｃ５から縦方向に素材名
Ｄ５から縦方向に価格 と言う
雛型のエクセルのシートを作った。
（２）多くの人に（１）の形式のシートにデータを入れてもらった。
（３）それをSheet3に張りつけてまとめる。
縦に張りつけるのですね。
その場合Sheet３上で、各人の作品名、作者はどうして探せば良いでしょうか（何を識別するものとすべきですか）。
「作品名」と言う語句のあるセルの横列セルにあるのですか。
（４）Sheet３のデータから、作品名と作者はSheet２にまとめて、上行から下行に詰めて名簿リストを作る（１人１行）
（５）Sheet３のデータから、Sheet1のB列に素材番号を、C列に素材名を、D列に価格を縦にまとめて詰めて上行から下方行へ累積したい。
（プログラムの要領ポイント）
次に書きこむ行の行番号を変数として
Sheet1用にｊ、Sheet２用にｋなどを別の変数として使い
それぞれ明細開始行を初期値としてセットします。
１行書きこむごとにSheet1はJ=J+1やSheet2はK=K+1して行けば、隙間なく詰めてリストが作成できます。
（Sheet3の最終行の察知）
Sheet3の貼り付ける場合、隙間行が出来そうなので、
最後行にそれ以前には現れない語句（例えばOWARIなど）をストッパーとして入れて、それをいつも１行下を見るとき、判別察知して、見つかった時に処理を終了してはどうでしょう。
Sheet1、Sheet２の最終行は、勿論Sheet3の最終行により決まります。

お礼

「OWARI」を付ける・・・
なるほど目から鱗の考えでした。

奥が深い・・・

ありがとうございました。

回答No.1

papayuka

最終行を得たいなら、書き方は色々あると思いますがこんな感じでも出来ます。

Sub Test()
Dim LRow As Long
　LRow = Worksheets("Sheet2").Range("A65536").End(xlUp).Row
　MsgBox "最終行は " & LRow & "行目"
End Sub

お礼

遅くなりましたが
ありがとうございました。

また一から勉強しなおしています。
マクロは試行錯誤の繰り返し
なんですね。答えもひとつでは
ないし。。。