標題: [發問] 有關刪除線文字搬移請教 [打印本頁]

---

作者: macro0029    時間: 2017-7-3 16:43     標題: 有關刪除線文字搬移請教

請教各位大大
請問如何將Sheet1,Sheet2內有刪除線的儲存格，複製至Sheet3
因為有爬了一下文章，都是有關刪除文字，沒有移動文字的
或者告訴我如果判斷刪除線我可以在自己研究 感謝 ..

---

作者: Hsieh    時間: 2017-7-4 10:43

For Each A In ActiveSheet.UsedRange
  If A.Font.Strikethrough = True Then MsgBox A.Value
Next

---

作者: GBKEE    時間: 2017-7-4 11:33

回復 1# macro0029

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sh As Worksheet, E As Range, Rng As Range
   
4.     For Each Sh In Sheets(Array("SHEET1", "SHEET2"))
   
5.         Set Rng = Nothing
   
6.         For Each E In Sh.UsedRange
   
7.             If E <> "" And E.Font.Strikethrough = True Then
   
8.                 If Rng Is Nothing Then
   
9.                     Set Rng = E
   
10.                 Else
    
11.                 Debug.Print Rng.Address
    
12.                     Set Rng = Union(Rng, E)
    
13.                 End If
    
14.             End If
    
15.         Next
    
16.         If Not Rng Is Nothing Then
    
17.             Rng.EntireRow.Copy Sheets("SHEET3").Range("A" & Rows.Count).End(xlUp).Offset(1)
    
18.         End If
    
19.     Next
    
20. End Sub

複製代碼

---

作者: macro0029    時間: 2017-7-4 16:58

回復 3# GBKEE


    感謝G大版主，成功解決我的問題
    會更努力向各位學習 謝謝~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)