跳脱出对好与坏的评断就是观照的方法。蜕变只有经由观照才可能发生。这就是道德与宗教
之间的不同。道德说“选择对的抗拒不对的。选择好的抗拒不好的。”宗教说“只要观
照两者根本就不要选择。保持在没有选择的意识之中。”
法句经《第二卷》

顶

加油💪

虚空不碍白云飞，虚空不碍乌云聚

顶

好久没来了，顶！

好

Sub test()
Dim i, j, k, myr, arr
Set myr = Range("a:a").Find("输出", lookat:=xlWhole)
If myr Is Nothing Then MsgBox "未找到_输出_所在!": Exit Sub
arr = [a1].CurrentRegion
For i = myr.Row + 1 To myr.End(xlDown).Row
For j = 2 To UBound(arr)
If arr(j, 1) = Cells(i, 1) Then
For k = 2 To UBound(arr, 2)
If Not Cells(i, k) Like "*" & arr(j, k) & "*" Then
If Cells(i, k) = "" Then
Cells(i, k) = arr(j, k)
Else
Cells(i, k) = Cells(i, k) & "|" & arr(j, k)
End If
End If
Next k
End If
Next
Next
End Sub
最近搞这个，来贴吧就少了

加油 各位

顶

顶

顶

顶