В этой статье мы создали два макроса, чтобы понять форматирование символа табуляции в VBA.

Мы взяли данные в диапазоне A9: A11 в качестве необработанных данных.

ArrowRaw

В примере 1 мы создали строку, в которой мы объединили данные из ячеек в диапазоне A9: A11, разделенные символами табуляции (vbTab). Когда мы отображаем строку с помощью окна сообщения, мы сможем увидеть интервал табуляции.

ArrowFirstOutput

Однако, когда мы вставляем строковое значение в ячейку A14, интервал табуляции не виден. Мы использовали некоторые формулы Excel, чтобы показать символы табуляции между словами.

ArrowFormulas

В примере 2 мы разделили каждый символ в строковом значении ячейки A14 и использовали символ новой строки (vbNewLine) для вставки разрывов строки. Вывод примера 2 также отображается в окне сообщения.

ArrowSecondOutput

Пожалуйста, введите код ниже

Option Explicit

Sub example1()

'Declaring variable

Dim MainString As String

'Concatenating value from range A9 to A11 separated by Tab character

MainString = Range("A9").Value & vbTab & Range("A10").Value & vbTab & Range("A11").Value

'Display string in message box

MsgBox MainString

'Assigning value to cell A14

Range("A14").Value = MainString

End Sub

Sub example2()

'Declaring variables

Dim i, CharLength As Integer

Dim Output As String

Dim InputValue As String

'Getting input value from cell A14

InputValue = Range("A14").Value

CharLength = Len(InputValue)

'Looping through all the characters in the input value

For i = 1 To CharLength

'Creating string in which each character in the input is separated by new line

Output = Output & Asc(Mid(InputValue, i, 1)) & " " & Mid(InputValue, i, 1) & vbNewLine

Next i

'Displaying output using message box

MsgBox Output

End Sub

Если вам понравился этот блог, поделитесь им с друзьями на Facebook и Facebook.

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]