Giúp đỡ fill công thức bằng VBA

[nhnn1986]

Em chào Anh/Chị ạ.

Em muốn code VBA có chức năng như sau:
1. Điền công thức vào range(D3) =IF(SUMPRODUCT(ISNUMBER(SEARCH(D$1,$A$1:$A$6000))*ISNUMBER(SEARCH($B2,$A$1:$A$6000)))>0,"đậu","rớt")
2. Fill công thức này từ cột D tới cột AC và fill từ dòng 3 đến dòng 120
3. Thay thế công thức của vùng vừa điền xong bằng giá trị (giá trị "đậu, rớt" luôn chứ không cần công thức nữa)
Tức là mong muốn của em điền giá trị vào vùng range(D3:AC120)

Anh/Chị giúp em với ạ

 

[befaint]

VBA đề điền công thức thì khỏi cần VBA nữa, nó không khác gì việc dùng tay gõ công thức trên bảng tính => chờ nó xử lý xong => copy/paste giá trị.
Đã nghĩ tới dùng VBA thì nên chọn phương án khác.

 

[minhdang_9]

Em chào Anh/Chị ạ.

Em muốn code VBA có chức năng như sau:
1. Điền công thức vào range(D3) =IF(SUMPRODUCT(ISNUMBER(SEARCH(D$1,$A$1:$A$6000))*ISNUMBER(SEARCH($B2,$A$1:$A$6000)))>0,"đậu","rớt")
2. Fill công thức này từ cột D tới cột AC và fill từ dòng 3 đến dòng 120
3. Thay thế công thức của vùng vừa điền xong bằng giá trị (giá trị "đậu, rớt" luôn chứ không cần công thức nữa)
Tức là mong muốn của em điền giá trị vào vùng range(D3:AC120)

Anh/Chị giúp em với ạ

Sub Macro1()

Dim congthuc, dau, rot As String
dau = ChrW(273) & ChrW(7853) & "u"
rot = "r" & ChrW(7899) & "t"
congthuc = "=IF(SUMPRODUCT(ISNUMBER(SEARCH(R1C,R1C1:R6000C1))*ISNUMBER(SEARCH(R[-1]C2,R1C1:R6000C1)))>0,""" & dau & """, """ & rot & """)"
    ActiveSheet.Range("D3").FormulaR1C1 = congthuc
    ActiveSheet.Range("D3:AC120").Select
    Selection.FillRight
    Selection.FillDown
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub