VBAループを使用してシート間でデータをコピーする

Question

私はVBAプログラミングの初心者ですので、ここで助けが必要です。あるシートから別のシートにデータをコピーするマクロを作成する必要があります。だから私がやったのは、マクロレコーダーを使って、コピー/ペーストしなければならないステップにマクロを記録することです。今私は必要なすべての情報のためにそれを行うループを作成する必要があります。

ここ

にデータが含まれているシートのスクリーンショットです：ここ

は、データが貼り付けされなければならないシートのスクリーンショットです：

だから、話ができます私のレポートに含まれているデータ。私は自分の会社が働いている国々について毎月の報告をしています。毎月、私はいくつかの予測があります。それはデータベースにアップロードする必要があります。私はループを開始する方法を知らない

Sub manual_upload() 

    Sheets("Forecast").Select 

    Range("G1").Select 
    Range(Selection, Selection.End(xlToRight)).Select 
    Selection.Copy 
    Sheets("Upload").Select 
    Range("A2").Select 
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ 
     False, Transpose:=True 


    Sheets("Forecast").Select 
    'ActiveWindow.ScrollColumn = 2 
    'ActiveWindow.ScrollColumn = 1 

    Range("C2").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Upload").Select 

    Range("B2").Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 


    Application.CutCopyMode = False 
    Range("A2").Select 
    Selection.End(xlDown).Select 
    ActiveCell.Offset(0, 1).Select 
    Range(Selection, Selection.End(xlUp)).Select 
    Selection.FillDown 

    'Selection.AutoFill Destination:=Range("B2:B31") 
    'Range("B2:B31").Select 

    Sheets("Forecast").Select 
    Range("E2").Select 
    Selection.Copy 
    Sheets("Upload").Select 

    Range("C2").Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 
    Application.CutCopyMode = False 

    Range("b2").Select 
    Selection.End(xlDown).Select 
    ActiveCell.Offset(0, 1).Select 
    Range(Selection, Selection.End(xlUp)).Select 
    Selection.FillDown 

    'Selection.AutoFill Destination:=Range("C2:C31") 
    'Range("C2:C31").Select 

    Sheets("Forecast").Select 
    Range("B2").Select 
    Selection.Copy 
    Sheets("Upload").Select 

    Range("D2").Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 
    Application.CutCopyMode = False 

    Range("c2").Select 
    Selection.End(xlDown).Select 
    ActiveCell.Offset(0, 1).Select 
    Range(Selection, Selection.End(xlUp)).Select 
    Selection.FillDown 

    'Selection.AutoFill Destination:=Range("D2:D31") 
    'Range("D2:D31").Select 

    Range("E2").Select 
    Sheets("Forecast").Select 
    Range("G2").Select 
    Range(Selection, Selection.End(xlToRight)).Select 
    Selection.Copy 
    Sheets("Upload").Select 
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ 
     False, Transpose:=True 
    Sheets("Forecast").Select 
    Range("D2").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Upload").Select 
    Range("F2").Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
    Selection.AutoFill Destination:=Range("F2:F31") 
    Range("F2:F31").Select 

    'next i 
End Sub 

：ここ

は私が既に持っているコードです。様々なデータの追加が必要です。 私はあなたの助けに感謝します。データはすべて1枚（データが異なるシートである場合は、同じ構造の複数のクエリのマージを使用することができます）であればここで

Answer 1

はVBAなしでこれらの手順を実行するためのガイドです：

1）あなたのデータを選択し、コントロール+ Tを押して、表のように設定：

2）powerqueryを使用してデータをインポートします（表オプションから2016エクセルすると、powerqueryがで追加して使用し、インストールする必要があります以前のバージョンでは、[データ]タブにあります電源タブ）。テーブルデータが入ったウィンドウが表示されます。このデータビューで作業します。

3）強調することで、不要な列を削除してから、右

4）が日付列とアンピボットを選択して[削除]をクリックします。その後、最初の日付列を選択するシフトを保持し、例えば名前を変更する列ヘッダーで）

5）をダブルクリックして、すべてを強調するために、最後の日付列を選択することができます属性 - >日付、バリュー - >予測、DB内の名前 - >国

6）データ型を確認してください

7正しい）所望の出力に合わせて列の順序を変更しますするためにそれらをドラッグして再手配

8）決勝あなたはすべてを更新するために、クエリにリフレッシュをクリックして、あなたのソーステーブルにデータを追加することができます）の表示結果

10）

9ワークシートにLY近いとロード。このイメージと異なるイメージの表は、後で質問に応じて編集されます。結果テーブルでセルを選択すると、クエリウィンドウが表示され、クエリの名前と緑色のリフレッシュ矢印が表示されます。ソースデータが変更されたときに更新するには、これをクリックします。