Как установить содержимое ячейки Excel равным строковой переменной?

Question

Я форматирование некоторых данных, которые я получил. У меня несколько сотен имен студентов в колонке А, и по какой-то странной причине случайный случай * помещается случайным образом по всем именам. Я хочу программно удалить все * символы из всех имен.

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