=MAX(FREQUENCY(IF(INDIRECT("R9:R"&MAX(IF(OFFSET(S$8,1,,COUNT($A:$A)-1)<>"",ROW(OFFSET(S$8,1,,COUNT($A:$A)-1))))&"C",)="",ROW(INDIRECT("R9:R"&MAX(IF(OFFSET(S$8,1,,COUNT($A:$A)-1)<>"",ROW(OFFSET(S$8,1,,COUNT($A:$A)-1))))&"C",))),IF(INDIRECT("R9:R"&MAX(IF(OFFSET(S$8,1,,COUNT($A:$A)-1)<>"",ROW(OFFSET(S$8,1,,COUNT($A:$A)-1))))&"C",)<>"",ROW(INDIRECT("R9:R"&MAX(IF(OFFSET(S$8,1,,COUNT($A:$A)-1)<>"",ROW(OFFSET(S$8,1,,COUNT($A:$A)-1))))&"C",)))))
这条公式,我用For i = 1 To 601
Worksheets(CStr(i)).Range("S7").FormulaArray = "=MAX(FREQUENCY(IF(INDIRECT(""R9:R""&MAX(IF(OFFSET(R8C,1,,COUNT(C1)-1)<>"""",ROW(OFFSET(R8C,1,,COUNT(C1)-1))))&""C"",)="""",ROW(INDIRECT(""R9:R""&MAX(IF(OFFSET(R8C,1,,COUNT(C1)-1)<>"""",ROW(OFFSET(R8C,1,,COUNT(C1)-1))))&""C"",))),IF(INDIRECT(""R9:R""&MAX(IF(OFFSET(R8C,1,,COUNT(C1)-1)<>"""",ROW(OFFSET(R8C,1,,COUNT(C1)-1))))&""C"",)<>"""",ROW(INDIRECT(""R9:R""&MAX(IF(OFFSET(R8C,1,,COUNT(C1)-1)<>"""",ROW(OFFSET(R8C,1,,COUNT(C1)-1))))&""C"",)))))"输入不进去?是不是太长了?请帮我看看怎么用vba完好的输入进去?