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

我有一个包含50行文本的列。 我想复制每个单元格，并将其值粘贴到不同的列中，但是这样做X次的数量基于单独的input。 我的思维默认为python的思维，我想追加每个项目的操纵列表，但我不认为这是必要的在这种情况下。

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”variables是2，那么我将粘贴每个项目两次，并在我的新列中包含100个项目。

在python中，我会将每个项目X的次数附加到列表中。 有没有办法在VBA中做这样的事情？

Answer 1

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

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