- 帖子
- 75
- 主題
- 8
- 精華
- 0
- 積分
- 109
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2015-4-19
- 最後登錄
- 2025-5-7
|
2#
發表於 2019-2-18 15:24
| 只看該作者
SUB TEXT()
ROW1 = CELLS( ROWS.COUNT,"C").END(3).ROW
FOR i = 2 TO ROW1
IF CELLS(i,"C").VALUE <> "" THEN
CELLS(i,"F").VALUE = CELLS(i,"M").VALUE
ELSE
CELLS(i,"F").VALUE = ""
END IF
NEXT
END SUB |
|