多条件替换成同一值。
量大,内容较多。不断的替换,一项项替换太累且不好清点。
没有规律
Sub 批量替换()arr = Array("今天", "明天", "后天")For i = 0 To UBound(arr) Cells.Replace arr(i), Replacement:="aa"NextEnd Sub你修改一下,试一试