返回列表 上一主題 發帖

[發問] 有關刪除線文字搬移請教

For Each A In ActiveSheet.UsedRange
  If A.Font.Strikethrough = True Then MsgBox A.Value
Next
學海無涯_不恥下問

TOP

        靜思自在 : 【停滯不前,終無所得】人都迷於尋找奇蹟,因而停滯不前;縱使時間再多、路再長,也了無用處,終無所得。
返回列表 上一主題