2015-12-01 2 views

ответ

1

Это макросы. Для написания макросов, не забудьте зайти в раздел ленты развития и добавить его в:

Sub SortIndividualJR() 
    Dim rngFirstRow As Range 
    Dim rng As Range 
    Dim ws As Worksheet 

    Application.ScreenUpdating = False 
    Set ws = ActiveSheet 
    Set rngFirstRow = ws.Range("A1:JR1") 
    For Each rng In rngFirstRow 
     With ws.Sort 
      .SortFields.Clear 
      .SortFields.Add Key:=rng, Order:=xlAscending 
      'assuming there are no blank cells.. 
      .SetRange ws.Range(rng, rng.End(xlDown)) 
      .Header = xlYes 
      .MatchCase = False 
      .Apply 
     End With 
    Next rng 
    Application.ScreenUpdating = True 
    End Sub 

Вы можете изменить диапазон, чтобы соответствовать, сколько столбцов у вас есть.

+1

Я смущенный. Я не вижу «ленты разработки» –

+1

В Excel 2010 перейдите в настройки, а затем добавьте в ленту разработки. Убедитесь, что инструмент макросов виден. В нем вы сможете легко запустить его. – ephackett

+0

Как его создать? –

0

Если это не нужно быть «Кодекс» Ответ:

Вы пытались с помощью «сортировки столбца» функция найденную под Home Ribbon>Sort&Filter>Custom Sort>Options, а затем выберите «Сгруппировать Слева направо»

+0

У меня есть, но я хочу, чтобы несколько столбцов сортировались независимо друг от друга. У меня много данных и я не хочу делать каждый столбец за раз. –