In arr1 If R <> "" Then cc = cc & R '查找值为多个单元格合并 columnn = columnn + 1 End If Next R Else cc = arr1 End If If M > 0 And L > 0 Then '非查找最后一个 For X = 1 To UBound(arr2) 'x是数组的行数 sr = "" If columnn > 1 Then For q = 1 To columnn...