选项卡在Excel单元格中分隔数据

Question

我想构建一个制表符分隔的字符串，并将其插入单元格“A1”。 由于某种原因，它不识别制表符分隔符。 这是我的代码：

Worksheets("Sheet1").Range("A1").Value = Join(Application.WorksheetFunction.Transpose(Worksheets("Sheet1").Range("B1:B11")), Chr(9))

我甚至尝试过“vbTab”而不是“Chr（9）”，但我仍然看不到字符串中的标签。 它插入一个没有任何分隔符的字符串。

提前致谢

Answer 1

选项卡在那里但没有显示。 尝试

Dim stg As String
Dim pos As Long

Worksheets("Sheet1").Range("A1").Value = Join(Application.WorksheetFunction. _
                        transpose(Worksheets("Sheet1").Range("B1:B11")), Chr(9))

stg = Worksheets("Sheet1").Range("A1").Value

For pos = 1 To Len(stg)
  Debug.Print Asc(Mid(stg, pos, 1)) & " ";
Next
Debug.Print

立即窗口将显示由9个字符组成的字符串的ASCII值。

Answer 2

Excel无法在单元格中直观显示选项卡。

就Excel而言，tab表示移动到下一个单元格。 如果复制其中包含选项卡的字符串并将结果粘贴到Excel中，则会将文本放在所选单元格中的选项卡之前，将文本放在下一个单元格中的选项卡之后。

如果您只需要标签，那么您可以放心。 如果您希望它以可视方式显示，请修改您的问题以解释您要执行的操作。