请问怎么用宏代码在A列文字前后全部加入字符

o0star0o

请教大神，怎么在A列的所有有文字的单元格前后加入书名号，比如把列的全部名字XXX，变成《XXX》这样，这个宏代码怎么写的啊？

跪求宏代码，=&+太麻烦了

maditate

单元格内容分为两类，一类是数字，另一类是文字。先排序，把文字与数字的分别排在一起，再在旁边的的列用连接符把字符类单元格文字前加上书名号，再复制选择性粘贴。然后再恢复原序。

hldycc

数量少的话，可以：="《"&F2&"》"，F2单元格里面是汉字。

o0star0o

求宏代码，求宏代码~~~~

maditate

o0star0o 发表于 2017-5-28 19:19
求宏代码，求宏代码~~~~

宏代码也是用此连接符的。只不过加个循环，逐个对单元格处理一下而已。

o0star0o

maditate 发表于 2017-5-28 19:23
宏代码也是用此连接符的。只不过加个循环，逐个对单元格处理一下而已。

应该可以一键添加吧，几行代码就搞定那种

huang1314wei

这种需求用函数比VBA方便，喜欢什么问题都要用VBA，函数也是技能

o0star0o

huang1314wei 发表于 2017-5-28 20:22
这种需求用函数比VBA方便，喜欢什么问题都要用VBA，函数也是技能

不是哥们，函数比较简单我会，我是因为有个大宏，这个代码需要写进去，一起运行的。所以这样的话，函数比较比较麻烦，宏反而简单
您会吗？就批量前后加书名号《 》，帮下我吧，谢谢

凌空一羽

不必要吧……，直接查找替换不是更快

mzbao

1. Sub test()
   
2.     Dim i%
   
3.     For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   
4.         If Len(Cells(i, 1).Value) Then Cells(i, 1) = "《" & Cells(i, 1).Value & "》"
   
5.     Next
   
6. End Sub

复制代码