Объединить значения ячейки, если не null

Я создаю макрос VBA, который демонстрирует теорему промежуточного значения.

Пользователь вводит термины, из которых Термин создается и печатается в соответствующую строку и столбец C.

Если эта строка не является нулевой (содержит термин), то этот термин должен быть объединен в Полиномиальный (все конкатенированные термины). Как это сделать с помощью макроса?

Код до сих пор.

Option Explicit Sub Function1() Dim Polynomial As String Dim Sign Dim RowCounter As Integer Dim Degree Dim Coefficient Dim Term As String Dim Variable RowCounter = 1 While Cells(RowCounter, 1).Value <> "" And Cells(RowCounter, 2).Value <> "" ' as long as there is a coefficient and degree MsgBox "Enter polynomial by terms." Variable = InputBox("Enter variable (x, y, z, etc.).") Degree = Cells(RowCounter, 1).Value 'A2 and down If (Coefficient < 0) Then Sign = " - " ' if coefficient negative Else If Coefficient > 0 Then Sign = " + " ' if coefficient positive End If Term = Sign & Coefficient & Variable & "^" & Degree = Cells(RowCounter + 1, 3).Value ' C2 and down While Cells(RowCounter, 3).Value <> "" ' as long as there is a term 'Polynomial=all polynomials combined RowCounter = RowCounter + 1 Wend RowCounter = 1 ' reset row counter While Cells(RowCounter, 3).Value <> "" ' as long as there is a term MsgBox "Combining like terms to form polynomial." RowCounter = RowCounter + 1 Wend MsgBox Polynomial End Sub 

Давайте будем гением компьютера.