[已解决]求一个去掉.后面的字符的宏,谢谢!

bipl607

如
VBA基础入门第一讲：宏的使用(上).Excel表格的基本操作（精选36个技巧）.数据透视表高级教程（1-8集打包下载）

结果为VBA基础入门第一讲：宏的使用(上)

这个宏怎么改?

上清宫主

Sub Test7()
    Dim arr, i%
    With Sheets("sheet1")
        arr = .Range("a1:a" & .Range("a65536").End(xlUp).Row)
    End With
    For i = 1 To UBound(arr)
        If InStr(arr(i, 1), ".") Then arr(i, 1) = Left(arr(i, 1), InStr(arr(i, 1), ".") - 1)
    Next i
    [b1].Resize(UBound(arr), 1) = arr
End Sub

bipl607

宏的好处是多数据时好用

bipl607

7楼的办法不行吧,我用时不行的

上清宫主

还可以将
If InStr(arr(i, 1), ".") Then arr(i, 1) = Left(arr(i, 1), InStr(arr(i, 1), ".") - 1)
换成
arr(i, 1) =split(arr(i, 1), ".") (0)

爱疯

bipl607 发表于 2012-2-7 21:27
如
VBA基础入门第一讲：宏的使用(上).Excel表格的基本操作（精选36个技巧）.数据透视表高级教程（1-8集打包 ...

1. Sub Test7()
   
2.     Dim arr, i%
   
3.     With Sheets("sheet1")
   
4.         arr = .Range("a1:a" & .Range("a65536").End(xlUp).Row)
   
5.     End With
   
6.     For i = 1 To UBound(arr)
   
7.         If UBound(Split(arr(i, 1), ".")) > -1 Then
   
8.             arr(i, 1) = Split(arr(i, 1), ".")(0)
   
9.         End If
   
10.     Next i
    
11.     [b1].Resize(UBound(arr), 1) = arr
    
12. End Sub

复制代码

爱疯

我的判断弄得这么麻烦，instr下就好了

wayy

bipl607 发表于 2012-2-7 21:32
7楼的办法不行吧,我用时不行的

Sub 替换()
    Columns("A:A").Copy Columns("E:E")
   Columns("E:E").Replace What:=".*", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
End Sub

7楼改的录制宏没改完全。

bipl607

谢谢各位高人的帮忙,用上清宫主和爱疯的方法解决了,谢谢!

上清宫主

16楼的判断完全可以不要