求一个算法代码

有一元素种类、个数都随机的最多30个元素的数组，希望得到一个排列，具体如图所示：

如果元素个数少于30时，图中序号小的位置优先填，序号大的留空。
谢谢各位 --------------------编程问答-------------------- 给出一种算法的方案: 你自己按此方案转换成源代码

1 将数据转换为 ABCDEFGHABCDEGHABCDEGHABCABCAC 格式
2.1 按顺序读出数据.放入相应序号的格子中
2.1 当前格子的内容与相领的格子内容相比较.如果不相同,读取下一个数据.如果相同转入3.1
3.1 当前格子与前一格子的内容进行交换.对交换后的二个数据重复2.1的比较. 如果一直替换到第一个数据都有相同的,表示无解.

以下是前几步的动作

补充：VB ,  VBA