圖一
Sub TABCDE()
Sheet44.Select
Range("N1").Select
Sheet44.[N2:M65536].ClearContents
For M = 2 To 1000
If 1 = 1 Then
Sheet44.Cells(M, 14) = Sheet44.Cells(M, 9) + Sheet44.Cells(M, 10) + Sheet44.Cells(M, 11) + Sheet44.Cells(M, 12) + Sheet44.Cells(M, 13)
End If
Next
End Sub作者: lpk187 時間: 2015-2-10 14:55