Сортировка

[bank_notes]

Подскажите пожалуйста как средствами VBA можно изменить порядок сортировки товара по коду. Пример:

16
17
11s
14a
14b
15a
18a
9s

Стандартные способы сортируют сначала только цифры затем цифры с буквами

16
17
11s
14a
14b
15a
18a
9s


А нужен следующий порядок:

9s
11s
14a
14b
15a
16
17
18a

[ZORRO2005]

С помощью пары дополнительных столбцов ("числа","буквы") можно без VBA.

[SAS888]

Например, для столбца "A":

Sub Srt()
    Dim i As Long, j As Long, a(), b(), x
    b = Range([A1], Cells(Rows.Count, 1).End(xlUp)).Value: ReDim a(1 To UBound(b, 1), 1 To 1)
    For i = LBound(b, 1) To UBound(b, 1): a(i, 1) = Val(b(i, 1)): Next
    For i = LBound(a, 1) To UBound(a, 1) - 1
        For j = i + 1 To UBound(a, 1)
            If a(i, 1) > a(j, 1) Then
                x = a(i, 1): a(i, 1) = a(j, 1): a(j, 1) = x
                x = b(i, 1): b(i, 1) = b(j, 1): b(j, 1) = x
    End If: Next: Next
    Range([A1], Cells(UBound(b, 1), 1)).Value = b
End Sub

[bank_notes]

Комедия: Хотел написать СПАСИБО! но вылезла табличко: "Ваше сообщение слишком короткое, нужно не менее десяти символов". Ну что ж тогда

БОЛЬШОЕ СПАСИБО!

[Ilya_L]

Сообщение от SAS888

Например, для столбца "A":

Sub Srt()
    Dim i As Long, j As Long, a(), b(), x
    b = Range([A1], Cells(Rows.Count, 1).End(xlUp)).Value: ReDim a(1 To UBound(b, 1), 1 To 1)
    For i = LBound(b, 1) To UBound(b, 1): a(i, 1) = Val(b(i, 1)): Next
    For i = LBound(a, 1) To UBound(a, 1) - 1
        For j = i + 1 To UBound(a, 1)
            If a(i, 1) > a(j, 1) Then
                x = a(i, 1): a(i, 1) = a(j, 1): a(j, 1) = x
                x = b(i, 1): b(i, 1) = b(j, 1): b(j, 1) = x
    End If: Next: Next
    Range([A1], Cells(UBound(b, 1), 1)).Value = b
End Sub

А как в нем сделать, чтобы сортировка началась по столбцу G со второй строки, чтобы сортировка работала как для одного столбца так и для A:G?

[SAS888]

См. ответ здесь.