Проблема заключается в том, что !=
не работает как функция в excel vba.
Я хочу использовать
If strTest != "" Then
вместо If strTest = "" Then
Есть ли другой подход к этому, кроме !=
?
Моя функция для имитации !=
-
Sub test()
Dim intTest As Integer
Dim strTest As String
intTest = 5
strTest = CStr(intTest) ' convert
Range("A" + strTest) = "5"
For i = 1 To 10
Cells(i, 1) = i
If strTest = "" Then
Cells(i, 1) = i
End If
Next i
End Sub