[Ruble]

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

Все действительно заработало. Вот так я переделала код:

Sub sort()
Dim L As Integer
Dim n As Integer
Dim i As Integer
Dim x As Integer

Range("A1:C11").Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste

For n = 1 To 7
For L = n + 1 To 7

If Cells(n, 1) > Cells(L, 1) Then
k = Cells(L, 1)
Cells(L, 1) = Cells(n, 1)
Cells(n, 1) = k
z = Cells(L, 2)
Cells(L, 2) = Cells(n, 2)
Cells(n, 2) = z
x = Cells(L, 3)
Cells(L, 3) = Cells(n, 3)
Cells(n, 3) = x

End If
Next L
Next n
End Sub

На первом листе находятся данные(первые 3 столбца по 7 строк), они копируются на новый лист где и сортируется первый столбец по возрастанию(соответствующие данные в соседних столбцах не сортируются,а просто перемещаются соответственно первому - лучше сформулировать не смогла )) ). Классно. Потом по идее с этих данных строится график в AutoCad'e (это я знаю как делать) и второй лист удаляется. Т.е. необходимо оставить данные на первом листе нетронутыми. Посмотри пожалуйста Ruble, может что-то можно усовершенствовать. Заранее благодарю ))

лучше не куда, мОлодЦЦа