помогите преобразовать код vba в delphi
| Код |
Sub q()
Application.ScreenUpdating = False
Range("A1:J100").Select
Range(Selection, Selection.End(xlDown)).Select
irow = ActiveSheet.UsedRange.Rows.Count
While irow > 0
Cells(irow, 2).Select
selection_one = Range(Selection, Selection.End(xlToRight)).Select
Selection.Sort Key1:=Range(Selection, Selection.End(xlToRight)), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
icolumn = ActiveSheet.UsedRange.Columns.Count
For i = icolumn To 2 Step -1
If ActiveSheet.Cells(irow, i).Value = ActiveSheet.Cells(irow, i - 1).Value _
Then
ActiveSheet.Cells(irow, i).Delete Shift:=xlToLeft
End If
Next i
irow = irow - 1
Wend
Application.ScreenUpdating = True
End Sub
|
|