空格用VBA取值后后面是好多个问号

mimi0822

是嘛。我怎么一运行到arr1 = UsedRange.Value的地方出Run-time error '424':object required是什么意思呢？你们水平太高了，我还真是跟不上呢。

lipton

原帖由 mimi0822 于 2009-11-24 16:47 发表
是嘛。我怎么一运行到arr1 = UsedRange.Value的地方出Run-time error '424':object required是什么意思呢？你们水平太高了，我还真是跟不上呢。

Dim arr1
    arr1 = Sheet1.UsedRange.Value
或者
    arr1 = Sheets("sheet1").UsedRange.Value

mimi0822

这下可以了。真是不错。我赶紧看看弄到我真正需要用的代码里试试。不过我还真不懂代码的含义呢，先试了再说。哈哈。非常感谢！

mimi0822

能不能帮我具体解释下各行代码都是什么意思呢？因为我放到我的文件里好像有些问题。我想好好理解下整个代码再在我的文件里做。谢谢！

lb_bn

建议楼主多传点数据上来，格式最好是实际文件的格式。

mimi0822

这个代码就可以，我后来缩小了范围只改了一个我需要用的单元格。终于解决了一个重要的拦路虎。非常感谢EXCELHOME的高手们！

oonly

lb_bn 发表于 2009-11-24 16:35
Sub bbb()
    Dim arr1()
    arr1 = UsedRange.Value

这个不错，解决了问题

xiaocake

oonly 发表于 2020-11-30 13:21
这个不错，解决了问题

1. Option Explicit
   
2. 
   
3. Sub aa()
   
4.     Dim sht As Worksheet
   
5.     Set sht = ActiveWorkbook.ActiveSheet
   
6.     Dim rngs
   
7.     Dim rng As Range
   
8.     Dim Arr, ar
   
9.     Dim c As Long, r As Long
   
10.     Set rngs = sht.UsedRange
    
11.     For Each rng In rngs
    
12.         rng = CleanStr(rng.Text)
    
13.     Next
    
14. End Sub
    
15. 
    
16. Function CleanStr(ByVal str As String) As String
    
17.     Dim Tstr As String
    
18.     Dim I As Long
    
19.     Dim txt As String
    
20.     Dim cc As String
    
21.     Tstr = Trim(str)
    
22.     If Len(Tstr) > 0 Then
    
23.         For I = 1 To Len(Tstr)
    
24.             cc = Mid(Tstr, I, 1)
    
25.             If Asc(cc) <> 63 And Asc(cc) <> 9 And AscW(cc) <> 160 Then
    
26.                 txt = txt & cc
    
27.             End If
    
28.         Next
    
29.         txt = Trim(txt)
    
30.         txt = WorksheetFunction.Clean(txt)
    
31.         CleanStr = txt
    
32.     Else
    
33.         CleanStr = str
    
34.     End If
    
35. End Function

复制代码

试试我写的，笨方法,CleanStr 可以在单元格中使用。。。

yynrzwh

=SUBSTITUTE(A2,RIGHTB(A2,3),"")