用于线性系列填充的Excel宏

Question

我在Excel中有一组数据。人口以年为单位数百万，但是我需要填写的数据存在差距。看下面的例子

Year--2013--2014--2015--2016--2017--2018--2019--2020 
Male-- 5-- -- 7-- -- -- 8-- -- 10 
Fem-- 4-- -- 5-- -- -- 7-- -- 9 

我知道我可以使用填充/系列/线性，但我需要从2000年至2050年为数百个国家做到这一点。我试图记录我这样做的宏，但Step Value似乎是硬编码的。

这是甚至可能或我咬牙，继续手动？

感谢

Ĵ

Sub FillTheGaps() 
' 
' fill the gaps Macro 
' 

'start at cell A2 
'find first gap on that row 
Selection.End(xlToRight).Select 
'select up to and including next non-blank 
Range(Selection, Selection.End(xlToRight)).Select 
Selection.DataSeries Rowcol:=xlRows, Type:=xlLinear, Date:=xlDay, Step _ 
    :=11845, Trend:=False 
Selection.End(xlToLeft).Select 
'move down to next row 
ActiveCell.Offset(1).Select 
Selection.End(xlToRight).Select 
'select up to and including next non-blank 
Range(Selection, Selection.End(xlToRight)).Select 
Selection.DataSeries Rowcol:=xlRows, Type:=xlLinear, Date:=xlDay, Step _ 
    :=8598, Trend:=False 
Selection.End(xlToLeft).Select 
'move down to next row 
ActiveCell.Offset(1).Select 
Selection.End(xlToRight).Select 
'select up to and including next non-blank 
Range(Selection, Selection.End(xlToRight)).Select 
Selection.DataSeries Rowcol:=xlRows, Type:=xlLinear, Date:=xlDay, Step _ 
    :=30400, Trend:=False 
'move down to next row 
ActiveCell.Offset(1).Select 
End Sub 

Answer 1

我想这应该让你开始。我所做的就是创建一个循环，并根据您的解释进行一些计算以获取步骤值，因为这实际上是唯一的“变量”。其余的是Excel中的how to avoid using or relying on the Selection method练习;我创建了一个变量rng来表示数据的每一行/范围，然后使用适当的方法来定义该范围，而不是依靠手动用户选择范围。

Dim rng As Range 
Dim stepValue As Long 

Set rng = Range("A2", Range("A2").End(xlToRight)) 

Do 
    'Compute the difference between the first & last cell in the range, 
    ' divided by the number of blank cells + 1. 
    stepValue = (rng(rng.Cells.Count).Value - rng(1).Value)/_ 
      (rng.SpecialCells(xlCellTypeBlanks).Count + 1) 

    'now we can use our computed "stepValue" instead of hard-coding it as a constant: 
    '## Use the resize method to avoid overwriting the last cell in this range 
    rng.Resize(, rng.Cells.Count - 1).DataSeries Rowcol:=xlRows, _ 
       Type:=xlLinear, _ 
       Date:=xlDay, _ 
       Step:=stepValue, _ 
       Trend:=False 


    'Increment the range to the next row 
    Set rng = Range(rng(1).Offset(1), rng(1).Offset(1).End(xlToRight)) 

'Escape the loop only when we reach an empty/blank cell in the first column: 
Loop Until Trim(rng(1).Value) = vbNullString