复制单元格内容,怎么写代码?

wuhuisheng

回复 wayy 的帖子

帮忙一下，你说没粘贴，怎么修改一下能用？
Sub 复制()
  Dim i As Integer
    For i = 2 To 13
       If Sheets("报表").Range("c" & i) > 0 And Range("d" & i) > 0 Then
   
          Sheets("报表").Range("c" & i, "d" & i).Select
          Selection.Copy
          Sheets("统计表").Select
          Range("c" & i, "d" & i).Select
    Else
   End If
   Next i
End Sub