Excel樞紐分析表 區分大小寫

Excel樞紐分析表 區分大小寫

VBA

Sub testMoodules()
    For Each c In [a:a].SpecialCells(2)
    If c Like "*[A-Z][0-9]*" Then c.Value = Chr(9) & c
    Next
End Sub

※2013/11/26註記：
Q：若比對的值開頭為數字、英文大小寫交錯，就無法成功 ！
Ans：請改成*[A-Z][0-9]*

結果如下圖

參考來源：http://forum.twbts.com/thread-5045-1-1.html