如何將Excel單元格的內容設置爲字符串變量？

Question

我正在格式化我收到的一些數據。我在A列中有幾百名學生，由於某些奇怪的原因，在名稱中隨機放置了一個*號。我想以編程方式從所有名稱中刪除所有*字符。

For x = 2 To 300 

     Dim strStudent as String 

     //how do i set contents of cell to string strStudent 

     strStudent = Replace(strStudent, "*", "") //replace * with nothing 

Next 

我的問題是，如何設置我們循環到strStudent變量的單元格的內容？

Answer 1

試試這個

Dim strStudent As String 

With ThisWorkbook.Sheets("Sheet1") 
    For x = 2 To 300 
     strStudent = Replace(.Range("A" & x).Value, "*", "") '//replace * with nothing 
     .Range("A" & x).Value = strStudent 
    Next 
End With 

或者你並不需要一個變量

With ThisWorkbook.Sheets("Sheet1") 
    For x = 2 To 300 
     .Range("A" & x).Value = Replace(.Range("A" & x).Value, "*", "") 
    Next 
End With