【记录】Excel 2021｜（一）VBA操作Excel入门，在姓和名之间打空格，如“ZhangSanSan“改成“Zhang SanSan“

本文主要是介绍【记录】Excel 2021｜（一）VBA操作Excel入门，在姓和名之间打空格，如“ZhangSanSan“改成“Zhang SanSan“，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

版本：Excel 2021。

打开VBA界面：快捷键Alt+F11。(或视图-宏)。

录制宏，再看看宏的代码，就可以基本了解常规的Excel操作在VBA里是什么德行。

比方说，我需要对一个选区进行修改，就先录制宏，然后对选区随便改改，再停止录制，就知道选区对应的关键字是Selection了。

知道了常规的Excel操作之后，重要的就是写逻辑。

我写了一个简单的VBA逻辑：

Sub AddSpace()
' 将选中的单元格的第二个大写字符的前面加一个空格
' 例如"ZhangSanSan"改成"Zhang SanSan"i = 1For Each test In Selection              '遍历选中的ops = 2If (Len(test) > 2) Then             '只修改长度大于2的字符串For ii = 2 To Len(test)             '遍历单元格的字符串（从第二个开始）a = Mid(test, ii, 1)            '字符串取值If (a >= "A" And a <= "Z") Then '判断是否是大写ops = ii                    '确定位置Exit For                    '跳出for循环End IfNext iiIf Mid(test, ops - 1, 1) <> " " Then '如果已经有空格，则不加test2 = Mid(test, 1, ops - 1) & " " & Mid(test, ops)Selection(i) = test2End IfEnd Ifi = i + 1If (i >= 10000) Then                '不处理10000以上的数据量Exit ForEnd IfNextEnd Sub

能看明白上面那个程序，就能够清晰地认识到以下几个编程常用的问题：

选区遍历；
单元格字符串的字符串遍历、修改、拼接；
条件判断；
退出循环（VBA没有continue）；

效果：

在这里插入图片描述

附加个Python版。

我以为用python写20分钟已经很久了，没想到VBA这程序花了我一个小时。虽然说实话它在这个程序中的运行速度，比python强远了，因为python我做了“打开excel、逐行填写、保存excel”等冗余的操作。

python版：

# author: shandianchengzi
# description: 用大写字符分割字符串
# status: completefrom win32com import clientfp='E:/workspace/py/工作1.xlsx'def myFunc():ws = wb.Worksheets[0]for i in range(1,1614):oldStr=list(ws.Cells(i, 1).Value)ops=0for j in range(1,len(oldStr)):if (oldStr[j].isupper()):ops=jbreakoldStr.insert(ops, ' ')ws.Cells(i, 2).Value = ''.join(oldStr)excel = client.DispatchEx('Excel.Application')
excel.Visible = True          #是否可视化
wb = excel.Workbooks.Open(fp)
myFunc()
wb.Save()
wb.Close(True)
excel.Quit()