VBA：原理图复制例程

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

我想添加到每个现有的行，在一个额外的工作表上的一些变种。

看看这里的计划

这怎么可能？ 任何人都可以帮我吗？

感谢您的反馈和您的帮助。

问候eXocode

解决scheme是：

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 

结束Sub`

Answer 1

这是一个简单的方法来做到这一点。 你将不得不根据你的需要调整范围，但基本的algorithm应该是你正在寻找的：

 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