関数 各条件により貼り付けるデータを変えたい

質問

二つのワークシートがあり、各条件により貼り付けるデータを変えたいのですが、IF文等の関数で可能でしょうか。

ワークシートＷ
　　Ａ列　　　　Ｂ列　　　　Ｃ列　　　　Ｄ列　　　　Ｅ列　　　Ｇ列
１　倉庫　　　商品１　　　１０円
２　　　　　　　商品２　　　５０円
３　倉庫　　　商品３　　　２０円
４　　　　　　　商品４　　　１５円
５　　　　　　　　　　　　　　１７円

ワークシートＹ
　　Ａ列　　　　　Ｂ列　　　　Ｃ列
１　if関数(1)　　if関数(2)　　if関数(3)
２　if関数(4)　　if関数(5)　　-

このデータで、以下のことをしたいのですが、可能でしょうか

ワークシートＷのＡ１とＢ１に文字がある場合、ワークシートＹのＡ１をワークシートＷのＤ１に貼り付ける
※これを同じ条件で、貼り付けるデータを「ワークシートＷのＥ１にワークシートＢ１を貼り付け」、
「ワークシートＷのＧ１にワークシートＷのＣ１を貼り付け」をしたい

また、ワークシートＷのＡ１に文字がないが、Ｂ列に文字がある場合、ワークシートＹ２をワークシートＷのＤ２に貼り付ける
※これを同じ条件で、貼り付けるデータを「ワークシートＷのＥ２＝ワークシートＹのＢ２」、
「ワークシートＷのＧ２にワークシートＷのＣ２を貼り付け」をしたい

なお、ワークシートＹにはＩＦ文が入力されています。

ご存知の方いらっしゃればお願いします。

回答No.3

n-jun · ベストアンサー

ANo.2です。

Ｃ列にしかデータがない場合の条件がないですが。
こんな感じでしょうか？
Sub　test()
　Dim　ws1　As　Worksheet
　Dim　ws2　As　Worksheet
　Dim　r1　As　Range,　r2　As　Range

　Set　ws1　=　Worksheets("Sheet1")　'　シート名修正（W)
　Set　ws2　=　Worksheets("Sheet2")　'　シート名修正（Y)
　Set　r2　=　ws2.Range("A1:C2")

　With　ws1
　　　　　　For　Each　r1　In　.Range(.Range("C1"),　.Range("C"　&　Rows.Count).End(xlUp))
　　　　　　　　　　If　r1.Offset(,　-2).Value　<>　""　And　r1.Offset(,　-1).Value　<>　""　Then
　　　　　　　　　　　　　r1.Offset(,　1).Formula　=　r2.Item(1).Formula
　　　　　　　　　　　　　r1.Offset(,　2).Formula　=　r2.Item(2).Formula
　　　　　　　　　　　　　r1.Offset(,　4).Formula　=　r2.Item(3).Formula
　　　　　　　　　　ElseIf　r1.Offset(,　-2)　=　""　And　r1.Offset(,　-1).Value　<>　""　Then
　　　　　　　　　　　　　r1.Offset(,　1).Formula　=　r2.Item(4).Formula
　　　　　　　　　　　　　r1.Offset(,　2).Formula　=　r2.Item(5).Formula
　　　　　　　　　　　　　r1.Offset(,　4).Formula　=　r2.Item(6).Formula
　　　　　　　　　　End　If
　　　　　　Next
　End　With
End　Sub
シート名は適宜変更願います。

お礼

ありがとうございます！

関数をそのまま持ってくることが出来ました！

・・・が、ひとつ問題が出てきてしまいました。
Ｄ列にコピーされた関数は「同じ行のＡとＢを参照して比較した結果を出すIF文」なのですが、
関数の参照先がコピー元の値（参照先例：=IF(A1="倉庫","1","0")のみになってしまっており、
Ｄ２はＡ２とＢ２を参照せず、Ａ１とＢ１が参照先になってしまっています。

今までは手動で関数をコピーし、ドラッグでコピーをしていました。

参照先が同じ行のものになるようにするのは可能でしょうか。
（Ｄ１の関数はＡ１とＢ２を参照し、Ｄ２の関数はＡ２とＢ２を参照）

何度も申し訳ありませんが、ご存知でしたらご教授下さい。

回答No.2

n-jun

もしかすると、
Ｅｘｃｅｌ　条件によってデータを貼り付ける方法
http://okwave.jp/qa4236994.html
と同じように数式を代入したいと言うことでしょうか？

であれば、Ａ列・Ｂ列にデータを入れる際に代入したいのか、
データを入れたあとでまとめて代入したいのかで少々コードが変わります。
その場合、Ｂ列が入力されている行まで有効とするのか、Ｃ列かでも
変わってきますけど。

補足

そうなんです・・・。
データを入れた後にまとめて代入したいんです。

Ａ列は空白がある
Ｂ列は文字列、空白がランダム
Ｃ列は必ずデータがある

この為、Ｃ列に文字が入力されている行までを有効で問題ありません。

いつもありがとうございます。

回答No.1

shikisaito

ワークシートＷのセルD1に
=IF($B1<>"",IF($A1<>"",ワークシートＹ!A$1,ワークシートＹ!A$2),"")
を入力して、右方向と下方向にコピー。

お礼

ありがとうございます。

教えて頂いた関数でやってみましたが、参照先のIF文がうまく稼動しません。
=IF($B1<>"",IF($A1<>"",IF(ワークシートＹの関数),IF（ワークシートＹの関数),"")

と、直接関数を入れてみましたが、これでも駄目でした。
もう少し試してみます。
もし原因とかご存知であればで結構ですので、教えて下さい。