05.12.2016

Как загрузить данные из Excel в 1С Предприятие


Макрос по удаленю пустых колонок в Excel

Sub Udalenie_Pustyh_Stolbtsov()
Dim c As Long, FirstColumn As Long, LastColumn As Long
FirstColumn = ActiveSheet.UsedRange.Column
LastColumn = ActiveSheet.UsedRange.Columns.Count - 1 + ActiveSheet.UsedRange.Column
    For c = LastColumn To FirstColumn Step -1
        If Application.CountA(Columns(c)) = 0 Then
            Columns(c).Delete
        End If
    Next c
End Sub

Возврат к списку

  • Facebook
  • Вконтакте