slogan
专业知识问答平台！
自定义函数：
fw(rag)
Public Function FW(rag As Range)
xa0Dim x%, y%, z%, n%
xa0xa0 x = rag.Row
xa0xa0 y = x + rag.Rows.Count - 1
xa0xa0 z = rag.Column
xa0xa0 If x = y Then
xa0xa0 FW = ""
xa0xa0 Else
xa0xa0
xa0 xa0If Cells(x, z) > Cells(y, z) Then n = x: x = y: y = n
xa0xa0 FW = Cells(x, z) & "～" & Cells(y, z)
xa0xa0
xa0 End Ifxa0
End Function
©本文版权归作者所有，任何形式转载请联系我们：xiehuiyue@offercoming.com。
