excel - 循环遍历单元格以创建序列

Question

我在尝试循环我的单元格列值以完成根据数据计数复制数据的系列时遇到困难。这是我需要做的

A1 AA     B1 2     C1 AA
A2 AA     B2 2     C2 AB
A3 AB     B3 2     C3 AC
A4 AB     B4 1     C4 AD
A5 AC     B5       C5
A6 AC     B6       C6
A7 AD     B7       B7

B 列显示 C 将在 A 中显示多少次

我需要循环 B 列和 C 列以在 A 列

中创建系列

如何在忽略空白单元格的同时循环显示单元格中的值？
我尝试循环一个单元格，但我无法通过每个单元格创建一个循环。

Sub loop_cells()
Dim var As Long
Set Rng = Range("C1")
var = Range("B2").Value
i = 1

Do Until i = var
Range("A1:A" & var).Value = Rng
i = i + 1

Loop
End Sub

Answer 1

如果你想要一个 VBA 解决方案，这应该可以工作:

Sub doSomeLooping()
Dim WS As Worksheet, aCell As Range, i As Long, j As Long
    Set WS = ActiveSheet 'or whatever.

ReDim SomeValues(j)

For Each aCell In Intersect(WS.Range("C:C"), WS.UsedRange).Cells
    If Not IsEmpty(aCell) Then
        For i = 1 To aCell.Offset(0, -1).Value
            ReDim Preserve SomeValues(j)
            SomeValues(j) = aCell.Value
            j = j + 1
        Next i
    End If
Next aCell

WS.Range("A1").Resize(UBound(SomeValues), 1).Value = _
    Application.WorksheetFunction.Transpose(SomeValues)

End Sub

我还认为，如果您有 spill range，则只需一个公式即可获得所需的东西。 .在单元格 A1 中考虑这个函数.

=FILTERXML("<x><y>"&SUBSTITUTE(LEFT(TEXTJOIN("",FALSE,FILTER(REPT(C:C&"!",B:B),B:B<>"")),LEN(TEXTJOIN("",FALSE,FILTER(REPT(C:C&"!",B:B),B:B<>"")))-1),"!","</y><y>")&"</y></x>","//y")