这一年来，老婆做社区团购上瘾了，每周都会有一大批订单蜂拥而至，订单都是在微信群里接龙生成的，送货时，就遇到了订单打印的问题，老婆要求我对订单进行以下处理：
1、分列：把订单的房号和货物清单内容分成两列，方便查阅；
2、排序：把订单按房号进行排序，方便邻居来取货时，快速查询订单明细。
微信接龙原始订单格式
看到订单格式，我就思考以下几个问题：
1、分列问题：发现订单中，房号与货物清单之间，有的有空格，有的没空格；有的有一个空格，有的有多个空格；这在EXCEL中手工操作分列处理时，要把没有空格的加上一个分隔符，以便有可用的“分隔符号”供EXCEL软件识别；做上述处理后，就可以在EXCEL中做“分列”操作，把订单数据分为三列，序号1列，房号1列，货物清单内容1列；
2、排序问题：分列后，要对订单数据按房号进行升序排序，排序时发现问题，房号2B-4A会被排在房号2B-27H的后面，这是因为EXCEL判断的依据是房号2B-4A的第4位字符4>房号2B-27H的第4位字符2，而不是我们以为的4<27；如果要实现正确的排序，则要在2B-4A中，4的前面补上一个0，变为2B-04A；这样在排序时，2B-04A就会按照要求排在2B-27H的前面；做上述处理后，排序结果正确。
3、以上操作都是在EXCEL中手工完成，那么如何用VBA代码来达成上述所要的结果呢，这时候我求助了ChatGPT。
ChatGPT能帮我们生成代码，但首先是你的诉求信息要准确，不会被误解，所以我们在描述功能需求时，要密切注意表达的内容要做到详细并有确定性。
在ChatGPT中请求生成VBA代码时，我的请求表述如下：
帮我写一段VBA代码，在EXCEL表中，在A列的每个单元格中，从右边开始找到第一个英文字母，在这个英文字母后插入符号“,”；将A列中包含的空格全部删除；将A列内容进行“分列”，“分隔符号”为”.”，将分列后的内容写入右侧相邻的单元格；再将C列内容进行“分列”，“分隔符号“为”,”，将分列后的内容写入C列和D列；如果C列单元格中的字符位数为5，但左起第1个字符不是“1“，则寻找单元格中的“-“符号，在”-“符号后面插入一个”0“; 如果C列单元格中的字符位数为4，则寻找单元格中的“-“符号，在”-“符号后面插入一个”0“；对C列内容按升序进行排序，对B列内容按1、2、3等差数列重新进行编号；所有有内容的单元格加上框线。
由于ChatGPT一次处理内容篇幅有限，上述300个字的诉求内容，ChatGPT处理到一半就会中止，无法完成后半部分的代码生成，为了让ChatGPT能生成完成的代码，我把上述300字的诉求内容分为两段来发送：
第一段，
帮我写一段VBA代码，在EXCEL表中，在A列的每个单元格中，从右边开始找到第一个英文字母，在这个英文字母后插入符号“,”；将A列中包含的空格全部删除；将A列内容进行“分列”，“分隔符号”为”.”，将分列后的内容写入右侧相邻的单元格；再将C列内容进行“分列”，“分隔符号“为”,”，将分列后的内容写入C列和D列；
第二段，
帮我写一段VBA代码，在EXCEL表中，如果C列单元格中的字符位数为5，但左起第1个字符不是“1“，则寻找单元格中的“-“符号，在”-“符号后面插入一个”0“; 如果C列单元格中的字符位数为4，则寻找单元格中的“-“符号，在”-“符号后面插入一个”0“；对C列内容按升序进行排序，对B列内容按1、2、3等差数列重新进行编号；所有有内容的单元格加上框线。
大家看到，上述请求内容，相比EXCEL软件手工处理流程，增加了以下细节：
1、由于房号和后面清单内容之间时常会包含多个空格，如果以空格为分隔符号，分列时，VBA代码会将多个空格视作多个分隔符号，最终会将内容分隔为多个空白列，这并不是我们所想的结果，因此需要先清除订单内容中的全部空格后，才不会出现上述错误；
订单内容清除空格的代码如下：
Cells(i, 'A').Value = Replace(Cells(i, 'A').Value, ' ', '')
2、清除全部空格后，你就会发现房号与货物清单之间缺少分隔符号，无法实现分列操作，那么就需要在房号后面补上分隔符号，譬如“:”，这样就可以实现让系统自动进行房号与货物清单的分列操作；请求内容为：从右边开始找到第一个英文字母，在这个英文字母后插入符号“;”.
代码如下：
Do While letterPos > 0
If Mid(cellValue, letterPos, 1) Like '[A-Za-z]' Then
Cells(i, 'A').Value = Left(cellValue, letterPos) & ':' & Right(cellValue, Len(cellValue) - letterPos)
Exit Do
End If
letterPos = letterPos – 1
Loop
3、分列后，在对房号排序时发现，单数字房号，在进行降序排序时会排到双数字房号后面，譬如2B-4A会被排序2B-27H的后面，这样就需要在4A前插入一个0。用代码的处理就是先判断房号的字符位数，如果字符位数为5，就是左起第一个英文字母前加”0”；考虑到有格式如1-4B的房号，要再加个条件“左起第一个字母不为1”；那就是，如果房号字符位数为5，左起第一个字母不为1，就在-符号后面加0；还有一个条件，如果格式如1-4B的房号，就是，如果房号字符位数为4，左起第一个字母为1，就在-符号后面加0；
代码如下：
For i = 1 To Cells(Rows.count, 'C').End(xlUp).Row
'如果字符位数为 5 且左起第 1 个字符不是 '1'
If Len(Cells(i, 'C').Value) = 5 And Left(Cells(i, 'C').Value, 1) <> '1' Then
'寻找单元格中的 '-' 符号
Cells(i, 'C').Value = Replace(Cells(i, 'C').Value, '-', '-0')
'如果字符位数为 4
ElseIf Len(Cells(i, 'C').Value) = 4 Then
'寻找单元格中的 '-' 符号
Cells(i, 'C').Value = Replace(Cells(i, 'C').Value, '-', '-0')
End If
Next i
其它的如排序、编序号、单元格加框线的操作都不难，这里不再赘述。
将诉求内容发送给ChatGPT获得自动生成的VBA代码
将诉求内容发给ChatGPT，ChatGPT自动生成代码，再把生成的代码张贴到EXCEL的开发工具菜单中的VBA对话框中，点击运行按钮，EXCEL自动进行数据处理，生成我们希望得到的结果。
原始订单数据经VBA处理后提到的结果符合诉求
附录：完整代码如下，
Sub ModifyData()
Dim lastRow As Long
lastRow = Cells(Rows.count, 'A').End(xlUp).Row
Dim i As Long
For i = 1 To lastRow
' 从右边开始找到第一个英文字母，在这个英文字母后插入符号':'
Dim cellValue As String
cellValue = Cells(i, 'A').Value
Dim letterPos As Integer
letterPos = Len(cellValue)
Do While letterPos > 0
If Mid(cellValue, letterPos, 1) Like '[A-Za-z]' Then
Cells(i, 'A').Value = Left(cellValue, letterPos) & ':' & Right(cellValue, Len(cellValue) - letterPos)
Exit Do
End If
letterPos = letterPos - 1
Loop
' 将A列中包含的空格全部删除
Cells(i, 'A').Value = Replace(Cells(i, 'A').Value, ' ', '')
' 将A列内容进行'分列'，'分隔符号'为'.'，将分列后的内容写入右侧相邻的单元格
Dim arr() As String
arr = Split(Cells(i, 'A').Value, '.')
Cells(i, 'B').Value = arr(0)
Cells(i, 'C').Value = arr(1)
' 再将C列内容进行'分列'，'分隔符号'为':'，将分列后的内容写入C列和D列
arr = Split(Cells(i, 'C').Value, ':')
Cells(i, 'C').Value = arr(0)
Cells(i, 'D').Value = arr(1)
Next i
'遍历 C 列的每个单元格
For i = 1 To Cells(Rows.count, 'C').End(xlUp).Row
'如果字符位数为 5 且左起第 1 个字符不是 '1'
If Len(Cells(i, 'C').Value) = 5 And Left(Cells(i, 'C').Value, 1) <> '1' Then
'寻找单元格中的 '-' 符号
Cells(i, 'C').Value = Replace(Cells(i, 'C').Value, '-', '-0')
'如果字符位数为 4
ElseIf Len(Cells(i, 'C').Value) = 4 Then
'寻找单元格中的 '-' 符号
Cells(i, 'C').Value = Replace(Cells(i, 'C').Value, '-', '-0')
End If
Next i
'对 C 列内容按升序进行排序
With Range('C1', Cells(Rows.count, 'C').End(xlUp))
.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlNo
End With
'对 B 列内容按 1、2、3 等差数列重新进行编号
For i = 1 To Cells(Rows.count, 'B').End(xlUp).Row
Cells(i, 'B').Value = i
Next i
'所有有内容的单元格加上框线
Dim rng As Range
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet
For Each rng In ws.UsedRange
If Len(rng.Value) > 0 Then
rng.Borders.LineStyle = xlContinuous
End If
Next rng
End Sub
内容来自懂车帝
联系客服
