基于变量复制带有连续序号的单元格

Question

在复制过程中寻求一些excel帮助。 宁愿按公式进行操作，但我很确定它将需要为VBA。 在工作表1上，我有两列； A具有不同的名称，B具有从1到15的数字。我需要在工作表2上创建一列，其名称在工作表1列A中复制了工作表1列B所指定的时间。此外，我需要将复制计数添加到工作表2上创建的值。

以工作表1为例

column A, column B
sam, 3
susan, 2

工作表2列a看起来像

sam1
sam2
sam3
susan1
susan2

在网上流连忘返已有一段时间，只是找不到合适的代码组合。 任何援助将不胜感激。

Answer 1

未经测试，但应做您想做的：

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim row1 As Long
Dim row2 As Long
Dim iter As Long
Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")
row1 = 1
row2 = 1
Do While ws1.Cells(row1, 1).Value <> ""
    For iter = 1 to ws1.Cells(row1, 2).Value
        ws2.Cells(row2, 1).Value = ws1.Cells(row1, 1).Value & iter
        row2 = row2 + 1
    Next
    row1 = row1 + 1
Loop