(感谢Ib_bn老师！问题已解决！) 想用VBA去掉末尾空格

tommyszeto · 发表于 2010-4-18 16:38

原帖由 lb_bn 于 2010-4-17 18:01 发表
try........

中午好 Ib_bn,

真的不好意思了，我有少少的問題，想請教你。
完了程式運行後，工作表內的資料結構便亂了。
事因，發現執行對象的檔案裡已設定了AutoFilter，而並且有篩選狀態。

我自己嘗試加入這句ActiveSheet.ShowAllData，但運行超特級緩慢下來。
因為對象檔案裡的工作表，會有AutoFilter或沒有AutoFilter，或者有AutoFilter，並且設定了有篩選的狀態。

愚蠢的我，還有一個請求，想知道總共花了多少時間(秒計為單位，不足1秒也歸納為1秒)，由開始執行程序直至完成；
及距離完成程序的還剩餘下多少時間。

想請問Ib_bn大大，可有方法解決嗎？

lb_bn · 发表于 2010-4-18 16:58

try.......

tommyszeto · 发表于 2010-4-18 17:33

原帖由 lb_bn 于 2010-4-18 16:58 发表
try.......

lb_bn謝謝您的迅速回應！
我多次執行程序，感覺運行都比較慢，相信是AutoFilter拖垮下來，請問還有其他的解決方法呢？

還有一個請求，想加入語句VBA，要知道總共花了多少時間(秒計為單位)，由開始執行程序直至完成；
及距離完成程序的還剩餘下多少時間。

tommyszeto · 发表于 2010-4-18 23:23

原帖由 lb_bn 于 2010-4-18 21:46 发表
try...............

lb_bn大大，
嘩！超爽呀~ 好似坐著跑車在賽道上奔馳如飛。勁！勁！勁！

實在請你不要向我說:「不好意思」，反之亦然，我衷心向說聲：「謝謝」，
甚多要求的我，你不但卻沒有生氣,繼續有耐心的教導我......Thank Q!

lb_bn · 发表于 2010-4-18 17:56

因为表里有公式，改成下面这样试试。

Public shArr()
Public wb As Object
Sub bbb(sht$)
Dim i&, ii&, tmp$, s, arr1()
'On Error Resume Next
With Sheets(sht)
Application.Calculation = xlCalculationManual
If .AutoFilterMode Then .UsedRange.AutoFilter
arr1 = .[a7].Resize(.[a65536].End(3).Row - 6, 78).Formula
For i = 1 To UBound(arr1)
For ii = 1 To UBound(arr1, 2)
tmp = arr1(i, ii)
If Len(tmp) Then
If Not tmp Like "=*" Then
If arr1(i, ii) Like "* 00" Then
s = Split(tmp)
If UBound(s) Then
arr1(i, ii) = s(0)
End If
Else
arr1(i, ii) = WorksheetFunction.Trim(tmp)
End If
End If
End If
Next
Next
.[d7].Resize(UBound(arr1)).NumberFormatLocal = "@"
.[a7].Resize(UBound(arr1), 78).Value = arr1
Application.Calculation = xlCalculationAutomatic
End With
End Sub

复制代码

tommyszeto · 发表于 2010-4-18 18:47

原帖由 lb_bn 于 2010-4-18 17:56 发表
因为表里有公式，改成下面这样试试。Public shArr()
Public wb As Object

Sub bbb(sht$)
Dim i&, ii&, tmp$, s, arr1()

'On Error Resume Next
With Sheets(sht)
Application.C ...

試了，有錯誤的信息。
相信是在存檔之前，AutoFilter已被設定了最後的篩選狀態情況。
lb_bn大大，請再次指導！

lb_bn · 发表于 2010-4-18 18:54

我这里没有问题啊。传个有问题的附件来看看。
P.S: 这个代码是不能单独运行的，必须跟附件里的代码一起使用。

[ 本帖最后由 lb_bn 于 2010-4-18 18:56 编辑 ]

lb_bn · 发表于 2010-4-18 19:10

try.................

[ 本帖最后由 lb_bn 于 2010-4-18 19:12 编辑 ]

tommyszeto · 发表于 2010-4-18 20:48

晚上好lb_bn 大大，
我試了多次，終於找出問題關鍵了，發生於選擇檔案裡去執行時，多過1個工作表，就會有錯誤的信息。請幫忙！
=================
Run-time error "9":
Subscript out of range
=================

請求，
1 想加入語句VBA，要知道總共花了多少時間(秒計為單位)，由開始執行程序直至完成；及距離完成程序的還剩餘下多少時間。
2. 程式完結之前，想單純化擺上AutoFilter在原有的位置。

Testing.zip (4 KB, 下载次数: 5)

lb_bn · 发表于 2010-4-18 21:05

我选择多个工作表也没有问题啊。

有必要加时时间吗？
４７楼的代码还很慢？？

[ 本帖最后由 lb_bn 于 2010-4-18 21:06 编辑 ]

		自动登录	找回密码
密码			免费注册

[分享] (感谢Ib_bn老师！问题已解决！) 想用VBA去掉末尾空格

回复 41楼 tommyszeto 的帖子

回复 45楼 tommyszeto 的帖子

回复 46楼 lb_bn 的帖子

最新热点 /1