vba - Excel VBA 删除相邻字段中的数据重叠

Question

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

1) Excel 中数据的原始布局

2) 单击顶部左手角以选择所有字段

3) 双击列处单元格的侧面可调整单元格大小以适合数据长度。

目前，我正在使用下面的.Horizo​​ntalAlignment，但它不起作用:

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

尝试使用这个。简单的功能，您首先选择要应用的工作表，然后使用“列”(意味着所有列)上的“自动调整”功能，它将按文本长度调整列的大小。您也可以仅选择某些列等...但它针对不同的问题

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