按批量更改多个工作簿中某单元格的值

tian8412

        各位老师，求助个问题，如图，附件汇总表，A:C列，为文件夹中工作表的数据，A列为工作簿名，B列为工作表名，C列为原来所对应工作表F2内容，现在我想把这些工作表的F2的内容，更改为所对应的D列的值，所有工作簿在同一文件夹里面

Edifier_1989

Sub Macro1()
    arr = [a2].CurrentRegion
    Set dic = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        dic(arr(i, 1)) = dic(arr(i, 1)) + 1
    Next
    For i = 2 To UBound(arr)
        Workbooks.Open Filename:=ThisWorkbook.Path & "\" & arr(i, 1)
        For j = i To i + dic(arr(i, 1)) - 1
            Sheets(arr(j, 2)).[F2] = arr(j, 4)
        Next
        ActiveWorkbook.Save
        ActiveWorkbook.Close
        i = j - 1
    Next
End Sub

tian8412

Edifier_1989 发表于 2017-3-26 17:40
Sub Macro1()
    arr = [a2].CurrentRegion
    Set dic = CreateObject("scripting.dictionary")

感谢老师，测试已经能用了