返回列表下一主題上一主題發帖

[發問] 排序問題

s13983037

中學生 Rank: 2

帖子: 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

ScreenShot00039.png (452 Bytes)

排序 2

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 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

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

複製代碼

TOP

s13983037

中學生 Rank: 2

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

3^#

發表於 2014-9-18 22:10 | 只看該作者

回復 2# luhpro

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

而不是以

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

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 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

hcm19522