Excel VBA удаляет перекрытие данных в смежные поля

Question

Я пытаюсь написать сценарий VBA, который включает функцию для удаления перекрытия данных в смежные ячейки и изменения размера ячейки, чтобы она соответствовала длине данных, как показано в следующие привязки.

1) Оригинальная компоновка данных в Excel

2) Нажмите на верхний угол пусть руки, чтобы выбрать все поля

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

Попытайтесь использовать это. Простая функция, в которой вы сначала выбираете лист, где применять, а затем используйте функцию AutoFit в столбцах (что означает все столбцы) и размер столбцов по длине текста. Кроме того, вы можете выбрать только некоторые столбцы и т.д. ... но его на другой вопрос

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