|
这个更简单
- Sub bcf()
- Dim arr, brr(), i&, j&, str$
- arr = Sheets("sheet1").Range("b1:g" & [g65536].End(3).Row)
- ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
- For i = 2 To UBound(arr)
- str = "," & Join(Application.Index(arr, i - 1), ",") & ","
- For j = 1 To UBound(arr, 2)
- If InStr(str, "," & arr(i, j) & ",") Then brr(i, j) = arr(i, j)
- Next
- Next
- Sheets("sheet1").[p1].Resize(i - 1, j - 1).ClearContents
- Sheets("sheet1").[p1].Resize(i - 1, j - 1) = brr
- End Sub
复制代码
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
评分
-
查看全部评分
|