vb 输出为word表格

目前有两组数据分别存放在两个一维数组:a1()和a2()中，现在想把数据输出为word表格。
如下图所示

下面还有一些表格就不列出来了，另外问一下可否做成3线表格？
要求表格根据内容调整

我现在只会创建表格，然后按照由左至右，由上至下不断移动的填入数据，但是这样代码实在是太麻烦了。
有没有办法利用循环更简单的做法呢？

[ 本帖最后由 lovechang198 于 2013-9-1 22:45 编辑 ]