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

我不知道如何启动循环。哪些数据应该像各种等一样添加我将非常感谢你的帮助。