Excel VBA删除数据到相邻字段的重叠

我正在尝试编写一个VBA脚本，该脚本合并了删除数据重叠到相邻单元格的function，并调整单元格大小以适合数据的长度，如下面的快照中所示。

1）Excel中数据的原始布局

2）点击顶部的转angularselect所有字段

3）在列上双击单元格的两侧来调整单元格的大小以适应数据长度。

目前，我在下面使用.HorizontalAlignment ，但它不起作用：

 With wks With .Cells(1, 1).CurrentRegion lastCol = .Columns.Count lastRow = .Rows.Count End With 'Select the interested cells and insert borders around the interested fields .UsedRange.Borders.LineStyle = xlContinuous .UsedRange.HorizontalAlignment = xlLeft End With 

Answer 1

我相信你正在寻找Range.AutoFit方法。

 Sub allFit() Dim c As Long With Worksheets("Sheet1") With .Cells(1, 1).CurrentRegion For c = 1 To .Columns.Count With .Columns(c) .WrapText = False .AutoFit End With Next c End With End With End Sub 

Answer 2

尝试使用这个。 简单的function，首先select要应用的工作表，然后使用Columns（这意味着所有列）functionAutoFit，它将根据文本长度列的大小。 你也可以只select一些列等等，但它的不同的问题

 Sub adjustColumns() Sheets("Sheet3").Columns.AutoFit End Sub