![to8go目前处于离线状态](https://user.hlgnet.com/face/Image18.gif) |
等 级:长老 |
经 验 值:1609 |
魅 力 值:162 |
龙 币:3756 |
积 分:1851.4 |
注册日期:2002-12-03 |
|
|
|
改动后我是这样写的
Sub 宏1()
'
For n = 1 To 30
aa = 1 + (n - 1)
bb = 2 + (n - 1)
cc = 4 + (n - 1)
dd = CStr(bb) + ":" + CStr(cc)
If Range("A" & aa).Value <> Range("A" & bb).Value Then
Rows(dd).Select
Selection.Insert Shift:=xlDown
n = n + 3
End If
Next n
End Sub
不过粘贴表头的功能还没有完成
|
|
|
|