Try use :
Sort Method [Excel 2003 VBA Language Reference] from Mikrosoft MSDN
Syntax : expression.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)
Key1 Optional Variant. The first sort field, as either text (a PivotTable field or range name) or a Range object ("Dept" or Cells(1, 1), for example).
| XlSortOrder can be one of these XlSortOrder constants. | | xlDescending. Sorts Key1 in descending order. | | xlAscending default. Sorts Key1 in ascending order. |
Key2 Optional Variant. The second sort field, as either text (a PivotTable field or range name) or a Range object. If you omit this argument, there's no second sort field. Cannot be used when sorting Pivot Table reports.
XlSortType can be one of these XlSortType constants. | | xlSortLabels. Sorts the PivotTable report by labels. | | xlSortValues. Sorts the PivotTable report by values. |
XlSortOrder can be one of these XlSortOrder constants. | | xlDescending. Sorts Key2 in descending order. | | xlAscending default. Sorts Key2 in ascending order. |
Key3 Optional Variant. The third sort field, as either text (a range name) or a Range object. If you omit this argument, there's no third sort field. Cannot be used when sorting PivotTable reports.
| XlSortOrder can be one of these XlSortOrder constants. | | xlDescending. Sorts Key3 in descending order. | | xlAscending default. Sorts Key3 in ascending order. |
| XlYesNoGuess can be one of these XlYesNoGuess constants. | | xlGuess. Let Microsoft Excel determine whether there's a header, and to determine where it is, if there is one. | | xlNo default. (The entire range should be sorted). | | xlYes. (The entire range should not be sorted). | OrderCustom Optional Variant. This argument is a one-based integer offset to the list of custom sort orders. If you omit OrderCustom, a normal sort is used. MatchCase Optional Variant. True to do a case-sensitive sort; False to do a sort that's not case sensitive. Cannot be used when sorting PivotTable reports.
| XlSortOrientation can be one of these XlSortOrientation constants. | | xlSortRows default. Sorts by row. | | xlSortColumns. Sorts by column. |
| XlSortMethod can be one of these XlSortMethod constants. | | xlStroke Sorting by the quantity of strokes in each character. | | xlPinYin default. Phonetic Chinese sort order for characters. |
| XlSortDataOption can be one of these XlSortDataOption constants. | | xlSortTextAsNumbers. Treat text as numeric data for the sort. | | xlSortNormal default. Sorts numeric and text data separately. |
| XlSortDataOption can be one of these XlSortDataOption constants. | | xlSortTextAsNumbers. Treats text as numeric data for the sort. | | xlSortNormal default. Sorts numeric and text data separately. |
| XlSortDataOption can be one of these XlSortDataOption constants. | | xlSortTextAsNumbers. Treats text as numeric data for the sort. | | xlSortNormal default. Sorts numeric and text data separately. |
To this case :
Sub SortRange()
Worksheets("Sheet1").Range("A1").Sort _
Key1:=Worksheets("Sheet1").Columns("E"), _
Header:=xlGuess
End Sub
Please See Attachment.
...
Puthut Wibowo
--- On Sat, 9/26/09, pranav9180 <pranav9180@gmail.com> wrote:
From: pranav9180 <pranav9180@gmail.com>
Subject: ]] XL-mania [[ data fatching......
To: XL-mania@yahoogroups.com
Date: Saturday, September 26, 2009, 9:50 PM
Hi.... all. How can i Get The Data From Column A On Daily i reveived a data in Column A .. about 2500 Lines after daily closing. After Reveive I want to Devided this data in Below Format catagory. how to possible with formula.... please help me.... pranav | Sales/Credit Account | Division | Prod2 | Prod1 | CAT | | | | | | | | SALES (260000) CABLE | Wire | Wire | Wire | WIRE | | SALES (ACCESSORIES) | W.D. | Penta | Penta | NON MOD | | SALES (APPLIANCES) | Fan | Fan | Fan | FAN | | SALES (AVE) | W.D. | Ave | Ave | MOD | | SALES (AVE) PROJECT | W.D. | Ave | Ave | MOD | | SALES (CABLE WIRE) | Wire | Wire | Wire | WIRE | | SALES (CABLE WIRE) PROJECT | Wire | Wire | Wire | WIRE | | SALES (CFL/PL/PLC) | Lighting | CFL | CFL | LIGHTING | | SALES (CFL/PL/PLC) INSTITUTION | Lighting | CFL | CFL | LIGHTING | | SALES (CFL/PL/PLC) PROJECT | Lighting | CFL | CFL | LIGHTING | | SALES (DYNA) | W.D. | Dyna | Dyna | NON MOD | | SALES (FAN) INSTITUTION | Fan | Fan | Fan | FAN | | SALES (FANS & APPL.) | Fan | Fan | Fan | FAN | | SALES (FANS) | Fan | Fan | Fan | FAN | | SALES (FANS) PROJECT | Fan | Fan | Fan | FAN | | SALES (H.I.D. RANGE OF LAMPS) | Lighting | L&T | HID | LIGHTING | | SALES (KITKAT) | W.D. | Penta | Penta | NON MOD | | SALES (LAMPS & TUBES) | Lighting | L&T | L&T | LIGHTING | | SALES (LAMPS & TUBES) INSTITUTION | Lighting | L&T | L&T | LIGHTING | | SALES (LUMINAIRES) | Lighting | Luminaries | Luminaries | LIGHTING | | SALES (LUMINARIES) | Lighting | Luminaries | Luminaries | LIGHTING | | SALES (LUMINARIES) INSTITUTION | Lighting | Luminaries | Luminaries | LIGHTING | | SALES (LUMINARIES) PROJECT | Lighting | Luminaries | Luminaries | LIGHTING | | SALES (M.C.B.) | MCB | MCB | MCB | MCB | | SALES (MCB) | MCB | MCB | MCB | MCB | | SALES (MCB) PROJECT | MCB | MCB | MCB | MCB | | SALES (MULTICORE CABLE) INSTITUTION | Wire | MCC | MCC | WIRE | | SALES (MULTICORE CABLES) | Wire | Wire | Wire | WIRE | | SALES (NOA) | W.D. | Noa/XL | Noa | NON MOD | | SALES (NOA) PROJECT | W.D. | Noa/XL | Noa | NON MOD | | SALES (PEARL) | W.D. | Noa/Pearl | Noa | NON MOD | | SALES (PENTA) | W.D. | Penta | Penta | NON MOD | | SALES (PENTA) INSTITUTION | W.D. | Penta | Penta | NON MOD | | SALES (PVC TAPE) | Wire | Tape | Tape | TAPE | | SALES (RIDER ACCESSORIES) | W.D. | Rider | Rider G.A. | NON MOD | | SALES (RIDER ACCESSORIES) PROJECT | W.D. | Rider | Rider G.A. | NON MOD | | SALES (RIDER MODULAR) | W.D. | Rider | Rider Modu. | MODULAR | | SALES (RIDER MODULAR) PROJECT | W.D. | Rider | Rider Modu. | MODULAR | | SALES (RIDER) project | W.D. | Rider | Rider G.A. | NON MOD | | SALES (ROMA) | W.D. | Roma | Roma | MODULAR | | SALES (ROMA) INSTITUTION | W.D. | Roma | Roma | MODULAR | | SALES (ROMA) PROJECT | W.D. | Roma | Roma | MODULAR | | SALES (T-4 RANGE) | Lighting | CFL | T - 4 | LIGHTING | | SALES (T-5 RANGE) | Lighting | CFL | T - 5 | LIGHTING | | SALES (TELEPHONE CABLE) | Wire | Wire | Tel. Cable | WIRE | | SALES (TELEPHONE CABLE) INSTITUTION | Wire | Wire | Tel. Cable | WIRE | | SALES (TELEPHONE CABLE) PROJECT | Wire | Wire | Tel. Cable | WIRE | | SALES (WIRE) | Wire | Wire | Wire | WIRE | | SALES (WIRE) INSTITUTION | Wire | Wire | Wire | WIRE | | SALES (WOODS) | W.D. | Woods | Woods | MODULAR | | SALES (WOODS) INSTITUTION | W.D. | Woods | Woods | MODULAR | | SALES (WOODS) PROJECT | W.D. | Woods | Woods | MODULAR | | SALES (XL) | W.D. | Noa/XL | XL | NON MOD | | SALES [CABLE WIRE] PROJECT | Wire | Wire | Wire | WIRE | | SALES RIDER MODULER (PROJECT) | W.D. | Rider | Rider Modu. | MODULAR | | SALES WIRE [INSTITUTION] | Wire | Wire | Wire | WIRE | | SALES(H.I.D. RANGE OF LAMPS) | Lighting | L&T | HID | LIGHTING | | SALES(LIGHTING CONTROL SYSTEM) | H.A. | H.A. | LCS | HOME AUTO |
|
Nenhum comentário:
Postar um comentário