Question

我需要将相同的字符串值粘贴到Excel电子表格的每一行中。我已经通过我的vba代码在循环中定义了字符串：

    StickName = Left(myfile, 9)
    ActiveCell.FormulaR1C1 = StickName

用相同的值填充每一行似乎很简单，我可以通过循环，写入每个单元格直到我到达数据的底行，但必须有一个更优雅的解决方案。有没有办法命名一个范围（在我的循环中，从第x行到第y行的单列数据）并用相同的字符串填充整个范围？然后为循环的每次迭代重新定义范围和字符串值？我搜索了填充范围值和其他类似的搜索并搜索了答案，但我没有看到任何解决我正在尝试做的事情。谢谢你的帮助！

Answer 1

定义范围，然后设置范围的值。

    // if system is 2-dimensional, compute DLA for 2D on given lattice
    if (nD == 2) {
        aggResults = RandomWalkMethods::diffusionLimitedAggregateRandomWalk2D(i, spawn, spawnDiam, latticeType, randNumGen, attractor);
    }

    // else if system is 3 dimensional, compute DLA for 3D on given lattice
    else if (nD == 3) {
        aggResults = RandomWalkMethods::diffusionLimitedAggregateRandomWalk3D(i, spawn, spawnDiam, latticeType, randNumGen, attractor);
    }

Answer 2

您不需要任何循环。假设我们希望通过 11 填充行 7 并使用一些值：

Sub liroch()
   Dim StickName As String, myfile As String

   myfile = "abcdefghijklmnop"
   StickName = Left(myfile, 9)
   Rows("7:11").Value = StickName
End Sub

Answer 3

您只能声明您的变量StickName并使用此代码：

StickName = Left(myfile, 9)
Range(Cells(startRow, StartColumn),Cells(LastRow, LastColumn)) = StickName

只需尝试使用Excel VBA将相同的字符串粘贴到一系列单元格中

3 个答案: