我要清除一個單元格，然後將值賦給它

Question

Sub Clear_Table(ct) 
    Range(ct).Select 
    'Range(Selection, Selection.End(xlToRight)).Select 
    'Range(Selection, Selection.End(xlDown)).Select 
    Selection.ClearContents 
    Range(ct).Select 
End Sub 

Sub rite() 



Clear_Table ("E10") 

Range("E10").Value = "dwsds" 

End Sub 

getting compile error: Argument not optional (only want to clear value in a cell not the entire range and put the value in that cell. please help)

Answer 1

下面是一些可以做的工作：

Option Explicit 

Sub Clear_Table(ct As Range) 

    ct.ClearContents 

End Sub 

Sub rite() 

    Clear_Table Range("E10") 
    Range("E10").Value = "dwsds" 

End Sub 

儘量避免選擇儘可能多的，你可以。在這裏看到更多 - How to avoid using Select in Excel VBA