[已解决]怎么删除数字？

dadasdas

云影 发表于 2013-2-23 19:58

OR是什么意思，解释下公式

那么的帅

dadasdas 发表于 2013-2-23 20:12
不是删除，是清除内容

1. Sub 删除()
   
2.     Dim Arr11()
   
3.     ROW1 = Range("K65536").End(xlUp).Row
   
4.     arr1 = Range("K5:K" & ROW1)
   
5.     ReDim Arr11(1 To UBound(arr1), 1 To 1)
   
6.     For i = 1 To UBound(arr1)
   
7.         If Not (arr1(i, 1) Like "[12]") Then
   
8.             M = M + 1
   
9.             Arr11(M, 1) = arr1(i, 1)
   
10.         End If
    
11.     Next i
    
12.     Range("K5:K65536").ClearContents
    
13.     Range("K5").Resize(M, 1) = Arr11
    
14. End Sub

复制代码

dadasdas

那么的帅 发表于 2013-2-23 20:34

数字3移到上面了，原位置清除内容

云影

dadasdas 发表于 2013-2-23 20:32
OR是什么意思，解释下公式

应该是                      或者

hwc2ycy

1. Sub 删除12()
   
2.     Dim i&
   
3.     Dim arr
   
4.    
   
5.     Application.ScreenUpdating = False
   
6.     arr = Range(Range("k4"), Cells(Rows.Count, "k").End(xlUp))
   
7.    
   
8.     For i = LBound(arr) To UBound(arr)
   
9.         If arr(i, 1) Like "[12]" Then
   
10.             arr(i, 1) = ""
    
11.         End If
    
12.     Next
    
13.    
    
14.     Range("k4").Resize(UBound(arr)) = arr
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "删除完成"
    
17. End Sub

复制代码

数组方法

dadasdas

hwc2ycy 发表于 2013-2-23 21:29
数组方法

这个Like 不太明白，解释一下？

hwc2ycy

Like 运算符
请参阅     示例     特性

用来比较两个字符串。

语法

result = string Like pattern

Like 运算符的语法具有以下几个部分：

部分 描述
result 必需的；任何数值变量。
string 必需的；任何字符串表达式。
pattern 必需的；任何字符串表达式，遵循“说明”中的模式匹配约定。



说明

如果 string 与 pattern 匹配，则 result 为 True；如果不匹配，则 result 为 False。但是如果 string 或 pattern 中有一个为 Null，则 result 为 Null。

Like 运算符的特性随着 Option Compare 语句而不同。每个模块的缺省字符串比较方法是 Option Compare Binary。

在字符串比较中，Option Compare Binary 的结果是根据字符的内部二进制表示法导出的排序顺序得到的。在 Microsoft Windows 中，排序顺序由代码页决定。下例说明通常二进制的排序顺序：

A < B < E < Z < a < b < e < z < _ < _ < _ < _ < _ < ?/P>

在字符串比较中，Option Compare Text 的结果是字符串比较，它建立在不区分大小写的文本排序顺序基础上，而这一排序顺序是由系统的区域确定的。在对相同的字符使用 Option Compare Text 时会产生以下文本排序顺序：

(A=a) < (_=_) < (B=b) < (E=e) < (_=_) < (Z=z) < (_=_)

内建的模式匹配功能提供了多种工具来进行字符串比较。有了模式匹配功能就可以使用通配符、字符串列表或字符区间的任何组合来匹配字符串。下列表格指出 pattern 中允许的字符以及它们与什么进行匹配：

pattern 中的字符 符合 string 中的
? 任何单一字符。
* 零个或多个字符。
# 任何一个数字 (0–9)。
[charlist] charlist.中的任何单一字符。
[!charlist] 不在 charlist 中的任何单一字符。

dadasdas

hwc2ycy 发表于 2013-2-23 21:29
数组方法

能不能在上面加上几句代码？

hwc2ycy

可以的。再加二句判断。

dadasdas

hwc2ycy 发表于 2013-2-23 21:29
数组方法

Like "[12]"
这里[  ]是什么意思