Excel VBA代码input正确的数字

For innerLoop = 0 To addRowOffset = 1 Range("C" & countRow & ":" & "C" & (countRow + addRowOffset)).Value = _ ThisWorkbook.Sheets("Template").Range("B" & (4 + innerLoop)).Value Next 

所以我有这个代码，它应该把我插入到工作表中的一些行，并从“模板”工作表中填充Colum“C”的一系列string。 但是，它所做的只是把一个string和一遍又一遍地复制到单元格中。 怎么样，我可以把整个string的范围放到另一个表单中？

我愿意提供更多的代码或信息，如果需要的话。

Answer 1

您似乎将模板工作表中的相同值同时放入所有Range（“Cx”）单元格中。 您将不同的值放入，但是在循环中每次都replace所有Range（“Cx”）单元格。

 For innerLoop = 0 To addRowOffset Range("C" & countRow + innerLoop).Value = _ Sheets("Template").Range("B" & (4 + innerLoop)).Value Next innerLoop 

这应该为循环的每次迭代将不同的值放入不同的单元格中。

请注意For innerLoop = 0 To addRowOffset的更改也添加了For innerLoop = 0 To addRowOffset 。