我的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 ...
我一直坚持下去,所以我将不胜感激,因为我在堆栈上找不到任何相似的东西,通常只是删除重复项
答案 0 :(得分:0)
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列中,一个又一个。我还采用了一些静态值,例如列,工作表和数组,请检查并查看以上代码是否以任何方式提供帮助。祝好运!