[發問] 排序問題

s13983037

想請問各位大大 資料排序已"排序2"進行 而不是使用排序一進行
有甚麼方法可以進行比對 麻煩了感謝

luhpro

想請問各位大大 資料排序已"排序2"進行 而不是使用排序一進行
有甚麼方法可以進行比對 麻煩了感謝
s13983037 發表於 2014-9-18 11:50

1. Sub nn()
   
2.   Dim lRow&
   
3.   
   
4.   lRow = 1
   
5.   Do While Cells(lRow, 1) <> ""
   
6.     With Cells(lRow, 1)
   
7.       .Copy .Offset(, 1)
   
8.       .Offset(, 1).TextToColumns
   
9.       lRow = lRow + 1
   
10.     End With
    
11.   Loop
    
12.   Cells(lRow, 1).Sort Columns("B"), , Columns("C"), , Columns("D")
    
13.   Columns("B").Insert
    
14.   Cells(1, 3).CurrentRegion.Clear
    
15. End Sub

複製代碼

s13983037

回復 2# luhpro


    luhpro大大你好
我嘗試過您的程式碼 資料仍然會依照

下載 (476 Bytes)
排序一

2014-9-18 22:09

而不是以

下載 (452 Bytes)
排序二

2014-9-18 22:09

方式呈現 請問是哪個地方有問題?? 謝謝..您

luhpro

回復 3# s13983037
程式是由 A1  (即 .Cells(lRow, 1) )儲存格開始往下處理的,
若還沒遇到資料就先遇到空白儲存格那就不會有動作,
或是如果你的 A 欄不是要排序的目標,
那也是不會有效果的.

我想需要先確認你資料從哪個儲存格開始放,
資料間有沒有不是要排序的資料,
這些都是程式沒發生應有效果的情形下需要釐清的地方,
這樣才能知道問題出在哪裡.

或者,你可以提供一個範例檔,
只要實做看看就知道問題在哪了.

hcm19522

http://blog.xuite.net/hcm19522/twblog/346996324