自动填充列答案

【问题标题】：Auto Fill Column自动填充列
【发布时间】：2015-07-04 15:52:08
【问题描述】：

我刚刚开始使用 VBA。只是想知道如何填充从 range("K5") 开始的列以及从 ComboBox1 获取的值。例如：如果 range("K5") = 22 那么 range("K6") = 23... 最后的数字是 ComboBox2 的值强>。

这是我现在的代码...

Dim temperature_1 As Integer                     'from temperature_1
Dim temperature_2 As Integer                     'to temperature_2
Dim k As Integer
Dim l As Integer
Dim range_degrees As Integer                      


temperature_1 = Sheet1.ComboBox1
temperature_2 = Sheet1.ComboBox2
range_degrees = temperature_2 - temperature_1

For k = range("K5") To range_degrees                     
    For l = temperature_1 To temperature_2                     
     ......
    Next l
Next k

【问题讨论】：

请为您的声明添加更多详细信息range("K5") = 22 then range("K6") = 23。改变价值观的“规则”是什么？为什么是 22->23，为什么是 K5->K6？
这只是举例。它可以从任何单元格和任何数字开始。在我的项目中，它位于范围（“K5”）的开头。 ComboBox1 中的值为 22。但是当我更改 ComboBox1 或 ComboBox2 中的值时，我需要自动更改单元格中的值。

标签： vba excel

【解决方案1】：

如果您真的希望“自动填充”列，我只需填充范围的开头并填充一个系列。

with activesheet
    .range("K5") = temperature_1
    .range("K5").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=temperature_2, Trend:=False
end with

如果您想增加 0.05° 之类的增量，请将 Step:=1 参数更改为您想要的增量。如果您想填充一行而不是向下填充一列，请将Rowcol:=xlColumns 更改为Rowcol:=xlRows。像这样用一个系列阻塞值比循环遍历它们更有效。

【讨论】：

我真的很喜欢这个，我使用 VBA 已经好几年了，这是我第一次看到.DataSeries，非常干净优雅。谢谢！
谢谢！这就是我需要的。

【解决方案2】：

Private Sub FillRange()
    Dim temperature_1 As Integer                     'from temperature_1
    Dim temperature_2 As Integer                     'to temperature_2
    Dim k As Integer
    Dim l As Integer
    Dim range_degrees As Integer


    temperature_1 = Sheet1.ComboBox1
    temperature_2 = Sheet1.ComboBox2
    range_degrees = temperature_2 - temperature_1

    Range("K5").Select

        For l = temperature_1 To temperature_2
           ActiveCell.Value = l
           ActiveCell.Offset(1, 0).Select
        Next l
End Sub

【讨论】：