<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[mengchangjun的专栏]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/mengchangjun</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; mengchangjun]]></copyright><item><title><![CDATA[VB阿拉伯数字金额转大写中文]]></title><link>https://blog.youkuaiyun.com/mengchangjun/article/details/78882215</link><guid>https://blog.youkuaiyun.com/mengchangjun/article/details/78882215</guid><author>mengchangjun</author><pubDate>Sat, 23 Dec 2017 21:12:30 +0800</pubDate><description><![CDATA[Function mychange(ByVal Myinput)
    Dim Temp, TempA, MyinputA, MyinputB, MyinputC
    Dim Place As String
    Dim J As Integer
    Place = "分角元拾佰仟万拾佰仟亿拾佰仟万"
    shuzi1 = "壹贰叁肆伍陆柒捌玖"
    shuzi2 ]]></description><category></category></item><item><title><![CDATA[Excel中最值得收藏的12个函数公式]]></title><link>https://blog.youkuaiyun.com/mengchangjun/article/details/78882154</link><guid>https://blog.youkuaiyun.com/mengchangjun/article/details/78882154</guid><author>mengchangjun</author><pubDate>Sat, 23 Dec 2017 21:00:49 +0800</pubDate><description><![CDATA[Excel中最值得收藏的12个函数公式
　　1、动态获取A列最后一个数字
　　=LOOKUP(1,0/(A2:A100>0),A2:A100)
　　2、不重复个数公式
　　=SUMPRODUCT(1/COUNTIF(A2:A7,A2:A7))
　　3、提取唯一值公式
　　数组公式（按ctrl+shift+enter三键输入，以下带{}输入方法相同）
　　=IFERROR(INDEX(]]></description><category></category></item></channel></rss>