<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[u010916495的博客]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/u010916495</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; u010916495]]></copyright><item><title><![CDATA[Excel2013-VBA-Validation-Formula1-属性溢出测试记录]]></title><link>https://blog.youkuaiyun.com/u010916495/article/details/116463685</link><guid>https://blog.youkuaiyun.com/u010916495/article/details/116463685</guid><author>u010916495</author><pubDate>Thu, 06 May 2021 21:32:45 +0800</pubDate><description><![CDATA[Sub test()

Dim HelpArr() As String

RunTimes = 2
Do While RunTimes &lt; 65536
    
    RunTimes = RunTimes + 1
    Erase HelpArr
    ReDim HelpArr(1 To RunTimes)
    For i = 1 To UBound(HelpArr)
        HelpArr(i) = i
    Next
    
    TestNumStr = Join(.]]></description><category></category></item></channel></rss>