工作表数据写入到txt文本中

可爱小喵喵

B列为当前代码执行的结果，怎么把OMC18剔除出去不执行，剩下的OMC16,OMC14执行，比如I列那个样子，还有就是执行后添加到txt文本的中，文本名为J如列那样，添加内容为A列的内容，附件的TXT文本就是我想要的结果，I和J为示例

Sub 文字处理()
arr = Range("A1").CurrentRegion
brr = Array("OMC14", "OMC18", "OMC16")
For j = 0 To 2
    Set dic = CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr)
        If arr(i, 2) = brr(j) Then
            st = Replace(Split(arr(i, 1), "{")(1), "}", "")
            If Not dic.Exists(st) Then
                dic(st) = dic.Count
            End If
        End If
    Next
    For i = 2 To UBound(arr)
        st = Replace(Split(arr(i, 1), "{")(1), "}", "")
        If arr(i, 2) = brr(j) And dic(st) >= 5 Then
            arr(i, 2) = arr(i, 2) & "-" & Fix(dic(st) / 5)
        End If
    Next
    Set dic = Nothing
Next
Range("A1").CurrentRegion = arr
End Sub

3190496160

看了半天，还真是一头雾水哟

可爱小喵喵

3190496160 发表于 2023-4-18 11:09
看了半天，还真是一头雾水哟

是这个样子的
目前的代码的作用是取出A列{}内的文字，然后取出的文字和B列的网管一起去重，然后的A列的文字个数大于5个的话，B列网管后面加1，就比如A列的文字个数是第6个B列就是OMC16-1,A列的文字个数是第11个B列就是OMC16-2,A列的文字个数是第6个B列就是OMC16-3,这个样子的
1.  目前它是把B列的网管都用以这样的效果，我想的就是把OMC18这个不执行上面的，就OMC16和OMC14执行
2.  创建txt，把B列网管前面对应的脚本放进去，txt的名称为B列网管的名称，前面加添加-,后面加-当前日期，就比如，OMC16，txt的名称为添加-OMC16-0418，OMC16-1，txt的名称为添加-OMC16-1-0418，这个样子