- 日志
- 好友
- 卖家信用

- 买家信用

- 注册时间
- 2008-7-13
- 在线时间
- 小时
|

楼主 |
发表于 2009-4-17 14:07:09
|
显示全部楼层
|
Sub test()
Dim Rng1 As Range
Dim Rng2 As Range
Set Rng1 = Range("A1:A100")
Set Rng2 = Range("B1:B100")
Rng1.Cut
Rng2.Offset(, 1).Insert shift:=xlToRight
End Sub
这是今天我自学的成果。。
...
xinka 发表于 2009-4-17 14:03 
汗。。。努力。。。加油。。。。。有不会地问我。。。。。我肯定。。。。。。。。。。。。。。不告诉你。。。。。 |
|