返回列表 上一主題 發帖

[發問] 排序問題

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
1# 跳轉到 »
發表於 2014-9-18 21:16 | 顯示全部帖子
想請問各位大大 資料排序已"排序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
複製代碼

TOP

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
2#
發表於 2014-9-19 22:57 | 顯示全部帖子
回復 3# s13983037
程式是由 A1  (即 .Cells(lRow, 1) )儲存格開始往下處理的,
若還沒遇到資料就先遇到空白儲存格那就不會有動作,
或是如果你的 A 欄不是要排序的目標,
那也是不會有效果的.

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

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

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題