Question

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

所以我有这个代码，它应该占用我插入到工作表中的一些行，并填充Colum＆＃34; C＆＃34;使用＆＃34;模板＆＃34;中的一系列字符串;片。然而，它只是将一个字符串和一遍又一遍地复制到单元格中。如何将这整个字符串放入另一张表中？

我愿意提供更多代码或信息（如果需要）。

Answer 1

您似乎将模板工作表中的相同值同时放入所有Range（＆＃34; Cx＆＃34;）单元格中。您输入了不同的值，但每次在循环期间替换所有Range（＆＃34; Cx＆＃34;）单元格。

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

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

请注意For innerLoop = 0 To addRowOffset中的更改。

Excel VBA代码输入正确的数字

1 个答案: