用于将单元格内容循环到新单元格X的次数vba

我有一个包含50行文本的列。我想复制每个单元格并将其值粘贴到不同的列中，但要根据单独的输入重复X次。我的思维默认为pythonically，我想将每个项目附加到一个列表中进行操作，尽管我认为在这种情况下没有必要这样做

Sub fipsloop()

finalRow = Cells(Rows.Count, "P").End(xlUp).Row

p = Worksheets("StateSource").Range("B3:").Select
p_count = WorksheetFunction.CountA(p)

Dim rng As Range, cell As Range
rng = Range("e3:finalRow")

For Each cell In rng
    If x.Value = "" Then
        Exit For
    If p_count > 1 Then

    '# here is where I am stuck. 

Next cell

“p_count”是我希望将每个单元格的内容粘贴到不同列中的次数。因此，如果E列中有50个项目，而我的“p_count”变量是2，那么我将粘贴每个项目两次，并在新列中有100个项目

---

在python中，我会将每个项附加X个次数到一个列表中。在VBA中是否有这样的方法？

只需在循环中使用.Value属性即可。这将很快将第5/E列中的值复制到第16/P列中的单元格中：

For rowIndex = 1 to p_count
    Worksheets("StateSource").cells(rowIndex, 16).Value = Worksheets("StateSource").cells(rowIndex, 5).Value
Next

---

只需在循环中使用.Value属性。这将很快将第5/E列中的值复制到第16/P列中的单元格中：

For rowIndex = 1 to p_count
    Worksheets("StateSource").cells(rowIndex, 16).Value = Worksheets("StateSource").cells(rowIndex, 5).Value
Next

---

像副词

pythonically

像副词

pythonically

你说的“你在这里的价值”是什么意思？你的建议是在for循环中的“if”语句下，还是用它来代替它？你的公式放在那里，它可以像“=A1+B1”一样简单。除了检查空白值之外，我不确定你的if语句在做什么，但这真的取决于你。我的值在“E”中，我想将它们的值（X的次数，也称为p_计数）复制到“p”以反映这一点。你说的“你的值在这里”是什么意思？你的建议是在for循环中的“if”语句下，还是用它来代替它？你的公式放在那里，它可以像“=A1+B1”一样简单。除了检查空白值之外，我不确定if语句在做什么，但这真的取决于您。我的值在“E”中，我想将它们的值（X的次数，也称为p_计数）复制到“p”，以反映这一点。