VBA：原理图复制例程

Question

我今天不得不用 VBA 解决一个 Excel 问题，但我觉得自己像个菜鸟。我的要求真的很简单但不知何故我上线了。

我想在每个现有行中添加一些额外 sheet 的变体。

Check out the scheme here

这怎么可能？谁能帮我吗？

感谢您的反馈和帮助。

问候 eXocode

解决方案是：

`子复制数据()

RowInSheet3 = 1

For RowInSheet1 = 1 To Sheets(1).Range("A1").SpecialCells(xlCellTypeLastCell).Row
    Sheets(3).Cells(RowInSheet3, 1) = Sheets(1).Cells(RowInSheet1, 1)
    RowInSheet3 = RowInSheet3 + 1


    For RowInSheet2 = 1 To Sheets(2).Range("A1").SpecialCells(xlCellTypeLastCell).Row
        Sheets(3).Cells(RowInSheet3, 1) = Sheets(2).Cells(RowInSheet2, 1)
        Sheets(3).Cells(RowInSheet3, 2) = Sheets(2).Cells(RowInSheet2, 2)
        RowInSheet3 = RowInSheet3 + 1
    Next

Next

结束子`

Answer 1

这是一个简单的方法；您必须根据需要调整范围，但基本算法应该是您要寻找的：

Sub CopyData()

    RowInSheet3 = 1

    For RowInSheet1 = 1 To Sheets(1).Range("A1").SpecialCells(xlCellTypeLastCell).Row
        Sheets(3).Cells(RowInSheet3, 1) = Sheets(1).Cells(RowInSheet1, 1)
        RowInSheet3 = RowInSheet3 + 1


        For RowInSheet2 = 1 To Sheets(2).Range("A1").SpecialCells(xlCellTypeLastCell).Row
            Sheets(3).Cells(RowInSheet3, 1) = Sheets(2).Cells(RowInSheet2, 1)
            Sheets(3).Cells(RowInSheet3, 2) = Sheets(2).Cells(RowInSheet2, 2)
            RowInSheet3 = RowInSheet3 + 1
        Next

    Next

End Sub

VBA：原理图复制例程

VBA: Schematic copy routine

vbscript

excel

vba

copy

copy-paste