=LEFT(A1,LENB(A1)-LEN(A1))提取汉字?

发布网友 发布时间：2022-05-01 15:24

我来回答

共3个回答

热心网友 时间：2023-11-12 17:21

'=LEFT(A1,LENB(A1)-LEN(A1))这个只有在A1里，所有的中文在左边，所有的数字（西文在右边），才是这个结论。
‘如果你的内容都是：工作纪要〔2013〕12号 这种类型，存在〔字符的，可以这样写：
=REPLACEB(A1,SEARCHB("〔",A1),100,"")
‘如果你的内容都是：工作纪要201312号 这种类型可以这样写：
=REPLACEB(A1,SEARCHB("?",A1),100,"")

热心网友 时间：2023-11-12 17:21

用函数是不行的，必须用宏
至于你说的问题原因是你把LENB(A1)单独拿出来你会发现LENB（A1)=16，原因是“工作纪要”和2个括号都是算2个字符的，你的括号是全角的
LEN（A1）是10，
LENB(A1)-LEN(A1)=4
你LEFT前4位，当然就是”工作纪要“

热心网友 时间：2023-10-21 16:23

'=LEFT(A1,LENB(A1)-LEN(A1))这个只有在A1里，所有的中文在左边，所有的数字（西文在右边），才是这个结论。
‘如果你的内容都是：工作纪要〔2013〕12号 这种类型，存在〔字符的，可以这样写：
=REPLACEB(A1,SEARCHB("〔",A1),100,"")
‘如果你的内容都是：工作纪要201312号 这种类型可以这样写：
=REPLACEB(A1,SEARCHB("?",A1),100,"")

热心网友 时间：2023-10-21 16:24

用函数是不行的，必须用宏
至于你说的问题原因是你把LENB(A1)单独拿出来你会发现LENB（A1)=16，原因是“工作纪要”和2个括号都是算2个字符的，你的括号是全角的
LEN（A1）是10，
LENB(A1)-LEN(A1)=4
你LEFT前4位，当然就是”工作纪要“

热心网友 时间：2023-10-21 16:24

试试调用下面的函数提取汉字。提取结果=f_getChina（a1）
private function f_getChina(sV as string ) as string
dim iA as integer
dim sA as String
for ia=1 to len(sv)
sa=left(sV,1)
sv=mid(sv,2)
if asc(sa)<0 then f_getChina=f_getChina & sa '利用汉字ascii码是负数提取汉字
if sv="" then exit for
next

end function

热心网友 时间：2023-11-12 17:22

试试调用下面的函数提取汉字。提取结果=f_getChina（a1）
private function f_getChina(sV as string ) as string
dim iA as integer
dim sA as String
for ia=1 to len(sv)
sa=left(sV,1)
sv=mid(sv,2)
if asc(sa)<0 then f_getChina=f_getChina & sa '利用汉字ascii码是负数提取汉字
if sv="" then exit for
next

end function

热心网友 时间：2023-10-21 16:23

'=LEFT(A1,LENB(A1)-LEN(A1))这个只有在A1里，所有的中文在左边，所有的数字（西文在右边），才是这个结论。
‘如果你的内容都是：工作纪要〔2013〕12号 这种类型，存在〔字符的，可以这样写：
=REPLACEB(A1,SEARCHB("〔",A1),100,"")
‘如果你的内容都是：工作纪要201312号 这种类型可以这样写：
=REPLACEB(A1,SEARCHB("?",A1),100,"")

热心网友 时间：2023-10-21 16:24

用函数是不行的，必须用宏
至于你说的问题原因是你把LENB(A1)单独拿出来你会发现LENB（A1)=16，原因是“工作纪要”和2个括号都是算2个字符的，你的括号是全角的
LEN（A1）是10，
LENB(A1)-LEN(A1)=4
你LEFT前4位，当然就是”工作纪要“

热心网友 时间：2023-10-21 16:24

试试调用下面的函数提取汉字。提取结果=f_getChina（a1）
private function f_getChina(sV as string ) as string
dim iA as integer
dim sA as String
for ia=1 to len(sv)
sa=left(sV,1)
sv=mid(sv,2)
if asc(sa)<0 then f_getChina=f_getChina & sa '利用汉字ascii码是负数提取汉字
if sv="" then exit for
next

end function