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中，它会将文本放在所选单元格中的选项卡之前，将文本放在下一个单元格中的选项卡之后。

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

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

2 个答案: