- 帖子
- 12
- 主題
- 2
- 精華
- 0
- 積分
- 19
- 點名
- 0
- 作業系統
- windower 7
- 軟體版本
- 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2013-10-24
- 最後登錄
- 2020-1-30
|
Sub addp_2()
Dim i As Integer, j As Integer
j = Range("A1").End(xlToRight).Columns
For i = 2 To Range("A1").End(xlDown).Row Step 2
Cells(i, j + 1) = WorksheetFunction.Sum(Range(Cells(i, 1), Cells(i, j)))
Next
End Sub
這樣可以吧試看看 |
|
發表於 2013-10-31 16:40
| 