请问这个函数应该怎么写成vba呢？

506981919 · 发表于 2020-1-13 21:31

本帖最后由 506981919 于 2020-1-13 21:41 编辑

提取括号内的内容

=MID(LEFT(A1,MAX(LEN(A1)-1,)),FIND("（",A1&"（")+1,99)

lss001 · 发表于 2020-1-13 21:43

简单直接加中括号[ ]
x = [MID(LEFT(A1,MAX(LEN(A1)-1,)),FIND("（",A1&"（")+1,99)]

506981919 · 发表于 2020-1-13 21:54

lss001 发表于 2020-1-13 21:43
简单直接加中括号[ ]
x = [MID(LEFT(A1,MAX(LEN(A1)-1,)),FIND("（",A1&"（")+1,99)]

如果是整列的呢？写在B列

506981919 · 发表于 2020-1-13 22:14

？？？？？
Sub CES()
For i = 1 To [a65536].End(3).Row
s = Split(Cells(i, 1), "）")(0)
Cells(i, 2) =
Next
End Sub

lss001 · 发表于 2020-1-13 22:16

本帖最后由 lss001 于 2020-1-13 22:26 编辑

506981919 发表于 2020-1-13 22:14
？？？？？
Sub CES()
For i = 1 To [a65536].End(3).Row

Cells(i, 2).FormulaR1C1 "=MID(LEFT(RC[-1],MAX(LEN(RC[-1])-1,)),FIND(""（"",RC[-1]&""（"")+1,99)"

506981919 · 发表于 2020-1-13 22:36

lss001 发表于 2020-1-13 22:16
Cells(i, 2).FormulaR1C1 "=MID(LEFT(RC[-1],MAX(LEN(RC[-1])-1,)),FIND(""（"",RC[-1]&""（"")+1,99)"

这个还是公式。可以用上vba吗

micch · 发表于 2020-1-13 23:14

if len([a1])* instr([a1],"(") then mid([a1],instr([a1],"(")+1)

		自动登录	找回密码
密码			免费注册

[求助] 请问这个函数应该怎么写成vba呢？