CRR = Sheets("Outlook格式字段列表").UsedRange
With Sheets("Outlook格式")
.Rows("2:60000").Delete
For I = 1 To UBound(ARR, 2)
If ARR(1, I) = "地区" Then '处理地区
For T = 2 To UBound(ARR) - 1
If ARR(T, I) <> "" Then DQ = Replace(Split(ARR(T, I), "(")(0), Chr(10), "")
ARR(T, I) = DQ
Next
End If