判断是否回文数

baeta · 发表于 2018-3-6 10:14

a列为一串1-11位的数字，判断是否为回文数，回文数即这串数倒过来也等于原数。我写了个公式，感觉还不够精练，思路扩展不出去，请高手指点更短更优的公式

一剑惊心 · 发表于 2018-3-6 10:33

=AND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)=MID(A1,LEN(A1)+1-ROW(INDIRECT("1:"&LEN(A1))),1))

复制代码

简单粗暴一点的数组公式

梦幻小丑 · 发表于 2018-3-6 10:44

复制代码

数组公式，公式输完后按CTRL+SHIFT+ENTER结束。

lss001 · 发表于 2018-3-6 14:04

本帖最后由 lss001 于 2018-3-6 14:06 编辑

应用数组公式！！！

hcm19522 · 发表于 2018-3-6 14:20

本帖最后由 hcm19522 于 2018-3-6 14:23 编辑

{=AND(RIGHT(LEFT(A1,ROW($1:$11)))=LEFT(RIGHT(A1,ROW($1:$11))))

baeta · 发表于 2018-3-6 14:34

都好厉害赞

mikezhan · 发表于 2018-3-6 15:20

提示: 作者被禁止或删除内容自动屏蔽

mikezhan · 发表于 2018-3-6 15:33

提示: 作者被禁止或删除内容自动屏蔽

wangg913 · 发表于 2018-3-6 15:55

mikezhan 发表于 2018-3-6 15:33
Sub test()
Dim arr1, arr2(), n$, m$
arr1 = Range("A1:A" & Cells(10000, 1).End(xlUp).Row)

结果是boolean，true/false

mikezhan · 发表于 2018-3-6 16:03

提示: 作者被禁止或删除内容自动屏蔽

		自动登录	找回密码
密码			免费注册

[求助] 判断是否回文数

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-3-6 15:20 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-3-6 15:33 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-3-6 16:03 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报