返回目录：office365
请在一个新打开的word文档里面输入: =rand(200,99) 然后回车
> 看看会发生 什么？ 据说，连比尔盖茨都不知道为什么会这样:
>
> 这是彩蛋程序,也就是程序开发人员放在程序里的小程序.一般都是很有趣的.
> office里还有很多彩蛋呢!
>
>
>
> 1.Word 97/2000
>
> 彩蛋内容：绕口令
>
> 开启方式：启动Word，新建一个空白文档，在文档中输入“=rand()”（不包括引
号），按回车键，看看会显示出什么？一个绝妙的绕口令！此外在Word中还隐藏着另
外一个彩蛋，我们启动Word并打开任一文件，同时按住Ctrl、Shift、Alt，这时候再
按下“?”，你发现了什么？问号都反过来啦！感叹号也可以实现这个功能，龙龙示范一
个给你看，哈哈，好玩吧！
>
> 2.Excel 2000
>
> 彩蛋内容：赛车游戏
>
> 开启方式：启动Excel 2000后，新建一个新文件，选择“文件→另存为Web页…”，
在“另存为”对话框中，选中“选择(E):工作表”和“添加交互”两项，然后点击“发布”，
出现“发布为Web页”对话框，再点击“发布”。OK，用e799bee5baa6e997aee7ad94e59b9ee7ad94332IE打开刚才保存的HTM文件，我们
能在页面中央看到这个Excel工作表。在这个工作表中，先用PageDown键移动工作表的
矩形光标直至第2000行。然后用鼠标点击“2000”，使该行反相显示。用Tab键横向向右
移动光标直至WC列，这时该矩形光标呈白色显示。好，到此所有的准备工作已经完
毕，该是调出游戏的时候了。同时按住Shift、Ctrl和Alt键，单击Excel工作簿左上角
的Office标志……硬盘狂响后一个全屏的赛车游戏开始了！
>
>
> 方向键用来控制汽车方向与快慢，空格键用来发子弹，按“H”键可以打开车灯，
按“F10”可以暂停，按“Esc”键退出。怎么样，够精彩吧！
>
>
> 各有各的秘密
>
>
> 1. Photoshop 6.0
>
> 彩蛋内容：一只可爱的大电猫
>
>
> 开启方式：启动Photoshop 6.0，然后按住“Ctrl+Alt”键，点击“Help”菜单中
的“About Photoshop…”，这时关于对话框中会出现一只可爱的大电猫。而如果你不按
住“Ctrl+Alt”，直接点击的话，其结果是不相同的。
>
> 2. WinAMP
>
> 彩蛋内容：设计者的头像
>
> 开启方式：启动Winamp，打开“关于”对话框，选择“Winamp”标签，同时按住Alt
和Shift，然后用鼠标双击“Copyright_1997-1999 Nullsoft，Inc”这行文字，你就会
看到Winamp的设计者JustinFrankel的头像在上方飘动了。再一次双击，飘动的照片又
变成了原来的卡通画。
>
> 3. Flash 5.0
>
> 彩蛋内容：捡金子游戏
>
>
> 开启方式：启动Flash 5.0，点击“Help”菜单中的“About Flash”，在动画停止
之前双击右下角Macromedia的Logo中的“M”字母，然后点击“Thank”，这时“关于”窗口
会变成一个名为“Gold Rush”的小游戏。
>
> 4.mIRC
>
> 彩蛋内容：作者照片变为鳄鱼照片
>
> 开启方式：选择“Help”菜单中的“About”命令，然后从键盘上键入“arnie”，此
时你会发现原来的“About mIRC”窗口右上方作者的照片现在变成一张鳄鱼的照片了。
再输入一次“arnie”，就又变回作者的照片了。
>
> 5. Nero Burning Rom 5.0
>
> 彩蛋内容：跳舞的小蛇
>
> 开启方式：启动Nero Burning Rom 5.0，点击“Help”菜单中的“About…”，然后
双击关于窗口中间下方的两个燃烧的光盘，这时一条跳舞的小蛇将出现在窗口的底
部。
>
> 6. WinRAR 3.X
>
> 彩蛋内容：菜单中的海水涨潮
>
>
> 开启方式：启动WinRAR后点击“Help”菜单中的“About WinRAR”，当鼠标移动到
关于窗口顶端的海景图片时，你就会发现原本静止的海水开始涨潮了！而一旦你点击
鼠标，海水将回复到静止状态，再点击，再涨潮。是不是很有意思？另外你再单击左
上角的书本图标，那一摞书本是不是开始下落了？落到底后还会反弹，仔细听听还有
声音呢！
>
> 7. 3DMark 2001
>
> 彩蛋内容：作战的奶牛
>
> 开启方式：首先启动3DMark 2001 Pro版本，注意如果不是该版本是无法启动
Game Demo模式的。然后把测试任务的名称改为“Holy Cow!”，再选择“Game Demo”模
式，3DMark 2001会提示是否用默认分辨率640×480替代当前设置的分辨率，选择“Yes”
或“No”均可以进入该隐藏模式。其实这个奶牛作战的“彩蛋”与测试的第一个场景大同
小异，只不过天上飞的变成了奶牛而已，不过它配备的武器还是很厉害的。OFFICE中隐藏的小游戏
1,请在一个新开的word文件里面输入:
=rand(200,99)
然后回车看看会发生什么？
据说，连比尔盖茨都不知道为什么会这样。
2,《Excel 2000》隐藏的赛车游戏
以前微软的Office软件就常隐藏着有趣的小游戏，像之前的Word就曾藏有仿真飞行游
戏。
现在Excel 2000又有隐藏着一个3D赛车游戏唷，照着以下的方法做，你也可以叫出这
个游戏：
1、开启Excel之后随便开一新档，将它「另存成Web画面」，按下发布后再将增加互动
功能打勾，再将档案储存为2000.htm
2、在IE中开启2000.htm，你应该会看到电子表格出现在网页中央。
3、找到第2000行、WC列。再将第2000行整个选取（整列选取的方法就是按2000的灰色
按键），再利用Tab键将第WC列反白使其处于作用状态下（多按几下TAB那格2000/WC就
会转为白色）。
4、同时按住Shift+Crtl+Alt然后点选左上方的Office logo。
5、开始玩了。
玩法提示：方向键控制、空格键开火、O 放油、H 大灯。注意看路面上写的字唷！
用powerquery处理很简单（虽然看起来步骤复杂）。
不过用powerquery之前，确保数据格式是规整的
代码如下：
let
源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
更改的类型 = Table.TransformColumnTypes(源,{{"列1", type text}}),
已添加自定义 = Table.AddColumn(更改的类型, "科", each if Text.Contains([列1],"科（") then [列1] else null),
已添加自定义1 = Table.AddColumn(已添加自定义, "属", each if Text.Contains([列1],"属（") then [列1] else null),
向下填充e68a84e8a2ade799bee5baa6336 = Table.FillDown(已添加自定义1,{"科", "属"}),
已添加索引 = Table.AddIndexColumn(向下填充, "索引", 0, 1),
已添加自定义2 = Table.AddColumn(已添加索引, "名称", each if Text.Contains(已添加索引[列1]{[索引]+1},"【别 名】") then [列1] else null),
已替换的错误 = Table.ReplaceErrorValues(已添加自定义2, {{"名称", null}}),
向下填充1 = Table.FillDown(已替换的错误,{"名称"}),
筛选的行 = Table.SelectRows(向下填充1, each ([名称] <> null)),
按分隔符拆分列 = Table.SplitColumn(筛选的行, "列1", Splitter.SplitTextByDelimiter("】", QuoteStyle.Csv), {"列1.1", "列1.2"}),
更改的类型1 = Table.TransformColumnTypes(按分隔符拆分列,{{"列1.1", type text}, {"列1.2", type text}}),
替换的值 = Table.ReplaceValue(更改的类型1,"【","",Replacer.ReplaceText,{"列1.1"}),
重命名的列 = Table.RenameColumns(替换的值,{{"列1.2", "值"}, {"列1.1", "属性"}}),
删除的列 = Table.RemoveColumns(重命名的列,{"索引"}),
筛选的行1 = Table.SelectRows(删除的列, each ([值] <> null)),
已透视列 = Table.Pivot(筛选的行1, List.Distinct(筛选的行1[属性]), "属性", "值")
in
已透视列
步骤不太好解释，直接提供一个示例文件供参考：链接: https://pan.baidu.com/s/1moPNDe9r18Ay9TpqfEi2GA 提取码: swzm
参考文件用法：
确保您的Excel是2016及以上版本，如果是其他低版本，需要自行下载powerquery插件。
把sheet1中的原始数据用您的数据替换掉
在【数据】选项卡，点击“刷新”
然后结果就加载到sheet2上了
word的表格不具备排序功能，在EXCEL中可以对筛选出来的项进行单独排序，可以将筛选出来的项复制至SHEET2中，使用排序功能牌完后再复制回来。
1、word可以利用“查找”到百你的词汇句子，知道能有多少个词汇句子，可以代替。
2、将需要筛选的内容文字全选度，表格——转换——文字转换成表格（在打开的对话内框中，文字分隔的其他字符输入“|”）——确定，删除你不需要的列，然后选择表格——转换—容—表格转换成文本。即可得到你需要的结果