将字符串复制并粘贴到单列 X 次,一次一个字符串

Copy & Paste strings into a single column X times, one string at a time

我正在尝试创建一个 Excel 数据集,并且正在寻找 VBA 代码来执行以下操作。我已经有了 ID 和名称列,但需要像这样 copy/paste 状态列:

ID 姓名
1 荷马·辛普森 亚利桑那
2 内德·弗兰德斯 亚利桑那
3 巴尼甘布尔 亚利桑那
4 韦伦史密瑟斯 亚利桑那
1 荷马·辛普森 犹他州
2 内德·弗兰德斯 犹他州
3 巴尼甘布尔 犹他州
4 韦伦史密瑟斯 犹他州
1 荷马·辛普森 加州
2 内德·弗兰德斯 加州
3 巴尼甘布尔 加州
4 韦伦史密瑟斯 加州
1 荷马·辛普森 纽约
2 内德·弗兰德斯 纽约
3 巴尼甘布尔 纽约
4 韦伦史密瑟斯 纽约

我有相同的状态 worksheet/tab 如下:

亚利桑那
犹他州
加州
纽约

谢谢。

C2中的公式并抄下来

=IF(A2=1,INDEX($F:$F,COUNTIF($A:A2,1)),C1)