執行巨集前之樞紐分析表 (無區分大小寫)

建立巨集 (Alt + F8) :

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

PS. 將有大寫的字串在最前頭加上雙引號("), Chr(34)代表


 

 

複製一份樞紐分析表資料(如G & H欄位所示), 並將雙引號(")取代掉即為最後結果.


arrow
arrow

    DanBrother 發表在 痞客邦 留言(0) 人氣()