如何扩展以下excel VBA代码[重复]

Question

我想为给定的开始和结束期间生成月末明智数据；不同申请人的月数不同。

以下数据由用户输入生成，每个申请人的数量可能有所不同：

“A”列——月结日

“B”栏——EMI

“C”列——兴趣部分

“D”列——主要部分

等等。

我还想计算最后每列的总和，以及根据“A”列的行数改变工作表大小的行。请帮忙。

Sub GenerateDates()
    Dim startDate As Date
    Dim endDate As Date
    Dim currentDate As Date

    startDate = Range("b4").Value
    endDate = Range("b8").Value

    currentDate = startDate
    Range("a17").Select

    Do Until currentDate = endDate

        ActiveCell.Value = currentDate
        ActiveCell.Offset(1, 0).Select

        'currentDate = DateAdd("m", 1, currentDate)
        currentDate = DateSerial(Year(currentDate), Month(currentDate) + 2, 0)

    Loop

End Sub

Answer 1

@Anil 试试这个：

Sub GenerateDates()
    Dim startDate As Date
    Dim endDate As Date
    Dim currentDate As Date
    Dim cnt As Integer

    startDate = Range("b2").Value
    endDate = Range("b3").Value

    currentDate = startDate
    Range("a9").Select

    cnt = ActiveSheet.Range("E3")
    ActiveSheet.Range(ActiveSheet.Range("A10"), ActiveSheet.Cells(Rows.Count, Columns.Count)).ClearContents

    With ActiveSheet.Range(ActiveSheet.Range("A9"), ActiveSheet.Range("A9").End(xlToRight))
        .Copy
        .Offset(1).Resize(cnt - 1).PasteSpecial xlPasteAll
    End With

    Application.CutCopyMode = False

    For i = 1 To Range("A8").End(xlToRight).Column - Range("A8").Column
        Range("A8").Offset(cnt + 1, i) = WorksheetFunction.Sum(Range("A8").Offset(1, i).Resize(cnt))
    Next
End Sub

点击here 下载解决方案。

在 excel 中，有 5 列：月末日期、EMI、利息、本金、未偿金额。您必须输入 4 个字段：开始期间、结束期间、金额、利息。计算按钮运行上述宏。第一行，即第 9 行有公式，复制并粘贴周期数以获取日期和计算。最后，对列进行求和。我希望这能解决你的问题！

Answer 2

请根据我对您想要做什么的理解尝试以下编辑：

Sub GenerateDates()

    Dim startDate As Date
    Dim endDate As Date
    Dim currentDate As Date
    Dim ws as Worksheet
    Dim iRow As Long

    Set ws = Worksheets("Sheet1") 'or whatever name of sheet you have
    Set wbDesti = Workbooks.Open("C:\Users\...\DestinationFile.xlsx") ' <<< path to source workbook
    Set sh = wbDesti.Worksheets("Sheet1") 'Sheet in destination file

    'automatically find the last row in Sheet A.
    iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
        SearchDirection:=xlPrevious, LookIn:=xlValues).row + 1

    startDate = ws.cells(1,1).Value
    endDate = ws.cells(2,1).Value

    currentDate = startDate
    'Range("a17").Select 'removed this to avoid .Select functions

    dim row as integer 'declare another variable for row...

    'row = iRow

    'Do Until currentDate = endDate

        'ws.cells(row,1).value = currentDate
        'row = row + 1

        'currentDate = DateAdd("m", 1, currentDate)
        'currentDate = DateSerial(Year(currentDate), Month(currentDate) + 2, 0)

    'Loop
    Dim col as integer
    col = 2 'start with B
    Do until col = 4
        sh.cells(1,col) = application.worksheetfunction.sum(ws.range("B"&10&":"&"B"&":"&60))
        '***other codes goes here to transfer data same as above.
        col = col + 1
    Loop

    wbDesti.quit
    Set sh = Nothing

End Sub