Sub lqxs()
Dim Arr, i&, s1$, s2$
Arr = Sheet1.UsedRange
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
For i = 1 To UBound(Arr)
If Arr(i, 1) <> "" Then
.Pattern = "\D" '数字模式
s1 = .Replace(Arr(i, 1), "")
.Pattern = "[^\u4e00-\u9fa5]" '汉字模式
s2 = .Replace(Arr(i, 1), "")
If s1 <> "" Then
Cells(i, 3) = s1 & " " & s2
Cells(i, 4) = Mid(Arr(i, 1), Len(s1 & " " & s2) + 2)
Else
Cells(i, 3) = s2
Cells(i, 4) = Mid(Arr(i, 1), Len(s2) + 2)
End If
End If
Next
End With
End Sub
************************
资产类 Assets
资产类Assets
3流动资产 Current assets
3 流动资产urrent assets
4货币资金 Cash and cash equivalents
4 货币资金ash and cash equivalents
见金Cash
见金ash
61002银行存款 Cash in bank
61002 银行存款ash in bank
71009其他货币资金 Other cash and cash equivalents
71009 其他货币资金ther cash and cash equivalents
8100外雄存款 Other city Cash in bank
8100 外雄存款ther city Cash in bank
910020行本票 Cashier'scheque
910020 行本票ashier'scheque
101000票 Bank draft
101000 票ank draft
110904信用卡 Credit
110904 信用卡redit
12100信用证保证金 U/C Guarantee depo
12100 信用证保证金/C Guarantee depo
1310906年出投资款 Refundable deposits
1310906 年出投资款efundable deposits
141101短期投资 Short-term investments
141101 短期投资hort-term investments
151101股票Sh: rm investments:ok
151101 股票: rm investments:ok
161101021##Short-term investments-corporate
161101021Short-term investments-corporate
17110103基金 Short-term investments- corporate
17110103 基金hort-term investments- corporate
18110110其他 Short-term investments- other
18110110 其他hort-term investments- other
191102短期投资跌价准备 Short-term investments falling price reserves
191102 短期投资跌价准备hort-term investments falling price reserves
20应收款 Account receivable
20 应收款ccount receivable
1211181收票据 Note] receivable
1211181 收票据ote] receivable
22银行承兑汇票 Bank acceptance
22 银行承兑汇票ank acceptance
23商业承兑汇票 Trade acceptance
23 商业承兑汇票rade acceptance
241121应收股利 Dividend receivable
241121 应收股利ividend receivable
251128收利息 terestreceivable
*************************************
效果图
251128 收利息erestreceivable
