Excel#解决在多个不重复的行中分别插入N个空行

今天遇到一个数据处理的问题，就是需要将一组不重复的数据分别关联相同的另一组数据。
此次不重复的数据多于200个，然后分别需要关联多于30个的另一组数据。
大概的需求如下图

首先第一步是在每行下分别插入两个空行，用于后续填充。
VBA写法如下：
Sub 在3个不重复的数值中插入3个空行()
Dim a%, b%
Do
a = a + 1
b = (a - 1) *3 + 2
If a > 3 Then
Exit Do
Else:
Cells(b, 1).Resize(3, 1).EntireRow.Insert
End If
Loop
End Sub

大家可以稍微修改后直接引用，个人觉得代码跟后续的步骤都不难，那就不一一介绍了。