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

[發問] 在一筆資料裡面去掉0 & 空格然後重新排序

bomber1224

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: XP7
軟體版本: windos
閱讀權限: 10
註冊時間: 2017-6-30
最後登錄: 2021-5-11

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-12-10 22:06 | 只看該作者

[發問] 在一筆資料裡面去掉0 & 空格然後重新排序

請問一下,需要把資料裡面的0與空格去除,然後從小到大排序
自己寫了一個VBA程式,但是發覺資料是小筆數時沒有問題,可以去掉0跟空格然後從小到大排好
但是筆數超過一萬筆之後,會發現那些資料只有某部分有部在去掉0跟重新排序,剩下的則會補上 #N/A
不知道是程式哪個部分出現問題了,
請問是否能幫忙修改程式碼，謝謝,感恩 :) :)

去0和空格從小大到排序.rar (831.35 KB)

程式碼:
Sub 排序()
Application.ScreenUpdating = False

Dim myarr() As Variant
a = Application.WorksheetFunction.CountA(Range("B2:B100000"))
ReDim myarr(a) As Variant
Dim Rng As Range

k = 0
For i = 2 To Range("A2").End(xlDown).Row
If Cells(i, "B") <> 0 And Cells(i, "B") <> "" Then
   myarr(k) = Cells(i, "B")
   k = k + 1
End If
Next

[B2:B1048576].Clear

      Set Rng = Range("B2").Resize(k)
      Rng.Value = Application.Transpose(myarr)
      Rng.Sort key1:=Rng(1), order1:=xlAscending, Header:=xlNo

Application.ScreenUpdating = True

End Sub

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

2^#

發表於 2018-12-11 10:57 | 只看該作者

Sub 排序()
With Range([B2], Cells(Rows.Count, 2).End(xlUp))
.Replace "0", "", Lookat:=xlWhole
.Sort key1:=.Item(1), order1:=xlAscending, Header:=xlNo
End With
End Sub

TOP

bomber1224