m******u
发帖数: 12400 | 1 Can't be compiled, won't work. Why?
...............................
Sub Add_spe()
Dim i As Integer
Dim j As Integer
For i = 2 To i = 5
For j = 2 To j = 6
Cell(i, j).Value = (Cell(i, 1).Value + Cell(1, j).Value)
Next j
Next i
End Sub | A*****a
发帖数: 52743 | 2 Cells(i,j).Value?
【在 m******u 的大作中提到】
: Can't be compiled, won't work. Why?
: ...............................
: Sub Add_spe()
: Dim i As Integer
: Dim j As Integer
: For i = 2 To i = 5
: For j = 2 To j = 6
: Cell(i, j).Value = (Cell(i, 1).Value + Cell(1, j).Value)
: Next j
: Next i
| m******u
发帖数: 12400 | 3 right. corrected already. |
|
