- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
回復 1# gctsai - Sub tt()
- A = Range("C65536").End(xlUp).Row
- For i = 2 To A
- If IsError(Range("F" & i)) Then
- Else
- Range("C" & i) = Range("F" & i)
- End If
- Next
- End Sub
複製代碼 |
|