原帖由 自是词痴 于 2007-2-12 16:49 发表
高人,劳驾你给弄个出来吧。我想咖啡上好多人都等着呢。谢谢呀!
高人谈不上啦。
上次也试了一下,可能是各个动作的间隔时间调的不好,拷贝了一些以后就会出问题,后来一直忙就没弄。
现在又仔细看了看CHINESEWRITER中大修馆的词典,感觉也就那么样,又没有了兴趣:(
暂时没有多少时间,以后再弄吧
如果哪位有兴趣我可以帮忙指点一二。
下面是EXCEL的宏,可以将拷贝进去的竖着排列的行改为横着排列
Sub Macro1()
Dim i, j, incr, temp As Integer
incr = 0
Dim s As String
i = ActiveCell.Row
j = ActiveCell.Column
Do
incr = incr + 1
Cells(i, j + incr).FormulaR1C1 = Cells(i + incr, j).FormulaR1C1
'Loop Until Cells(i + incr, j).FormulaR1C1 = ""
Loop Until incr = 200
For temp = 1 To incr
Cells(i + temp, j).FormulaR1C1 = ""
Next temp
Cells(i + 1, j).Select
End Sub |