For n As Integer = 5 To 54
If ws1.cells(6+i,n-2).Formula = "" Then
ws1.cells(6+i,n-2).Value = Sheet1(n,3).Value
End If
If ws1.cells(6+i,n+48).Formula = "" Then
ws1.cells(6+i,n+48).Value = Sheet1(n,7).Value
End If
Next
For n As Integer = 6 To 35
If ws2.cells(6+i,n-3).Formula = "" Then
ws2.cells(6+i,n-3).Value = sheet2(n,3).Value
End If
If ws2.cells(6+i,n+27).Formula = "" Then
ws2.cells(6+i,n+27).Value = sheet2(n,7).Value
End If
Next
如何书写得简便点?