Question

Excel用vba复制一个区域到很多个可以定位到的地方，详情如下：

我想复制C1到D4区域的内容，黏贴到：整个工作簿（含有很多个工作表）里内容为“总计”的单元格的右边一个单元格，对了，复制的单元格里是有数组公式的，例子见图：
不用考虑复制的内容带公式的问题，直接复制过去就好啦

Answer 1

答：

Sub Demo()
    Dim Sht As Worksheet
    Dim Rng As Range, C As Range
    Dim FirstAddress As String
    
    Set Rng = Sheets("Sheet1").Range("C1:D4")
    For Each Sht In Worksheets
        With Sht
            Set C = .UsedRange.Find(what:="总计", lookat:=xlWhole)
            If Not C Is Nothing Then
                FirstAddress = C.Address
                Do
                    Rng.Copy C.Offset(0, 1)
                    Set C = .UsedRange.FindNext(C)
                Loop While Not C Is Nothing And C.Address <> FirstAddress
            End If
        End With
    Next Sht
End Sub