紧急求助高手！！！！

leisong22

有高手能解决下列问题吗？想在N多个Excel中输入不同的内容，每个Excel表内有固定格式，即在固定的行与列输入一批文字，大概需要在上千个Excel输入，可以批量完成吗？例如附件中需要将文字填入表1表2的中继段名称里

leisong22

师父们来看看，有办法吗？在线等

爱疯

建议说的具体些

比如，哪个文字填入哪个文件？即对应关系是什么

leisong22

leisong22

爱疯 发表于 2019-4-2 15:42
建议说的具体些

比如，哪个文字填入哪个文件？即对应关系是什么

比如附件内，表1中继段名称填入：湖南-河北，表2中继段名称填入：湖南-四川，依次将不同的中继段名称填入每个EXCEL内，数量很多

爱疯

Sub test()
    Dim A, p, i
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets(5).Select
    p = ThisWorkbook.Path & "\"
    A = Range("a1").CurrentRegion

    For i = 1 To UBound(A)
        Sheets(1).[b2] = A(i, 1)
        Sheets(2).[b2] = A(i, 1)
        Sheets(Array(1, 2, 3, 4)).Copy
        With ActiveWorkbook
            .SaveAs p & i
            .Close
        End With
    Next i
End Sub
需填入的信息2.rar (23.46 KB, 下载次数: 4)

2019-4-2 15:58 上传

点击文件名下载附件

leisong22

爱疯 发表于 2019-4-2 15:58
Sub test()
    Dim A, p, i
    Application.ScreenUpdating = False

爱疯

比如交接时间，没找到数据在哪儿？

leisong22

爱疯 发表于 2019-4-2 16:10
比如交接时间，没找到数据在哪儿？

附件内的例子，拜托前辈了，实际上有上千条的中继段信息

爱疯

Sub test()
    Dim A, p, i
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    p = ThisWorkbook.Path & "\"
    A = Sheets(2).Range("a1").CurrentRegion
    Sheets(1).Select

    For i = 1 To UBound(A)
        '对应关系
        [b2] = A(i, 1)    '中继段名称
        [h2] = A(i, 2)    '交接时间
        [b3] = A(i, 3)    '光缆级别
        [d3] = A(i, 4)    '光缆芯数
        [f3] = A(i, 5)    '皮长公里 (KM)
        [h3] = A(i, 6)    '区县
        [b4] = A(i, 7)    '敷设方式 (可填多种)
        [e4] = A(i, 8)    '地形 (可填多种)
        [b5] = A(i, 9)    '杆?井?标石号
        [a6] = A(i, 10)    '交接内容:
        [b7] = A(i, 11)    '遗留问题:
        [a10] = "交出单位：" & A(i, 12)    '交出单位:
        [a11] = "接收单位：" & A(i, 13)    '接收单位:

        Sheets(1).Copy
        With ActiveWorkbook
            .SaveAs p & A(i, 1)
            .Close
        End With
    Next i
End Sub
信息2.rar (20.32 KB, 下载次数: 2)

2019-4-2 16:36 上传

点击文件名下载附件



看明白对应关系后，自己就可以改了