[已解决]数据添加

lgzxmlg · 发表于 2017-9-3 13:01

如何将B列数据添加到A列括号内.rar (1.75 KB, 下载次数: 9)

lgzxmlg · 发表于 2017-9-3 18:50

请老师们帮

lgzxmlg · 发表于 2017-9-4 09:44

请高手看看如何解决。

lgzxmlg · 发表于 2017-9-4 14:16

请高手看看如何解决。

grf1973 · 发表于 2017-9-4 14:54

这个最佳答案由 grf1973 给出，感谢 grf1973 的回答。

单击隐藏图章

=SUBSTITUTE(SUBSTITUTE(A1,"(","("&B1)," ","")

苏子龙 · 发表于 2017-9-5 13:49

本帖最后由苏子龙于 2017-9-5 13:52 编辑

=TRIM(REPLACE(A1,FIND("(",A1)+1,,B1))或=REPLACE(TRIM(A1),FIND("( ",A1)+1,1,B1)

lgzxmlg · 发表于 2017-9-5 15:25

苏子龙发表于 2017-9-5 13:49
=TRIM(REPLACE(A1,FIND("(",A1)+1,,B1))或=REPLACE(TRIM(A1),FIND("( ",A1)+1,1,B1)

谢谢老师们的帮忙，都是我要的结果。若能用VBA就刚好了。

苏子龙 · 发表于 2017-9-5 15:42

Sub tt()
Dim arr, i
arr = Range("a1:b" & [a65536].End(3).Row)
For i = 1 To UBound(arr)
arr(i, 1) = Replace(Replace(arr(i, 1), "(", "(" & arr(i, 2)), " ", "")
Next
[c1].Resize(UBound(arr)) = arr
End Sub
就是5楼的想法

lgzxmlg · 发表于 2017-9-5 16:56

苏子龙发表于 2017-9-5 15:42
Sub tt()
Dim arr, i
arr = Range("a1:b" & [a65536].End(3).Row)

高，就是要这个

lgzxmlg · 发表于 2017-11-14 19:32

苏子龙发表于 2017-9-5 15:42
Sub tt()
Dim arr, i
arr = Range("a1:b" & [a65536].End(3).Row)

如何将（）中内容提取出来，相当于还原。

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