Excel VBA - 向某行中的单元格添加值答案

【问题标题】：Excel VBA - add a value to a cell in a certain rowExcel VBA - 向某行中的单元格添加值
【发布时间】：2018-08-14 22:40:08
【问题描述】：

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

我想将两个输入插入单元格 N47 和 N46 - 收入和相应的月份 - 以便范围 K26:K386 中的相应单元格填充相应月份的“收入”值，从 1到360。有人可以请教吗？我只知道如何像这样填充单个单元格：

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

【问题讨论】：

能否请edit您的问题添加样本数据和预期结果？

标签： excel vba

【解决方案1】：

你可以使用

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

【讨论】：

谢谢，这是我一直在寻找的答案，它成功了！

【解决方案2】：

我认为可以这样做：

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

【讨论】：

感谢回复，但最后一行有问题，无法正常运行。
抱歉 - 我使用 + 而不是 & 来连接字符串。