如何在Excel中指定VBA制表符
在本文中,我们创建了两个宏来了解VBA中制表符的格式。
我们已将A9:A11范围内的数据作为原始数据。
在示例1中,我们创建了一个字符串,其中我们合并了A9:A11范围内单元格的数据,并用制表符(vbTab)分隔。当我们使用消息框显示字符串时,我们将能够看到制表符间距。
但是,当我们在单元格A14中插入字符串值时,制表符间距不可见。我们使用了一些Excel公式来显示单词之间存在的制表符。
在示例2中,我们在单元格A14的字符串值中分隔了每个字符,并使用了换行符(vbNewLine)插入换行符。示例2的输出也使用消息框显示。
请遵循以下代码
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]