防止长字符串溢出到相邻单元格中

Question

我有一个使用自动化从Ms访问创建的XLS。我有一些单元格包含一个很长的数据字符串。如果相邻单元格为NULL，则该长字符串溢出到该相邻单元格中。

我意识到有两种强力方法可以解决这个问题：

1. 在空单元格中强制填充"字符
2. 将长文本换行，但将行高限制为一行

我可以发誓，在这个问题上有一种更优雅的方法，但我记不起了。

Answer 1

选项#2是我通常使用的：

Sub cell_alignment()
With ActiveCell
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlTop
    .WrapText = True
End With
End Sub

额外的清理命令（如果需要）和简化的换行命令：

activecell.WrapText = True
cells.EntireRow.AutoFit