请帮忙优化VBA代码

11 |

0 | 2009-12-13 23:09:08 | 显示全部楼层 |阅读模式

晕，写这么大一段，看的我晕乎乎的，应该是个转置吧，使用下面的代码
'Copy源区域
Range("C2:C130").Copy
'转置
Range("D1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= False, Transpose:=True
'清空源区域
Range("C2:C130").ClearContents

使用道具举报