excel表格怎么选特定行数

1.excel 增加特定行数

1

2

3

4

5

6

7

8

9

10

11

Subaaa()

Fori = [a65536].End(3).Row To1 Step-1

IfRange("A"& i) <> 1 Then

Forj = 1 ToRange("B"& i) - 1

Rows(i).Insert

Range("B"& i) = Range("B"& i + 1) - 1

Range("A"& i) = Range("A"& i + 1)

Nextj

EndIf

Nexti

EndSub

右键当前表格，查看代码。粘贴上面的代码。运行（F5键）即可。