|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub 练练手呵呵()
- Dim i As Integer, j As Integer, k As Integer, k1 As Integer
- Dim Arr As Variant, Brr As Variant
- Dim Crr() As String
- Arr = Split("1,2,3", ",")
- Brr = [b2:b18]
- ReDim Crr(1 To UBound(Brr, 1), 1 To UBound(Brr, 2))
- For i = LBound(Brr, 1) To UBound(Brr, 1) Step 1
- For j = LBound(Arr) To UBound(Arr) Step 1
- If InStr(Brr(i, 1), Arr(j)) = 0 Then
- k = k + 1
- If k > UBound(Arr) Then
- k1 = k1 + 1
- Crr(k1, 1) = Brr(i, 1)
- End If
- End If
- Next j
- k = 0
- Next i
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|