VBA：回路図のコピールーチン

Question

今日VBAでExcelの問題を解決する必要がありましたが、私はnoobのように感じます。私の要件は本当にシンプルですが、どういうわけか私はラインに入っています。

既存の各行に追加シートにいくつかのバリアントを追加したいと思います。

Check out the scheme here

どうということは可能ですか？誰も私を助けることができるpls？

フィードバックとあなたの助けをありがとう。

挨拶 eXocode

ソリューションました：

`サブの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

ここでそれを行うための簡単な方法があります。あなたは必要に応じて範囲を調整する必要がありますが、基本的なアルゴリズムはあなたが探しているものでなければなりません：

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