excel vba代码能否简化？

来源：百度知道 编辑：UC知道 时间：2024/05/21 13:44:45
Private Sub 更新_Click()
Dim i, o As Integer
i = 1
o = Sheet21.Cells(2, 11)

If o = 1 Then
While i < 43
If Sheet21.Cells(3 + i, 3) <> "" Then
Sheet21.Cells(3 + i, 4) = Sheet21.Cells(3 + i, 3)
End If
If Sheet21.Cells(3 + i, 8) <> "" Then
Sheet21.Cells(3 + i, 9) = Sheet21.Cells(3 + i, 8)
End If
i = i + 1
Wend
Sheet7.Range("C5:G5") = Sheet7.Range("C19:G19").Value
Sheet7.Range("C23:G23") = Sheet7.Range("C37:G37").Value
Sheet7.Range("C41:G41") = Sheet7.Range("C55:G55").Value
End If
If o = 2 Then
Sheet7.Range("C6:G6") = Sheet7.Range("C19:G19").Value
Sheet7.Range("C24:G24") = Sheet7.Range("C37:G37").Value
Sheet7.Range("C42:G42") = Sheet7.Range("C55:G55").Value
End If
If o = 3 Then
Sheet7.Range("C7:G7") = Sheet

i=1
o=sheet21.cells(2,11)
for j=1 to 12
if j=o then
if j=1 then
While i< 43
If Sheet21.Cells(3 + i, 3) <> "" Then
Sheet21.Cells(3 + i, 4) = Sheet21.Cells(3 + i, 3)
End If
If Sheet21.Cells(3 + i, 8) <> "" Then
Sheet21.Cells(3 + i, 9) = Sheet21.Cells(3 + i, 8)
End If
i = i + 1
Wend
End If
sheet7.range("C" & j+4 & ":G" j+4)=sheet7.range("C19:G19").value
sheet7.range("C" & j+22 & ":G" j+22)=sheet7.range("C37:G37").value
sheet7.range("C" & j+40 & ":G" j+40)=sheet7.range("C55:G55").value
End If
next

sheet7.range("C" & j+4 & ":G" & j+4)=sheet7.range("C19:G19").value
sheet7.range("C" & j+22 & ":G" & j+22)=sheet7.range("C37:G37").value
sheet7.range("C" & j+40 & ":G" & j+40)=