excel VBA 给定数据按百分位打分 & 多表同时运作

excel 实现给定数据按百分位打分&多表同时运作

1. 出示图片如下

需要实现

对于每一个变量根据以下标准打分

分界点	得分
20百分位以下	1分
20-40百分位	2分
40-60百分位	3分
60-80百分位	4分
80-100百分位	5分

具体步骤：

1. 给1，2和3列后各加一列
2. percentile函数 设立各变量打分参考指标
3. lookup函数 进行打分
4. for循环运行多表

代码展示

• 给1，2和3列后各加一

Sub add()
   Dim i%
   For i = 1 To 3
   ActiveSheet.Column(2 * i).Insert
   Next
End Sub