简化宏代码

来源：百度知道 编辑：UC知道 时间：2024/05/31 12:09:39
' Macro7 Macro
If Range("c11").Value = "" Then
Range("AT52:AT951").Select
Selection.ClearContents
ElseIf Range("c11").Value = 1 Then

Range("C52:C81").Select
Selection.Copy
Range("AT52").Select
ActiveSheet.Paste
Range("AT82:AT951").Select
Selection.ClearContents
ElseIf Range("c11").Value = 2 Then
Range("C52:C81").Select
Selection.Copy
Range("AT52").Select
ActiveSheet.Paste
Range("AT82").Select
ActiveSheet.Paste
Range("AT112:AT951").Select
Selection.ClearContents
ElseIf Range("c11").Value = 3 Then
Range("C52:C81").Select
Selection.Copy
Range("AT52").Select
ActiveSheet.Paste
Range("AT82&quo

Dim i As Long, valC11 As Long, Rng As Long
valC11 = CLng(Val(Range("c11").Value))
If Range("c11").Value = "" Then
Range("AT52:AT951").Select
Selection.ClearContents
ElseIf valC11 > 0 Then
Range("C52:C81").Select
Selection.Copy
Rng = 52
For i = 1 To valC11
Range("AT" & Rng).Select
ActiveSheet.Paste
Rng = Rng + 30
Next i
If Rng <= 951 Then
Range("AT" & Rng & ":AT951").Select
Selection.ClearContents
End If
End If
End Sub

不清楚的话再给我信息吧