- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
12#
發表於 2011-9-17 21:11
| 只看該作者
回復 11# jesscc
用 R1C1 表示法- Sub Test1()
- Dim KY As Range
- With Sheets("Sheet2")
- If .Range("E7").End(xlDown).Row = Rows.Count Then Exit Sub
- For Each KY In .Range(.[E7], .[E7].End(xlDown)).Offset(, 8) 'M欄
- If KY = "" And KY.Offset(, 1) <> "" And KY.Offset(, -1) <> "" Then
- KY.Offset(, 2) = "=Rounddown(RC[-1]*1000/RC[-3],0)"
- Else
- KY.Offset(, 2) = "=RC[-2]*1000/RC[-3]"
- End If
- KY.Offset(, 2) = KY.Offset(, 2).Value
- Next
- End With
- End Sub
複製代碼 |
|