返回列表 上一主題 發帖

[發問] 排序問題

s13983037

帖子
60 
主題
26 
精華
0 
積分
93 
點名
0  
作業系統
Windows 
軟體版本
Windows 7 
閱讀權限
20 
註冊時間
2014-9-8 
最後登錄
2020-4-15 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-9-18 11:50 | 只看該作者

[發問] 排序問題

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

ScreenShot00040.png (476 Bytes)

排序 1

ScreenShot00040.png

ScreenShot00039.png (452 Bytes)

排序 2

ScreenShot00039.png

收藏 分享

hcm19522

帖子
1387 
主題
4 
精華
0 
積分
1397 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-15 

熱烈參與勳章
5#
發表於 2015-10-5 13:03 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/346996324

TOP

luhpro

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

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

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

TOP

s13983037

帖子
60 
主題
26 
精華
0 
積分
93 
點名
0  
作業系統
Windows 
軟體版本
Windows 7 
閱讀權限
20 
註冊時間
2014-9-8 
最後登錄
2020-4-15 
3#
發表於 2014-9-18 22:10 | 只看該作者
回復 2# luhpro


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

而不是以 ScreenShot00039.png 方式呈現 請問是哪個地方有問題?? 謝謝..您

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 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

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
返回列表 上一主題