方法range作用于对象worksheet时失败

yalisand

求助各位老师看看这串代码的写法有啥问题


Sub ee()
Dim aa, bb As Workbook
Dim cc As Worksheet, xx As Range, ww As Range, dd As Range, tt, yy As Range, rr As Range
aa = Dir(ThisWorkbook.Path & "\原数据\")
Do Until aa = ""
    Set bb = Workbooks.Open(ThisWorkbook.Path & "\原数据\" & aa)
        For Each cc In Sheets
            Set xx = cc.Range("b" & Rows.Count).End(xlUp)
            Set ww = Sheet1.Range("a2").End(xlDown).Offset(1, 0)
            Set rr = Sheet1.Range(ww).End(xlToRight).Offset(0, 1)    '此处系统报错方法range作用于对象worksheet时失败
            cc.Range("a2", xx).Copy ww
            tt = cc.Range("a2", xx).Rows.Count
            Set yy = Sheet1.Range(rr).Offset(tt, 0)
            Range(rr, yy) = aa
            
            
        Next
    bb.Close
    aa = Dir
Loop
End Sub

zjzyj

Set rr = ww.End(xlToRight).Offset(0, 1)