有一EXCEL表，数据为一列，如下（行数因文件内容变化而不同，这里列4行为例）：
1
2
3
4
我想通过程度实现变换为如下（每个数据的重复行数因要求不同而不同，这里列3重复3次为例）：
1
1
1
2
2
2
3
3
3
4
4
4
5
5
5

想通过delphi实现，想了很久都不知道怎么实现，大家有没做过类似的，给个代码参与一下。