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
求解这代码是什么意思
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