我是VBA的新手，尝试通过点击Master-3中工作表名称“Summary”中的“CommandButton1”，自动复制并粘贴日常 生产环境 文件中的一系列数据并粘贴到主文件（Master-3.xlsm）上.XLSM .

VBA代码将在“摘要”中引用我要复制的文件中的“C1”值，以便我可以只更改文件名以将每日 生产环境 数据自动复制到Master-3.xlsm中 . 代码将为日常 生产环境 文件中的每张纸张执行自动复制数据A490：AJ510，进入具有相同纸张名称的Master-3.xlsm .

我遇到的问题：

  • 我想复制具有值（忽略公式）的行，直到每张 生产环境 文件的每张表格中的A490：AJ510的空白行 . 现在代码将所有内容复制到Master-3.xlsm中

  • 当前数据在Master-3.xlsm的每个工作表名称中粘贴在A7上 . 我想让它检测A列中的空行并粘贴 . 因为我每天执行自动复制后，每个工作表在A列中都会有不同的空行 . 它可能会检测从A7到A998的空白行，因为A999有"END"，由于Master-3.xlsm中每张纸的J列上的公式，我需要它

）

Private Sub CommandButton1_Click()
Dim aw As Workbook
Dim y As Workbook
Dim sh As Worksheet

Set aw = Application.ActiveWorkbook
Set y = Application.Workbooks.Open(Range("C1").Value)

For i = 1 To aw.Sheets.Count
    Set sh = Nothing
    On Error Resume Next
    Set sh = y.Worksheets(aw.Worksheets(i).Name)
    On Error GoTo 0
    If TypeName(sh) <> "Nothing" Then
        sh.Range("A490:AJ510").Copy
        aw.Worksheets(i).Range("A7").PasteSpecial xlPasteValues
    End If
Next i
Application.CutCopyMode = False
End Sub
excel vba excel-vba