如何提取单元格中设置的币种符号

peoples100

请教高手，客户给我的表格币种符号都是自定义的，如果能快速的提取货货符号，如图，谢谢！

lcluck2002

自定义函数：

守候_CJ

自定义函数

1. Function getCurrencySymbol(cell As Range)
   
2.     Dim s As String
   
3.     Dim arr(), i As Long, j As Long
   
4.     If cell.Cells.Count > 1 Then
   
5.         ReDim arr(cell.Rows.Count, cell.Columns.Count)
   
6.         For i = 1 To cell.Rows.Count
   
7.             For j = 1 To cell.Columns.Count
   
8.                 arr(i, j) = cell(i, j)
   
9.             Next
   
10.         Next
    
11.         getCurrencySymbol = arr
    
12.     ElseIf cell.Cells.Count = 1 Then
    
13.         s = cell.NumberFormatLocal
    
14.         s = Mid(s, 3, 1)
    
15.         getCurrencySymbol = s
    
16.     End If
    
17. End Function

复制代码

执行结果

nicleyuan

Sub t2()
    Dim x
    For x = 2 To 13
        Cells(x, 3) = left(Cells(x, 1).Text, 1)
    Next
End Sub