Question

我需要复制另一个工作表中的一系列数据，其中包含单元格A1中的数据月份。所以我2017年2月在A1单元格和2017年1月1日到2017年12月31日的另一张表格中有一行数据，日期是A行，下面是行数据。我想创建一个宏，每当我运行它时，它将读取单元格A1，如果它是2017年2月，它将复制数据列从2017年2月1日到2017年2月28日，如果单元格A1是2017年3月，它将从2017年3月1日到2017年3月31日复印。我该怎么做？

我录制了宏，但引用的单元格已被锁定，因此它将始终从2017年2月1日复制到2017年2月28日，这不是我想要的。

Windows("MASTERFILE.xlsm").Activate
Range("FA2:FT2").Select
Selection.Copy
Windows("NEW_FILE.xlsm").Activate
Sheets("borrowing").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Windows("MASTERFILE.xlsm").Activate
Range("FA25:FT28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("NEW_FILE.xlsm").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets("Main Page").Select

End Sub

请帮忙。谢谢！

Answer 1

这可能有所帮助。

<script src="https://ajax.googleapis.com/ajax/libs/jquery/3.1.1/jquery.min.js"></script>

假设您的日期格式为s / sheet中的日期
一次复制每一行。
假设您要在B（2）到AN（40）列中复制的数据

如何使用另一个单元格中的值引用VBA中的单元格

1 个答案: