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

版本：Excel 2021。

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

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

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

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

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

Sub AddSpace()
' 将选中的单元格的第二个大写字符的前面加一个空格
' 例如"ZhangSanSan"改成"Zhang SanSan"

    i = 1
    For Each test In Selection              '遍历选中的
        ops = 2
        If (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 If
            Next ii
            If Mid(test, ops - 1, 1) <> " " Then '如果已经有空格，则不加
                test2 = Mid(test, 1, ops - 1) & " " & Mid(test, ops)
                Selection(i) = test2
            End If
        End If
        i = i + 1
        If (i >= 10000) Then                '不处理10000以上的数据量
            Exit For
        End If
    Next
    
End Sub

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

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

效果：

---

附加个Python版。

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

python版：

# author: shandianchengzi
# description: 用大写字符分割字符串
# status: complete

from win32com import client

fp='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=0
        for j in range(1,len(oldStr)):
            if (oldStr[j].isupper()):
                ops=j
                break
        oldStr.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()