VBA:原理图复制例程

Question

今天我不得不用VBA解决Excel问题，但我觉得自己是个菜鸟。我的要求确实很简单，但不知何故，我处于困境中。

我想在现有的每一行中增加一些新的单张。

看看这里的计划

那件事怎么可能？有人能帮我吗？

谢谢你的反馈和帮助。

问候eXocode

解决办法是：

` `Sub ()

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