返回列表 上一主題 發帖

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

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

TOP

        靜思自在 : 信心、毅力、勇氣三者具備,則天下沒有做不成的事。
返回列表 上一主題