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

如何将Excel单元格的内容设置为等于字符串变量？

1 个答案: