在本文中,我们创建了两个宏来了解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]