时间戳

首页 > 解决方案 > VBA-如何复制值

excel - VBA-如何复制值

问题描述

我的 VBA 项目有点问题。我在 A 列中有一个唯一值列表（比方说 300 个值），在 BI 列中需要将每个值增加三倍（所以我会得到 900 个值，每个 x3），并且在 CI 列中需要分配它们：A，B， C、A、B、C、A、B、C 等，所以它看起来像：

上校 A: val1 val2 val3 ...

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

上校 C：ABCABC ...

我坚持这一点，所以我会很感激一些提示，因为我在堆栈上找不到任何类似的东西，通常它只是删除重复项

标签： excelvbaduplicates

解决方案

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 列中，一个位于另一个下方。我也采用了一些静态值，例如列、工作表和数组，检查上面的代码是否有帮助。祝你好运！

推荐阅读