[發問] 清除範圍內的顏色

missbb

想要清除範圍內的顏色 (但是要保留原有的格式化設定), 用下程式碼卻不行, 請指教是那兒錯了?

1. Sub test()
   
2. Dim i As Integer
   
3.   
   
4.    
   
5. lastrow = Range("a" & Rows.Count).End(xlUp).Row
   
6.    
   
7. For i = 7 To Sheets.Count
   
8.    With Sheets(i).Range("F4:aj" & lastrow)
   
9.    .ClearContents
   
10.    .Interior.ColorIndex = xlNone
    
11.    
    
12.     End With
    
13.    
    
14.     Next i
    
15.    
    
16. End Sub

複製代碼

missbb

回復 2# lcctno

已試但不支援此方法, 附上檔案.

1. 表格TEST2.rar (48.59 KB)
   下載次數: 7
   

   2015-8-23 20:25

複製代碼

第2個問題是想在不同工作表, 清除F4至AJ 最後一行的內容及顏色, 以D17 開工人數 為標記, 因很工作表人數不同, 只寫了下列就不懂了???:'(

1. Sub 清除F4至AJLR()
   
2. 
   
3. '想清除F4至AJ 最後一行的內容及顏色, 以D17 開工人數 為標記, 因很工作表人數不同
   
4. 
   
5. Dim r As Variant
   
6. Dim c As Variant
   
7. Dim cl As Variant
   
8. 
   
9. Worksheets("taiwan").Activate
   
10. 
    
11. Set c = Range("D4:D20").Find("開工人數")
    
12. If Not c Is Nothing Then
    
13.    c.Select
    
14.    r = Selection.Row  '返回行
    
15.    cl = Selection.Column '返回列
    
16.    
    
17.    End If
    
18. 
    
19. End Sub

複製代碼

missbb

回復 5# ikboy

THANKS