请教如何补齐缺的数据

冷露 · 发表于 2012-12-18 16:58

请教如何填上数值
104 102之间插入一行写上103
107 110之间插入两行为109 110
行差大于80 不插入数值
用VBA怎么写
表在下面
101
102
104
105
106
107
110
111
112
113
114
115
116
117
118
119
120
201
202
203
204
205
206

ctp_119 · 发表于 2012-12-18 18:00

Sub insert()
Dim i As Integer
Dim rw As Integer
Dim tol As Integer
With Sheet1
rw = .[a65536].End(xlUp).Row
For i = rw To 2 Step -1
tol = .Cells(i, 1) - .Cells(i - 1, 1)
If tol = 1 Or tol > 80 Then
GoTo 100
Else
.Range("a" & i & ":a" & i + tol - 2).insert shift:=xlDown
.Range("a" & i - 1).AutoFill Destination:=Range("A" & i - 1 & ":A" & i + tol - 2), Type:=xlFillSeries
End If
100:
Next i
End With
End Sub

复制代码

看看这个是不是你想要的效果

ctp_119 · 发表于 2012-12-18 18:02

请看附件！！！！

冷露 · 发表于 2012-12-19 08:38

ctp_119 发表于 2012-12-18 18:00
看看这个是不是你想要的效果

太好了，十分感谢！{:soso_e102:}

EXCELLMY · 发表于 2019-11-26 20:08

补齐缺的数据

huanglong355 · 发表于 2020-1-4 11:34

我这个代码简单，容易理解，可以帮你插入空格。至于数字填充，你用IF函数就可以搞定
tt()
Dim i, x, l As Integer
x = Sheet1.Range("a600").End(xlUp).Row
For i = x To 2 Step -1
      If Range("a" & i) - Range("a" & (i - 1)) = 1 Or Range("a" & i) - Range("a" & (i - 1)) > 80 Then
      l = 1
      Else
      Rows(i).Resize(Range("a" & i) - Range("a" & (i - 1)) - 1).Insert
      End If
Next
End Sub

		自动登录	找回密码
密码			免费注册

请教如何补齐缺的数据

评分

评分

请教 如何补齐缺的数据

评分

评分

请教如何补齐缺的数据