我想在excel实现一个功能

我想在excel实现一个功能
是一个资料表，用每一行的记录生成同文件的一个sheet,生成之后行置转，本来是一行，变成一列。
有多少行生成多少个表。
有高人给我一段代码：
dim srcSht as worksheet, sht as worksheet,i&
set srcsht = activesheet
for i = 1 to srcsht.usedrange.rows.count
set sht =sheets.add(after:=sheets(sheets.count))
srcsht.rows(i).copy sht.range("a1")
set sht = nothing
next
但美中不足的是生成的表没有转置，望各位高人帮帮助，本人VB水平是幼儿园水平，求谢。