| 楼主 wqfzqgk |
Function 对称(rang As Range) For Each rng In rang If InStr(1, Left(rng, Len(rng) / 2), StrReverse(Right(rng, Len(rng) / 2)), vbBinaryCompare) = 1 Then arr = arr & "," & rng.Value End If Next 对称 = Application.WorksheetFunction.Transpose(Split(Right(arr, Len(arr) - 1), ",")) End Function 佩服这些有函数头脑的，见：http://www.exceltip.net/thread-9070-1-1.html |
| 2楼 kevinchengcw |
不错不错，顶wqfzqgk一个！ |
| 3楼 水吉果果 |
学习一下 |