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

基于变量

1 个答案: