ChatGPT最近全球爆火，我在几个领域进行了测试，使用体验超出了预期。我常用的工具是Excel和Power BI，因此测试了用AI写Excel公式、VBA和DAX，AI写出的内容大多可直接使用，无需修改。以VBA为例，我问AI的第一个问题是：
用VBA在Excel创建宏，功能是1到100求和。
以下是ChatGPT给出的解答：
代码语言：javascript复制Sub 求和()
Dim Sum , i
Sum = 0
For i = 1 To 100
Sum = Sum i
Next
MsgBox "1到100的和是：" & Sum
End Sub运行无误：
我接着问：用VBA在Excel创建宏，功能是将A1到A1000单元格的数据用逗号连接到一起，并将结果写入B1单元格。
ChatGPT的回答如下，它甚至加上了注释。
代码语言：javascript复制Sub Connect_A1toA1000()
'定义变量
Dim i As Long
Dim myStr As String
'循环
For i = 1 To 1000
myStr = myStr & Cells(i, "A") & ","
Next i
'将连接后的字符串结果写入B1
Cells(1, "B") = Left(myStr, Len(myStr) - 1)
End Sub
运行结果如下：
我加大了难度，这个场景我在《Excel显示指定产品图片》分享过，很多零售业同仁有查看产品图片的需求。我的提问如下：
Excel VBA写一段宏，功能是针对任意选中的单元格插入jpg图片，图片的大小适应单元格大小，图片来自D盘的“图库”文件夹，每个单元格插入的图片的文件名和单元格的数值相同。
ChatGPT给出的答案是：
代码语言：javascript复制Sub InsertImage()
Dim cell As Range
For Each cell In Selection
If Dir("D:图库" & cell.Value & ".jpg") <> "" Then
With ActiveSheet.Pictures.Insert("D:图库" & cell.Value & ".jpg")
.Left = cell.Left
.Top = cell.Top
.Width = cell.Width
.Height = cell.Height
End With
Else
'没有该图片
MsgBox "没有找到" & cell.Value & ".jpg" & vbNewLine & "请检查是否存在，并重新运行该宏"
End If
Next
End Sub代码再次直接可用。
可以看出ChatGPT是强大的助手，人机结合将会极大提升你的工作效率。针对AI写代码这个场景，提问时需注意一定要条理、清晰、详细。第一次提问结果如果不理想，可以修正问题，继续提问。
后续还会有更多AI辅助个人效率提升的介绍。ChatGPT账号相关的事宜大家可在网上搜寻，教程很多了。
上一个时代机器取代了部分体力劳动，这个时代AI要取代部分脑力劳动。当然，有取代，也会有创造。
