特定の名前を持つ場合、列をループする

Question

Excelファイルがあります.Sheet1のすべてのデータをコピーし、特定の順序でSheet2に貼り付けるマクロがあります。

問題：ファイルが追加の列で更新​​されることがあるので、シート1からシート2への特定の列にそのデータを貼り付ける必要があります。例は次のとおりです。Sheet1の値がNewData1であれば、その列の名前を見つけるためにCells.Findを使用しましたが、これはコピーする必要があります。その全体の列の値と

下に新しいシートに貼り付け

更新されたコード

Set res = Worksheets("Sheet1").Cells.Find(What:="NewData1") If Not res Is Nothing Then Sheets("Sheet1").Select Range(Cells(2, res), Cells(50, res)) 'SOMETHING LIKE THIS Selection.Copy Sheets("Sheet2").Select Sheets("Sheet2").Cells(3, 9).Select ActiveSheet.Paste End If 

UPDATE期待

ColA ColB  ColC 
Hello Goodbye How are you 
Hi  Bye  Are you well 
Hey  Seeya  You ok 

NewData1はこれに追加され、それはこのようになります場合：

ColA ColB  ColC   NewData1 
Hello Goodbye How are you Im new 
Hi  Bye  Are you well So am i 
Hey  Seeya  You ok   Me Too 

私はそのデータをコピーして、他のシートに貼り付ける必要があり、問題はそれがシートの第4列でないかもしれない、それは5日6日または7日かもしれません。これは私がUPDATE 2 再行うことができること、これに似たものがある、コードを編集した

セル値によってコピーするために探していますなぜですか？

Answer 1

あなたはそれで作業そして、まず現在のデータセット内の列数を格納することによって開始することができ、しかし、ちょうどスタートのthats：さらに

Dim n As Long 

n = Sheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column 

、なぜあなただ​​けのダイナミックのコピーペーストを行ういけません毎回遠隔データセット？