宏录制就是按健精灵类似的吗

吴虾咪

Sub Macro2()
    Range("A3").Select
    Selection.Formula = "=ASC(词根1!R3)"
    Range("B3").Select
    Selection.Formula = "=SUMPRODUCT((SUMIFS(搜索词!$D:$D,搜索词!$A:$A,辅助表!$A$2:$A$5,搜索词!$C:$C," & """" & "*" & """" & "&$A3&" & """" & "*" & """" & ")))"
    Range("C3").Select
    Selection.Formula = "=SUMPRODUCT((SUMIFS(搜索词!$E:$E,搜索词!$A:$A,辅助表!$A$2:$A$5,搜索词!$C:$C," & """" & "*" & """" & "&$A3&" & """" & "*" & """" & ")))"
    Range("D3").Select
    Selection.Formula = "=SUMPRODUCT((SUMIFS(搜索词!$F:$F,搜索词!$A:$A,辅助表!$A$2:$A$5,搜索词!$C:$C," & """" & "*" & """" & "&$A3&" & """" & "*" & """" & ")))"
    Range("E3").Select
    Selection.Formula = "=SUMPRODUCT((SUMIFS(搜索词!$G:$G,搜索词!$A:$A,辅助表!$A$2:$A$5,搜索词!$C:$C," & """" & "*" & """" & "&$A3&" & """" & "*" & """" & ")))"
    Range("F3").Select
    Selection.Formula = "=IF(E3=0," & """" & "" & """" & ",D3/E3)"
    Range("G3").Select
    Selection.Formula = "=SUMPRODUCT(COUNTIFS(套预到!$H:$H," & """" & "*" & """" & "&$A3&" & """" & "*" & """" & ",套预到!$D:$D,辅助表!$B$2:$B$5))"
    Range("H3").Select
    Selection.Formula = "=IF(G3=0," & """" & "" & """" & ",D3/G3)"
    Range("I3").Select
    Selection.Formula = "=SUMPRODUCT(COUNTIFS(套预到!$Z:$Z," & """" & "*" & """" & "&$A3&" & """" & "*" & """" & ",套预到!$W:$W,辅助表!$B$2:$B$5))"
    Range("J3").Select
    Selection.Formula = "=IF(I3=0," & """" & "" & """" & ",D3/I3)"
    Range("L3").Select
    Selection.Formula = "=ASC(词根2!R3)"
    Range("M3").Select
    Selection.Formula = "=SUMPRODUCT((SUMIFS(搜索词!$D:$D,搜索词!$A:$A,辅助表!$A$6:$A$9,搜索词!$C:$C," & """" & "*" & """" & "&$L3&" & """" & "*" & """" & ")))"
    Range("N3").Select
    Selection.Formula = "=SUMPRODUCT((SUMIFS(搜索词!$E:$E,搜索词!$A:$A,辅助表!$A$6:$A$9,搜索词!$C:$C," & """" & "*" & """" & "&$L3&" & """" & "*" & """" & ")))"
    Range("O3").Select
    Selection.Formula = "=SUMPRODUCT((SUMIFS(搜索词!$F:$F,搜索词!$A:$A,辅助表!$A$6:$A$9,搜索词!$C:$C," & """" & "*" & """" & "&$L3&" & """" & "*" & """" & ")))"
    Range("P3").Select
    Selection.Formula = "=SUMPRODUCT((SUMIFS(搜索词!$G:$G,搜索词!$A:$A,辅助表!$A$6:$A$9,搜索词!$C:$C," & """" & "*" & """" & "&$L3&" & """" & "*" & """" & ")))"
    Range("Q3").Select
    Selection.Formula = "=IF(P3=0," & """" & "" & """" & ",O3/P3)"
    Range("R3").Select
    Selection.Formula = "=SUMPRODUCT(COUNTIFS(套预到!$H:$H," & """" & "*" & """" & "&$L3&" & """" & "*" & """" & ",套预到!$D:$D,辅助表!$B$5:$B$9))"
    Range("S3").Select
    Selection.Formula = "=IF(R3=0," & """" & "" & """" & ",O3/R3)"
    Range("T3").Select
    Selection.Formula = "=SUMPRODUCT(COUNTIFS(套预到!$Z:$Z," & """" & "*" & """" & "&$L3&" & """" & "*" & """" & ",套预到!$W:$W,辅助表!$B$5:$B$9))"
    Range("U3").Select
    Selection.Formula = "=IF(T3=0," & """" & "" & """" & ",O3/T3)"
    Range("A3:U3").Select
    ActiveWindow.ScrollRow = 18
    Selection.AutoFill Destination:=Range("A3:U200"), Type:=xlFillDefault
    Range("A3:U200").Select
    Range("U30").Select
    ActiveWindow.ScrollRow = 3
    Application.RecentFiles.Add Name:="C:\Users\Administrator\Desktop\转化查询表 - 副本.xlsm"
    ActiveWorkbook.Save
End Sub

宏录制就是按健精灵类似的吗,我啥跟常看到别人录制的不一样呢。像这样的怎么改，哪位大神上面有颜色的弄一下我学学下。

zpy2

现在论坛都是数组加字典，这种混合公式的vba比较少

gwjkkkkk

宏录制只是一思路，具体写代码还要自己分析，结合思路写代码。。。

582766

本质上还是有区别的