- ベストアンサー
シート間の行相違検証マクロ
- シート1とシート2の行の相違を検証するマクロの記述方法を教えてください。
- シート1とシート2の氏名の並びが同一の場合とそうでない場合の両方をカバーする方法を教えてください。
- シート1の氏名と数値を入力し、シート2に対応する数値を入力する方法を教えてください。
- hoshi7777
- お礼率71% (170/237)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
こんなの丸投げで、何か自分でやって見たのか。個々はVBAコードの下請けをさせるコーナーではないでしょう。 わからない点を聞くとかするもの。 参考にするなら、下記を読んで。コードは書かない。 （１）同じと（仮定している）場合 シート１（B列）とシート２（A列）の上からのセル同士を比較して、違っておればメッセージでも出せばよい。 比較するセルの行番号がシート１とシート２で２行違うだけ。 For NextとIF比較で出来ること。 シートが２つあるので各々を区別するためのコードを勉強のこと。 最終行はシート１では、Range(”B65536").End(xlup).Rowで判る。 ー １行ずれるとあとずっと、ずれていく恐れがあるので、このロジックは十分でないが、これ以外は難しくて質問者のレベルのやり方に なら無い恐れがある。 ダブリを検出するのは別プロにすべきでしょう。又シート２のデータ漏れなども。 私ならシート１とシート２で氏名でマッチング方でチェックするが。１プログラムでダブリ、もれ、不突き合いが判る。 ーー 誤りを修正後、対応するシート１とシート２の各行について、シート１ではB列からL列、シート２では？？？（質問を理解できず） ＞A氏、C5の4ではシート２、A氏の行のB列に２０００、F5の2ではシート2のA氏の行のE列に1000、M5の3ではシート2のA氏の行のL列に1500、と入力します の意味がわかりにくい。 対応した列どうして、同じデータが入るのではないのか。 ーーー （２）そうでないときの これは順次（行）比較は出来ない。シート１のB列氏名（上行から）からシート２のA列氏名を検索し、見つかった行でチェックを行う。 ダブリがあるとかだと、さらに難しい。質問者のレベルでは出来ないのでは。
その他の回答 (1)
- end-u
- ベストアンサー率79% (496/625)
>シート２の(A3:A36)にはシート1の氏名を入力します。... 常に、シート１を元にシート２に入力するのですか？ その場合、シート２には関数を入れておいて入力しないようにすれば良い？ シート２のA3セルに =シート１!B5 と入れてA36セルまでコピー。 シート２のB3セルに =シート１!C5*500 と入れてB36セルまでコピー。 B3:B36セルを右方向に必要な分コピー。 質問文だけで解釈すると以上のような回答でも可ですかね？
お礼
ありがとうございました。
お礼
ありがとうございました。