エクセル 計算式をマクロで

おそらく基本的なことだとは思うのですが、以下の計算式を3000行までいれるのと同じ結果になるVBAを教えて頂けませんでしょうか？

(1)　=if(A1<>"",C1&D1,D1&"不可")
(2)　=if(and(A1=1,B1=2),C1&D1,D1&"不可")
(3)　=if(or(A1=1,B1=2),C1&D1,D1&"不可")

お手数ですが、よろしくお願い致します。

No.2 ベストアンサー 回答者： keithin 回答日時： 2014/09/06 16:12

＞以下の計算式を3000行までいれるのと同じ結果になるVBA

そのとおり入れて下さい。

sub macro1()
range("X1:X3000").formula = "=if(A1<>"""",C1&D1,D1&""不可"")"
range("Y1:Y3000").formula = "=if(and(A1=1,B1=2),C1&D1,D1&""不可"")"
range("Z1:z3000").formula = "=if(or(A1=1,B1=2),C1&D1,D1&""不可"")"
end sub

この回答へのお礼

遅くなり、申し訳ありませんでした。ありがとうございます！

お礼日時：2014/09/08 13:07

No.1 回答者： hallo-2007 回答日時： 2014/09/06 14:02

（２）の結果の場合

If Range("A1").Value = 1 And Range("B1").Value = 2 Then
Range("E1").Value = Range("C1").Value & Range("D1").Value
Else
Range("E1").Value = Range("D1").Value & "不可"
End If

ですので

for i=1 to 3000
If Range("A" & i).Value = 1 And Range("B" & i).Value = 2 Then
Range("E" & i).Value = Range("C" & i).Value & Range("D" & i).Value
Else
Range("E" & i).Value = Range("D" & i).Value & "不可"
End If
next
でよろしいかと。

この回答へのお礼

遅くなり、申し訳ありませんでした。ありがとうございます！

お礼日時：2014/09/08 13:08