excel vba编程 不懂这代码的意思，求解

Question

ActiveCell.FormulaR1C1 = "=INDIRECT(""A""&INT(RAND()*R[1]C[7]+3),TRUE)"
Range("K2").Select
ActiveCell.FormulaR1C1 = ""
Range("K2").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[1]C[-10]:R[98]C[-10],""<>"")"
Range("D1:J14").Select

    求解这代码是什么意思

Answer 1

RAND()*R[1]C[7]+3生成一个3~R[1]C[7]对应内容的随机整数
INDIRECT得到A列和上述随机数所在行的内容，具体看ActiveCell此时选中的单元格是什么，代码在前面，你没有写

COUNTIF计算R[1]C[-10]:R[98]C[-10]里不为空的单元格数，把结果放在K2

Range("K2").Select选中K2
Range("D1:J14").Select选中D1:J14