Excel VBA-将值添加到特定行中的单元格

Question

我是Excel VBA的新手，我正试图弄清楚某些事情。 我想用来自单元格N47的值（称为“收入”）填充K26:K386范围内的单元格。 要填充的单元格（在K26:386中的那些行中）由单元格N46的数字（称为“月”）确定。 “收入”可以是任何数字。 “月”可以是1到360之间的任何数字。

我想在单元格N47和N46插入两个输入-收入和相应的月​​份-以便用从1到360的相应月份的“收入”值填充K26:K386范围内的相应单元格。 ？ 我只知道如何像这样填充单个单元格：

Sub Ievietot()
    Dim Sum As Integer
    Sum = Range("N47").Value
    Range("K30").Value = Sum
End Sub

Answer 1

我认为可以做到以下几点：

Sub CopyData()
    Dim iMonthNum as Integer
    Dim income as Integer

    iMonthNum = Range("N46").Value
    income = Range("N47").Value
    Range("K" & (25 + iMonthNum)).Value = income
End Sub

Answer 2

你可以用

Range("K26:K386").Cells(Range("N46").Value) = Range("N47").Value