如何将Excel中的数据按此要求输出

发布网友发布时间：2023-10-21 17:24

共3个回答

热心网友时间：2024-11-17 21:27

Sub cfcf()
Range("C2:C10000").ClearContents
Dim i%, j%, a, r, m
r = Range("A65536").End(xlUp).Row
a = 2
For i = 2 To r
   For j = 1 To Cells(1, 5)
        If Range("B" & i).MergeCells = True Then
            m = Range("B" & i).MergeArea.Rows.Count
            Range(Cells(a, 3), Cells(a + m - 1, 3)) = Range(Cells(i, 1), Cells(i + m - 1, 1)).Value
            a = a + m
        Else
            Cells(a, 3) = Cells(i, 1)
            a = a + 1
            m = 1
        End If
    Next j
    i = i + m - 1
Next i
End Sub

如图在E1输入需要打印的次数。

热心网友时间：2024-11-17 21:27

没有看懂你的要求，详细解释下

热心网友时间：2024-11-17 21:28

戳我头像，一切都会有的。所得取决于所付出的。

这要求好奇怪哟