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

我的 Excel 版本：Excel 2021

省流版

版本：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()

详细解释版

版本：Excel 2021

如何在Excel中使用VBA实现单元格字符串操作

在Excel中，使用VBA（Visual Basic for Applications）可以实现自动化操作，从而提高工作效率。本文将介绍如何通过VBA编写一个简单的逻辑，用于在选中的单元格字符串中的第二个大写字符前添加一个空格。通过以下步骤，您可以学习如何利用VBA处理Excel中的字符串数据。

1. 打开VBA界面

您可以使用快捷键Alt+F11或选择“视图-宏”来打开VBA界面。这是编写和管理VBA代码的地方。

2. 录制宏

首先，您可以录制一个宏，然后查看生成的VBA代码，从而了解常规的Excel操作在VBA中的实现方式。比如，如果您需要对选区进行修改，可以录制宏并对选区进行操作，然后停止录制，这样您就可以了解选区对应的VBA关键字是什么。

3. 编写VBA逻辑

接下来，您可以编写自己的VBA逻辑。以下是一个简单的VBA逻辑示例，用于在选中的单元格字符串的第二个大写字符前添加一个空格：

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

    Dim i As Integer
    Dim test As Range
    Dim ops As Integer
    Dim a As String
    Dim test2 As String
    
    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

通过以上VBA逻辑，您可以了解到几个常用的编程问题，包括选区遍历、单元格字符串的遍历、修改和拼接、条件判断以及退出循环等。

效果演示

附加的Python版本

如果您熟悉Python，也可以使用Python来实现相同的功能。以下是一个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()

通过本文的介绍和示例代码，您可以更好地理解如何使用VBA或Python在Excel中进行字符串操作，从而提高工作效率。

本账号所有文章均为原创，欢迎转载，请注明文章出处：https://blog.csdn.net/qq_46106285/article/details/125009006。百度和各类采集站皆不可信，搜索请谨慎鉴别。技术类文章一般都有时效性，本人习惯不定期对自己的博文进行修正和更新，因此请访问出处以查看本文的最新版本。