老师们帮忙修改EXCEL的VBA宏

发布网友发布时间：2023-08-16 06:17

共1个回答

热心网友时间：2023-08-29 04:08

一对多复制吗，把"1+.xlsx"复制到"4+.xlsx"、"5+.xlsx"、"6+.xlsx"....."1000+.xlsx"，是不是这个意思，代码如下：

Option Explicit
Sub YgB()
    Dim wb1 As Workbook, wb2 As Workbook, i, j
    Set wb1 = Workbooks("1+.xlsx")
    For i = 6 To 1000
        Set wb2 = Workbooks(i & "+.xlsx")
        For j = 2005 To 2014
            wb1.Sheets(Trim(j)).Range("A1:H330").Copy wb2.Sheets(Trim(j)).Range("A1")
        Next j
    Next i
End Sub

注意，我已经写了SUB，你可以直接使用我的代码，或者把除开SUB和END SUB之外的行拷贝到你的SUB里面。

此外，i是复制目标的工作簿，如果没有1000个，请自行修改，而且需要事先打开，如果需要程序自动打开可以使用下面的语句：

WorkBooks.Open i & "+.xlsx"

程序中的j是工作表的范围，我从你的代码看出是2005~2014，如果需要修改请自行调整。

使用中有问题请拷屏追问。