10 0
1
2
3
4
5
6
7
8
9
27 10
11
12
13
14
15
16
17
18
19
47 20
21
22
23
24
25
26
27
28
29
72 30
31
32
33
34
35
36
37
38
39
102 40
答案1
这可能会对你有所帮助。如果一列中有两个单元格,其值为 10 和 27,并且它们之间有空单元格,而你希望以“平滑”的方式填充这些单元格:
然后选择包含单元格的列部分并运行这个简短的宏:
Sub FillInTheBlanks()
Dim incr As Double, r As Range, rr As Range
Set r = Selection
incr = (r(r.Count) - r(1)) / (r(r.Count).Row - r(1).Row)
For i = 2 To r.Count - 1
r(i).Value = r(i).Offset(-1, 0).Value + incr
Next i
End Sub