Question

我的VBA项目存在一些问题。我在A列中有一个唯一值列表（假设有300个值），在BI列中需要将每个值增加三倍（所以我将获得900个值，每个x3），在CI列中需要为其分配：A，B， C，A，B，C，A，B，C等，因此看起来像这样：

col A：val1 val2 val3 ...

col B：val1 val1 val1 val2 val2 val2 ...

col C：A B C A B C ...

我一直坚持下去，所以我将不胜感激，因为我在堆栈上找不到任何相似的东西，通常只是删除重复项

Answer 1

Dim rowCount As Integer
Dim lrow As Long
Dim rowNum As Variant, element As Variant

lrow = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
rowCount = 1
assignArrayValue = Array("A", "B", "C")
For rowNum = 1 To lrow
    For Each element In assignArrayValue
        ThisWorkbook.Worksheets(1).Cells(rowCount, "B").Value = ThisWorkbook.Worksheets(1).Cells(rowNum, "A").Value
        ThisWorkbook.Worksheets(1).Cells(rowCount, "C").Value = element
        rowCount = rowCount + 1
    Next
Next

我将要重复的值放在工作表的A列中，一个又一个。我还采用了一些静态值，例如列，工作表和数组，请检查并查看以上代码是否以任何方式提供帮助。祝好运！

VBA-如何复制值

1 个答案: