標題:
[發問]
排序問題
[打印本頁]
作者:
s13983037
時間:
2014-9-18 11:50
標題:
排序問題
想請問各位大大 資料排序已"排序2"進行 而不是使用排序一進行
有甚麼方法可以進行比對 麻煩了感謝
作者:
luhpro
時間:
2014-9-18 21:16
想請問各位大大 資料排序已"排序2"進行 而不是使用排序一進行
有甚麼方法可以進行比對 麻煩了感謝
s13983037 發表於 2014-9-18 11:50
Sub nn()
Dim lRow&
lRow = 1
Do While Cells(lRow, 1) <> ""
With Cells(lRow, 1)
.Copy .Offset(, 1)
.Offset(, 1).TextToColumns
lRow = lRow + 1
End With
Loop
Cells(lRow, 1).Sort Columns("B"), , Columns("C"), , Columns("D")
Columns("B").Insert
Cells(1, 3).CurrentRegion.Clear
End Sub
複製代碼
作者:
s13983037
時間:
2014-9-18 22:10
回復
2#
luhpro
luhpro大大你好
我嘗試過您的程式碼 資料仍然會依照 [attach]19172[/attach]
而不是以[attach]19171[/attach]方式呈現 請問是哪個地方有問題?? 謝謝..您
作者:
luhpro
時間:
2014-9-19 22:57
回復
3#
s13983037
程式是由 A1 (即 .Cells(lRow, 1) )儲存格開始往下處理的,
若還沒遇到資料就先遇到空白儲存格那就不會有動作,
或是如果你的 A 欄不是要排序的目標,
那也是不會有效果的.
我想需要先確認你資料從哪個儲存格開始放,
資料間有沒有不是要排序的資料,
這些都是程式沒發生應有效果的情形下需要釐清的地方,
這樣才能知道問題出在哪裡.
或者,你可以提供一個範例檔,
只要實做看看就知道問題在哪了.
作者:
hcm19522
時間:
2015-10-5 13:03
http://blog.xuite.net/hcm19522/twblog/346996324
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
