VBA求助：多次复制计算结果到新的区域

xiashuming1

VBA求助：多次复制计算结果到新的区域

非常感谢！

xiashuming1

Sub CopyAndDelete()
    Dim i, g
    g = 2
   
    For i = 2 To 51
        ' C2:HS17 区域的计算结果复制到 C809:HS824 中
        Range(Cells(g, 3), Cells(g + 15, 227)).Copy
        Range(Cells(g + 807, 3), Cells(g + 822, 227)).PasteSpecial xlPasteValues
        
        ' HW2:IA201 中的数据复制到 HW3:IA202 中
        Range(Cells(i, 231), Cells(i + 199, 235)).Copy
        Range(Cells(i + 1, 231), Cells(i + 200, 235)).PasteSpecial xlPasteValues
        
        
        
        '删除 HW2:IC2 中的数据
        Range(Cells(i, 231), Cells(i, 237)).ClearContents
        
        g = g + 16
               
      
    Next i
End Sub


请高手们帮我看看错在哪里，非常感谢！